Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 534628c64c894e55…

MALICIOUS

Office (OLE)

26.5 KB Created: 1999-03-20 11:22:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: 95013edcd5349d2821e302113d227cce SHA-1: 56f3bbc3cafc9ca6856cc5f28aa3bbcf460dba9b SHA-256: 534628c64c894e5542e787df771bcfb3023b86259113cfb49a8055ed9f86447a
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, specifically a Document_Open macro. This macro attempts to export itself and other macros to a user-specified path, likely to facilitate further execution or evasion. The embedded text suggests a deceptive action to the user, implying a need to handle the file carefully to avoid infection, which is a common social engineering tactic.

Heuristics 3

  • ClamAV: Doc.Trojan.Quitter-1 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Quitter-1
  • 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) 808 bytes
SHA-256: 3c7da3fa9aebab64fc22c3835e627077c35a1006b1c4a3de6486c7f526cdac7b
Detection
ClamAV: Doc.Trojan.Quitter-1
Obfuscation or payload: unlikely
Preview script
First 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
Private Sub Document_New()

End Sub

Private Sub Document_Open()
On Error GoTo EAO
EPath = InputBox("Please enter a path where to store the exported macros:")
For x = 1 To ActiveDocument.VBProject.VBComponents.Count
    ActiveDocument.VBProject.VBComponents(x).Export (EPath & "Macro[" & x & "].bas")
Next x
MsgBox x & " macros where found in " & ActiveDocument.FullName & Chr(13) & "Now quiting Word97"
Application.Quit
Exit Sub
EAO:
MsgBox "An error occured! Now quiting word to avoid infection"
Application.Quit
End Sub