Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
- ::Ascii Password Encryption Via Batch ::
- ::Created by RU$$ [http://russdev.mooo.com/] ::
- ::Build Version 2.5 ::
- ::Built In Password Rules [No Triple Numbers] ::
- :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
- @Echo off
- @setlocal ENABLEDELAYEDEXPANSION
- @Goto Start
- :Start
- cls
- 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
- 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 start
- ) 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 start
- :CheckKey
- Set "UserKey=!NewCryptedToken!"
- Set "FinalKey=20152123124135561714849910611151218137145152016201751811932082113225231241425426927182852913305311332233534183593614372238153912402241542134354414514464479481249550151185214"
- If "!UserKey!"=="!FinalKey!" (
- goto :eof
- ) ELSE (
- Echo Key Is WRONG. Please Try Agian.
- echo(
- pause
- goto start
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement