SHARE
TWEET

Ascii Batch Password Encryption v2.6 (Batch) [Updated]

Imthedude025 Jan 19th, 2020 (edited) 101 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2. ::Ascii Password Encryption Via Batch                        ::
  3. ::Created by RU$$ [http://russdev.mooo.com/]                 ::
  4. ::Build Version 2.6                                          ::
  5. ::Built In Password Rules [No Triple Numbers]                ::
  6. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  7. @Echo off
  8. @setlocal ENABLEDELAYEDEXPANSION
  9. @Goto Start
  10.  
  11. :Start
  12. cls
  13. Set /p "MyPassword=Please Type A Password: "
  14. call :Decrypt "!MyPassword!"
  15.  
  16. echo Congrats. You Managed To Crack My Password.
  17. echo(
  18.  
  19. pause
  20. Rem | Your Code Goes Here.
  21.  
  22. exit
  23.  
  24. :Decrypt
  25. cls
  26. Set "NewCryptedToken="
  27. set "UserInputPass=%~1"
  28. set "MaxNumber=0"
  29. 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"
  30. 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"
  31. Set "x=24" && Set "y=25" && Set "z=26"
  32. 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"
  33. 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"
  34. Set "X=24" && Set "Y=25" && Set "Z=26"
  35. set "var=!UserInputPass!"
  36. :subString
  37. set nit=%var:~0,1%
  38. if "%nit%"=="" (
  39.     Echo Key Is WRONG. Please Try Agian.
  40.     echo(
  41.     pause
  42.     goto start
  43. ) else if "%nit%"==" " (
  44.     set /a stringLength=%stringLength%+1
  45. ) else (
  46.     set /a stringLength=%stringLength%+1
  47. )
  48. set var=%var:~1,1000%
  49. if "%var%"=="" (
  50.     If "!nit!"=="0" (
  51.         If "!MaxNumber!"=="3" (
  52.             goto AntiExploit
  53.         ) ELSE (
  54.             Set /a "MaxNumber=!MaxNumber!+1"
  55.         )
  56.         Set "NewCryptedToken=!NewCryptedToken!0"
  57.         goto subString
  58.     )
  59.     If "!nit!"=="1" (
  60.         If "!MaxNumber!"=="3" (
  61.             goto AntiExploit
  62.         ) ELSE (
  63.             Set /a "MaxNumber=!MaxNumber!+1"
  64.         )
  65.         Set "NewCryptedToken=!NewCryptedToken!1"
  66.         goto subString
  67.     )
  68.     If "!nit!"=="2" (
  69.         If "!MaxNumber!"=="3" (
  70.             goto AntiExploit
  71.         ) ELSE (
  72.             Set /a "MaxNumber=!MaxNumber!+1"
  73.         )
  74.         Set "NewCryptedToken=!NewCryptedToken!2"
  75.         goto subString
  76.     )
  77.     If "!nit!"=="3" (
  78.         If "!MaxNumber!"=="3" (
  79.             goto AntiExploit
  80.         ) ELSE (
  81.             Set /a "MaxNumber=!MaxNumber!+1"
  82.         )
  83.         Set "NewCryptedToken=!NewCryptedToken!3"
  84.         goto subString
  85.     )
  86.     If "!nit!"=="4" (
  87.         If "!MaxNumber!"=="3" (
  88.             goto AntiExploit
  89.         ) ELSE (
  90.             Set /a "MaxNumber=!MaxNumber!+1"
  91.         )
  92.         Set "NewCryptedToken=!NewCryptedToken!4"
  93.         goto subString
  94.     )
  95.     If "!nit!"=="5" (
  96.         If "!MaxNumber!"=="3" (
  97.             goto AntiExploit
  98.         ) ELSE (
  99.             Set /a "MaxNumber=!MaxNumber!+1"
  100.         )
  101.         Set "NewCryptedToken=!NewCryptedToken!5"
  102.         goto subString
  103.     )
  104.     If "!nit!"=="6" (
  105.         If "!MaxNumber!"=="3" (
  106.             goto AntiExploit
  107.         ) ELSE (
  108.             Set /a "MaxNumber=!MaxNumber!+1"
  109.         )
  110.         Set "NewCryptedToken=!NewCryptedToken!6"
  111.         goto subString
  112.     )
  113.     If "!nit!"=="7" (
  114.         If "!MaxNumber!"=="3" (
  115.             goto AntiExploit
  116.         ) ELSE (
  117.             Set /a "MaxNumber=!MaxNumber!+1"
  118.         )
  119.         Set "NewCryptedToken=!NewCryptedToken!7"
  120.         goto subString
  121.     )
  122.     If "!nit!"=="8" (
  123.         If "!MaxNumber!"=="3" (
  124.             goto AntiExploit
  125.         ) ELSE (
  126.             Set /a "MaxNumber=!MaxNumber!+1"
  127.         )
  128.         Set "NewCryptedToken=!NewCryptedToken!8"
  129.         goto subString
  130.     )
  131.     If "!nit!"=="9" (
  132.         If "!MaxNumber!"=="3" (
  133.             goto AntiExploit
  134.         ) ELSE (
  135.             Set /a "MaxNumber=!MaxNumber!+1"
  136.         )
  137.         Set "NewCryptedToken=!NewCryptedToken!9"
  138.         goto subString
  139.     )
  140.     Set "MaxNumber=0"
  141.     Set "NewPassword=!%nit%!"
  142.     Set "NewCryptedToken=!NewCryptedToken!!NewPassword!"
  143.     goto :CheckKey
  144. ) else (
  145.     If "!nit!"=="0" (
  146.         If "!MaxNumber!"=="3" (
  147.             goto AntiExploit
  148.         ) ELSE (
  149.             Set /a "MaxNumber=!MaxNumber!+1"
  150.         )
  151.         Set "NewCryptedToken=!NewCryptedToken!0"
  152.         goto subString
  153.     )
  154.     If "!nit!"=="1" (
  155.         If "!MaxNumber!"=="3" (
  156.             goto AntiExploit
  157.         ) ELSE (
  158.             Set /a "MaxNumber=!MaxNumber!+1"
  159.         )
  160.         Set "NewCryptedToken=!NewCryptedToken!1"
  161.         goto subString
  162.     )
  163.     If "!nit!"=="2" (
  164.         If "!MaxNumber!"=="3" (
  165.             goto AntiExploit
  166.         ) ELSE (
  167.             Set /a "MaxNumber=!MaxNumber!+1"
  168.         )
  169.         Set "NewCryptedToken=!NewCryptedToken!2"
  170.         goto subString
  171.     )
  172.     If "!nit!"=="3" (
  173.         If "!MaxNumber!"=="3" (
  174.             goto AntiExploit
  175.         ) ELSE (
  176.             Set /a "MaxNumber=!MaxNumber!+1"
  177.         )
  178.         Set "NewCryptedToken=!NewCryptedToken!3"
  179.         goto subString
  180.     )
  181.     If "!nit!"=="4" (
  182.         If "!MaxNumber!"=="3" (
  183.             goto AntiExploit
  184.         ) ELSE (
  185.             Set /a "MaxNumber=!MaxNumber!+1"
  186.         )
  187.         Set "NewCryptedToken=!NewCryptedToken!4"
  188.         goto subString
  189.     )
  190.     If "!nit!"=="5" (
  191.         If "!MaxNumber!"=="3" (
  192.             goto AntiExploit
  193.         ) ELSE (
  194.             Set /a "MaxNumber=!MaxNumber!+1"
  195.         )
  196.         Set "NewCryptedToken=!NewCryptedToken!5"
  197.         goto subString
  198.     )
  199.     If "!nit!"=="6" (
  200.         If "!MaxNumber!"=="3" (
  201.             goto AntiExploit
  202.         ) ELSE (
  203.             Set /a "MaxNumber=!MaxNumber!+1"
  204.         )
  205.         Set "NewCryptedToken=!NewCryptedToken!6"
  206.         goto subString
  207.     )
  208.     If "!nit!"=="7" (
  209.         If "!MaxNumber!"=="3" (
  210.             goto AntiExploit
  211.         ) ELSE (
  212.             Set /a "MaxNumber=!MaxNumber!+1"
  213.         )
  214.         Set "NewCryptedToken=!NewCryptedToken!7"
  215.         goto subString
  216.     )
  217.     If "!nit!"=="8" (
  218.         If "!MaxNumber!"=="3" (
  219.             goto AntiExploit
  220.         ) ELSE (
  221.             Set /a "MaxNumber=!MaxNumber!+1"
  222.         )
  223.         Set "NewCryptedToken=!NewCryptedToken!8"
  224.         goto subString
  225.     )
  226.     If "!nit!"=="9" (
  227.         If "!MaxNumber!"=="3" (
  228.             goto AntiExploit
  229.         ) ELSE (
  230.             Set /a "MaxNumber=!MaxNumber!+1"
  231.         )
  232.         Set "NewCryptedToken=!NewCryptedToken!9"
  233.         goto subString
  234.     )
  235.     Set "MaxNumber=0"
  236.     Set "NewPassword=!%nit%!"
  237.     Set "NewCryptedToken=!NewCryptedToken!!NewPassword!"
  238.     goto subString
  239. )
  240. goto :EOF
  241. :AntiExploit
  242. Echo ERROR: You Cannot Use Numbers/Letters Three Times In Concession.
  243. echo(
  244. pause
  245. goto start
  246. :CheckKey
  247. Set "UserKey=!NewCryptedToken!"
  248. Set "FinalKey=20152123124135561714849910611151218137145152016201751811932082113225231241425426927182852913305311332233534183593614372238153912402241542134354414514464479481249550151185214"
  249. If "!UserKey!"=="!FinalKey!" (
  250.     goto :eof
  251. ) ELSE (
  252.     Echo Key Is WRONG. Please Try Agian.
  253.     echo(
  254.     pause
  255.     goto start
  256. )
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top