@echo off
title RAR Password Unlocker
mode con: cols=50 lines=25
setlocal enabledelayedexpansion
REM =============================== SETUP ===============================
SET PSWD=0
SET DEST=%TEMP%\%RANDOM%
MD "%DEST%"
IF NOT EXIST "C:\Program Files\WinRAR\Unrar.exe" (
echo Unrar.exe not found! Please install WinRAR.
pause
exit
)
COPY "C:\Program Files\WinRAR\Unrar.exe" "%DEST%"
SET UNRAR="%DEST%\Unrar.exe"
:INPUT
cls
echo ============================================
echo RAR Password Unlocker
echo ============================================
echo.
SET /P "NAME=Enter File Name : "
IF "%NAME%"=="" (
echo [Error] File name cannot be empty.
pause
goto INPUT
)
SET /P "PATH=Enter Full Path : "
IF "%PATH%"=="" (
echo [Error] Path cannot be empty.
pause
goto INPUT
)
IF NOT EXIST "%PATH%\%NAME%" (
echo [Error] File not found: "%PATH%\%NAME%"
pause
goto INPUT
)
REM =============================== BRUTE FORCE ===============================
:START
SET /A PSWD+=1
echo Testing password: !PSWD!
%UNRAR% E -INUL -P!PSWD! "%PATH%\%NAME%" "%DEST%"
IF !ERRORLEVEL! EQU 0 (
goto SUCCESS
)
REM Limit password attempts to prevent infinite loop
IF !PSWD! GEQ 9999 (
echo [Error] Password not found in range.
goto CLEANUP
)
goto START
:SUCCESS
cls
echo ============================================
echo Password Found!
echo ============================================
echo.
echo File Name : %NAME%
echo Cracked Password : !PSWD!
pause
:CLEANUP
RD /S /Q "%DEST%"
DEL "%UNRAR%"
exit
