Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 11c1af662ffaec32…

MALICIOUS

Office (OLE)

108.5 KB Created: 2019-12-17 16:35:00 Authoring application: Microsoft Office Word First seen: 2020-04-06
MD5: d67f14ae6bbca207b2af2825a0a3567b SHA-1: cc67d7c1d099fc08319fe604f1f72360644def3f SHA-256: 11c1af662ffaec329691e5f465b6263856a77d98e0a048ae906d05838c6e20a5
284 Risk Score

Malware Insights

MITRE ATT&CK
T1566.001 Spearphishing Attachment T1059.005 Visual Basic T1105 Ingress Tool Transfer

The sample is a malicious Office document containing VBA macros, specifically an AutoOpen macro that uses CreateObject. The document body contains a lure instructing the user to enable editing and content, which is a common tactic for macro-based malware. The presence of the 'macros.bas' file and the AutoOpen macro strongly suggests that the VBA code is designed to execute automatically upon opening the document. This macro likely downloads and executes a second-stage payload, as indicated by the 'Doc.Downloader' ClamAV detection and the use of CreateObject, which is often used for launching external processes or downloading files.

Heuristics 10

  • ClamAV: Doc.Downloader.Alien-7464887-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Alien-7464887-0
  • VBA macros detected medium 4 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • Workbook_Open macro high OLE_VBA_WBOPEN
    Workbook_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.
  • 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.
  • Macro/content-enable lure medium SE_ENABLE_LURE
    Document instructs the user to enable macros or editing — a common technique used by malware droppers to bypass Office macro security settings
  • 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://ns.adobe.com/xap/1.0/ In document text (OLE body)
    • http://www.w3.org/1999/02/22-rdf-syntax-ns#In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/mm/In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/sType/ResourceRef#In document text (OLE body)
    • http://schemas.openxmlformats.org/drawingml/2006/mainIn 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) 118421 bytes
SHA-256: d5bcf7d93fb39848e46469fbba565d5335eb2b6502dc0445e5605173ca997902
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

Attribute VB_Name = "Module1"
Private Const CP_UTF8                       As Long = 65001

#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 Florida As Variant


Sub SummarizeControls()
'
' SummarizeControls Macro
' Create a Pivottable from SAP QMS export of Controls.
'

'
    Dim lRecords As Long
    Dim sDataRange As String
    Dim sDataSheet As String
    Dim wsPT1 As Worksheet 'Pivottable to arrange by sample
    Dim wsPT2 As Worksheet 'Pivottable to arrange by shift
    Dim iTimestampColumn As Integer 'Column # containing Task List Description
    
    sDataSheet = "'" & ActiveSheet.Name & "'"
    lRecords = ActiveSheet.UsedRange.Rows.Count
    
    iTimestampColumn = [=MATCH("Task list description",$A$1:$V$1,0)]
    
    'Create Useful Timestamp
    Columns(iTimestampColumn).Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(1, iTimestampColumn).FormulaR1C1 = "Timestamp"
    With Cells(2, iTimestampColumn)
        .FormulaR1C1 = "=RC1+RC[-1]"
        .NumberFormat = "[$-409]m/d/yy h:mm AM/PM;@"
        .AutoFill Destination:=Range(Cells(2, iTimestampColumn), Cells(lRecords, iTimestampColumn))
    End With
    With Range(Cells(2, iTimestampColumn), Cells(lRecords, iTimestampColumn))
        .Copy
        .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End With
        
    'Remove useless timestamp data
    Range(Columns(1), Columns(iTimestampColumn - 1)).Delete Shift:=xlToLeft
    
    'Rename anaysis columns
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "K2O"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Insol"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "NaCl"
    
    'Remove pH and comments
    Columns("F").Delete Shift:=xlToLeft
    Columns("G").Delete Shift:=xlToLeft
    
    'Replace 0s with blanks
    
    Columns("D:G").Replace What:="0", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    
    'Get Shift
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Shift"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=((RC[-1]-INT(RC[-1]))<0.25)*(INT(RC[-1])-0.25)+((RC[-1]-INT(RC[-1]))>=0.75)*(INT(RC[-1])+0.75)+AND((RC[-1]-INT(RC[-1])>=0.25),(RC[-1]-INT(RC[-1])<0.75))*(INT(RC[-1])+0.25)"
    Range("B2").Select
    Selection.AutoFill Destination:=Range(Cells(2, 2), Cells(lRecords, 2))
    Range(Cells(2, 2), Cells(lRecords, 2)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteVa
... (truncated)

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