@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] off
title WinRar Sifre Kirici
copy "C:\Program Files\WinRAR\Unrar.exe"
SET PASS=0
SET TMP=TempFold
MD %TMP%
:RAR
cls
echo.
SET/P "NAME=Dosya Adini Girin  : "
IF "%NAME%"=="" goto ProblemDetected
goto GPATH
:ProblemDetected
echo Bu Kisim BoS Birakilamaz.!
pause
goto RAR
:GPATH
SET/P "PATH=Dosya Konumunu Girin. (Ornek: C:\Users\Admin\Desktop) : "
IF "%PATH%"=="" goto PERROR
goto NEXT
:PERROR
echo Bu kisim boS birakilamaz.!
pause
goto RAR
:NEXT
IF EXIST "%PATH%\%NAME%" GOTO SP
goto PATH
:PATH
cls
echo Dosya Bulunamadi.Dosya Uzantisini (.rar) olarak yazdiginizdan ve ya dosya adini dogru yazdiginizdan emin olun.
pause
goto RAR
:SP
echo.
echo Sifre Uzerinde Calisiliyor...
echo.
:START
title iSleminiz Yapiliyor..
SET /A PASS=%PASS%+1
UNRAR E -INUL -P%PASS% "%PATH%\%NAME%" "%TMP%"
IF /I %ERRORLEVEL% EQU 0 GOTO FINISH
GOTO START
:FINISH
RD %TMP% /Q /S
Del "Unrar.exe"
cls
title Sifreniz Bulundu. :)
echo.
echo Dosya= %NAME%
echo Sifre= %PASS%
echo.
echo Cikmak iCin herhangi bir tuSa basiniz...
pause>NUL
exit