@echo off
title Rar Password Cracker
mode con: cols=47 lines=20
copy "C:\Program Files\WinRAR\Unrar.exe"
SET PSWD=0
SET DEST=%TEMP%\%RANDOM%
MD %DEST%
: RAR
cls
Echo----------------------------------------------
echo GET DETAIL
Echo----------------------------------------------
Echo.
SET/P "NAME=Enter File Name : "
IF "%NAME%"=="" goto NERROR
goto GPATH
:NERROR
Echo----------------------------------------------
echo ERROR
Echo----------------------------------------------
Echo Sorry you can't leave it blank.
pause
goto RAR
: GPATH
SET/P "PATH=Enter Full Path : "
IF "%PATH%"=="" goto PERROR
goto NEXT
: PERROR
Echo----------------------------------------------
echo ERROR
Echo----------------------------------------------
Echo Sorry you can't leave it blank.
pause
goto RAR
: NEXT
IF EXIST "%PATH%\%NAME%" GOTO START
goto PATH
: PATH
cls
Echo----------------------------------------------
echo ERROR
Echo----------------------------------------------
Echo Opppss File does not Exist.
pause
goto RAR
: START
SET /A PSWD=%PSWD%+1
UNRAR E -INUL -P%PSWD% "%PATH%\%NAME%" "%DEST%."
IF /I %ERRORLEVEL% EQU 0 GOTO FINISH
GOTO START
: FINISH
RD %DEST% /Q /S
Del "Unrar.exe"
cls
Echo----------------------------------------------
echo CRACKED
Echo----------------------------------------------
Echo.
Echo PASSWORD FOUND!
echo FILE = %NAME%
echo CRACKED PASSWORD = %PSWD%
pause>NUL
exit
