:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::Ascii Password Encryption Via Batch                        ::
::Created by RU$$ [http://russdev.mooo.com/]                 ::
::Build Version 2.6                                          ::
::Built In Password Rules [No Triple Numbers]                ::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
@Echo off
@setlocal ENABLEDELAYEDEXPANSION
@Goto Menu

:Menu
cls
echo 1. Unlock Current Script
echo 2. Create New Password HASH
echo -------------------------------------------------------------------------------
echo(
set /p optionselect=Select An Option:
IF /I '%optionselect%'=='1' GOTO Start
IF /I '%optionselect%'=='2' GOTO Generate
GOTO Menu

:Generate
cls
Set "MakeKey=1"
Set /p "MakePassword=Create A Password: "
call :Decrypt "!MakePassword!"
echo(
pause
goto Menu

:Start
cls
Set "MakeKey=0"
Set /p "MyPassword=Please Type A Password: "
call :Decrypt "!MyPassword!"

echo Congrats. You Managed To Crack My Password.
echo(

pause
Rem | Your Code Goes Here.

goto :eof

:Decrypt
cls
if "!MakeKey!"=="1" (
	Echo Echo Generating Password, Please Wait...
)
set "UserInputPass=%~1"
set "MaxNumber=0"
Set "a=1" && Set "b=2" && Set "c=3" && Set "d=4" && Set "e=5" && Set "f=6" && Set "g=7" && Set "h=8" && Set "i=9" && Set "j=10" && Set "k=11" && Set "l=12"
Set "m=13" && Set "n=14" && Set "o=15" && Set "p=16" && Set "q=17" && Set "r=18" && Set "s=19" && Set "t=20" && Set "u=21" && Set "v=22" && Set "w=23"
Set "x=24" && Set "y=25" && Set "z=26"
Set "A=1" && Set "B=2" && Set "C=3" && Set "D=4" && Set "E=5" && Set "F=6" && Set "G=7" && Set "H=8" && Set "I=9" && Set "J=10" && Set "K=11" && Set "L=12"
Set "M=13" && Set "N=14" && Set "O=15" && Set "P=16" && Set "Q=17" && Set "R=18" && Set "S=19" && Set "T=20" && Set "U=21" && Set "V=22" && Set "W=23"
Set "X=24" && Set "Y=25" && Set "Z=26"
set "var=!UserInputPass!"
:subString
set "nit=%var:~0,1%"
if "%nit%"=="" (
    Echo Key Is WRONG. Please Try Agian.
    echo(
    pause
    goto Menu
) else if "%nit%"==" " (
    set /a stringLength=%stringLength%+1
) else (
    set /a stringLength=%stringLength%+1
)
set "var=%var:~1,1000%"
if "%var%"=="" (
    If "!nit!"=="0" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!0"
        goto subString
    )
    If "!nit!"=="1" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!1"
        goto subString
    )
    If "!nit!"=="2" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!2"
        goto subString
    )
    If "!nit!"=="3" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!3"
        goto subString
    )
    If "!nit!"=="4" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!4"
        goto subString
    )
    If "!nit!"=="5" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!5"
        goto subString
    )
    If "!nit!"=="6" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!6"
        goto subString
    )
    If "!nit!"=="7" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!7"
        goto subString
    )
    If "!nit!"=="8" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!8"
        goto subString
    )
    If "!nit!"=="9" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!9"
        goto subString
    )
    Set "MaxNumber=0"
    Set "NewPassword=!%nit%!"
    Set "NewCryptedToken=!NewCryptedToken!!NewPassword!"
    goto :CheckKey
) else (
    If "!nit!"=="0" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!0"
        goto subString
    )
    If "!nit!"=="1" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!1"
        goto subString
    )
    If "!nit!"=="2" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!2"
        goto subString
    )
    If "!nit!"=="3" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!3"
        goto subString
    )
    If "!nit!"=="4" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!4"
        goto subString
    )
    If "!nit!"=="5" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!5"
        goto subString
    )
    If "!nit!"=="6" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!6"
        goto subString
    )
    If "!nit!"=="7" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!7"
        goto subString
    )
    If "!nit!"=="8" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!8"
        goto subString
    )
    If "!nit!"=="9" (
        If "!MaxNumber!"=="3" (
            goto AntiExploit
        ) ELSE (
            Set /a "MaxNumber=!MaxNumber!+1"
        )
        Set "NewCryptedToken=!NewCryptedToken!9"
        goto subString
    )
    Set "MaxNumber=0"
    Set "NewPassword=!%nit%!"
    Set "NewCryptedToken=!NewCryptedToken!!NewPassword!"
    goto subString
)
goto :EOF
:AntiExploit
Echo ERROR: You Cannot Use Numbers/Letters Three Times In Concession.
echo(
pause
goto Menu
:CheckKey
Set "UserKey=!NewCryptedToken!"
Set "FinalKey=20152123124135561714849910611151218137145152016201751811932082113225231241425426927182852913305311332233534183593614372238153912402241542134354414514464479481249550151185214"
if "!MakeKey!"=="1" (
    Set "MakeKey=0"
	Cls
	Echo Your Password:
	Echo(
	Echo !UserKey!
	Goto :eof
)
If "!UserKey!"=="!FinalKey!" (
    goto :eof
) ELSE (
    Echo Key Is WRONG. Please Try Agian.
    echo(
    pause
    goto Menu
)