Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

СРОЧНО! Что делает этот батник

1 111 Ученик (106), открыт 3 недели назад
 @echo off 
cd %~dp0
setlocal enabledelayedexpansion
set "map=aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ0123456789"
set "i=0"
:loop
set /a "i+=1, r=36*%random%/32768"
set "n=!map:~%r%,1!!n!"
if !i! lss 5 goto:loop
title !n!%~x0
endlocal
set /p process_name=Enter process:

tasklist | findstr /i %process_name%
if %errorlevel% equ 0 (
cls
goto :scrack
) else (
cls
call :ECHO "[ERROR] " 04
call :ECHO "%process_name% not found." 0F
goto :end
)

:scrack
for /f "tokens=2" %%a in ('tasklist ^|findstr /i "%process_name%"') do (
set "process_id=%%a"
)
echo Process: %process_name% \ %process_id%
call :ECHO "Inection Status = " 0F
call :ECHO "I'm trying to bypass the anti-cheat process..." 06
setlocal enabledelayedexpansion
set "map=aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ0123456789"
set "i=0"
:loop
set /a "i+=1, r=36*%random%/32768"
set "n=!map:~%r%,1!!n!"
if !i! lss 5 goto:loop
title !n!%~x0
endlocal
cls
echo Process: %process_name% \ %process_id%
call :ECHO "Magic" 0F
call :ECHO "Crypt " 06
call :ECHO "$ " 08
set /p dll_name=DLL File name:

if not exist "%dll_name%" (
echo File "%dll_name%" not found.
goto :end
) else (
cls
echo Injecting...
goto :inject
)

pause >nul

:inject
echo %process_id%
RDLLI64.exe %process_id% %~dp0\%dll_name%
if %errorlevel% equ 1 (
cls
call :ECHO "[ERROR] " 04
call :ECHO "I was unable to inject %dll_name% into %process_name%" 0F
goto :end
) else (
cls
call :ECHO "Magic" 0F
call :ECHO "Crypt " 06
call :ECHO "$ " 08
echo Injection successfully
goto :end
)

:ECHO
for /f %%i in ('"prompt $h& for %%i in (.) do rem"') do (set Z=%%i)
pushd "%TEMP%" && (
"%~1^" set /p="%Z%%Z% %Z%%Z%"
findstr /a:%2 . "%~1^*"
del "%~1^"
popd
)
exit /b

:end
pause >nul
exit
Похожие вопросы