SHARE
TWEET

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

Imthedude025 Jan 19th, 2020 (edited) 70 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.5                                          ::
  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. goto :eof
  23.  
  24. :Decrypt
  25. cls
  26. set "UserInputPass=%~1"
  27. set "MaxNumber=0"
  28. 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"
  29. 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"
  30. Set "x=24" && Set "y=25" && Set "z=26"
  31. 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"
  32. 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"
  33. Set "X=24" && Set "Y=25" && Set "Z=26"
  34. set "var=!UserInputPass!"
  35. :subString
  36. set nit=%var:~0,1%
  37. if "%nit%"=="" (
  38.     Echo Key Is WRONG. Please Try Agian.
  39.     echo(
  40.     pause
  41.     goto start
  42. ) else if "%nit%"==" " (
  43.     set /a stringLength=%stringLength%+1
  44. ) else (
  45.     set /a stringLength=%stringLength%+1
  46. )
  47. set var=%var:~1,1000%
  48. if "%var%"=="" (
  49.     If "!nit!"=="0" (
  50.         If "!MaxNumber!"=="3" (
  51.             goto AntiExploit
  52.         ) ELSE (
  53.             Set /a "MaxNumber=!MaxNumber!+1"
  54.         )
  55.         Set "NewCryptedToken=!NewCryptedToken!0"
  56.         goto subString
  57.     )
  58.     If "!nit!"=="1" (
  59.         If "!MaxNumber!"=="3" (
  60.             goto AntiExploit
  61.         ) ELSE (
  62.             Set /a "MaxNumber=!MaxNumber!+1"
  63.         )
  64.         Set "NewCryptedToken=!NewCryptedToken!1"
  65.         goto subString
  66.     )
  67.     If "!nit!"=="2" (
  68.         If "!MaxNumber!"=="3" (
  69.             goto AntiExploit
  70.         ) ELSE (
  71.             Set /a "MaxNumber=!MaxNumber!+1"
  72.         )
  73.         Set "NewCryptedToken=!NewCryptedToken!2"
  74.         goto subString
  75.     )
  76.     If "!nit!"=="3" (
  77.         If "!MaxNumber!"=="3" (
  78.             goto AntiExploit
  79.         ) ELSE (
  80.             Set /a "MaxNumber=!MaxNumber!+1"
  81.         )
  82.         Set "NewCryptedToken=!NewCryptedToken!3"
  83.         goto subString
  84.     )
  85.     If "!nit!"=="4" (
  86.         If "!MaxNumber!"=="3" (
  87.             goto AntiExploit
  88.         ) ELSE (
  89.             Set /a "MaxNumber=!MaxNumber!+1"
  90.         )
  91.         Set "NewCryptedToken=!NewCryptedToken!4"
  92.         goto subString
  93.     )
  94.     If "!nit!"=="5" (
  95.         If "!MaxNumber!"=="3" (
  96.             goto AntiExploit
  97.         ) ELSE (
  98.             Set /a "MaxNumber=!MaxNumber!+1"
  99.         )
  100.         Set "NewCryptedToken=!NewCryptedToken!5"
  101.         goto subString
  102.     )
  103.     If "!nit!"=="6" (
  104.         If "!MaxNumber!"=="3" (
  105.             goto AntiExploit
  106.         ) ELSE (
  107.             Set /a "MaxNumber=!MaxNumber!+1"
  108.         )
  109.         Set "NewCryptedToken=!NewCryptedToken!6"
  110.         goto subString
  111.     )
  112.     If "!nit!"=="7" (
  113.         If "!MaxNumber!"=="3" (
  114.             goto AntiExploit
  115.         ) ELSE (
  116.             Set /a "MaxNumber=!MaxNumber!+1"
  117.         )
  118.         Set "NewCryptedToken=!NewCryptedToken!7"
  119.         goto subString
  120.     )
  121.     If "!nit!"=="8" (
  122.         If "!MaxNumber!"=="3" (
  123.             goto AntiExploit
  124.         ) ELSE (
  125.             Set /a "MaxNumber=!MaxNumber!+1"
  126.         )
  127.         Set "NewCryptedToken=!NewCryptedToken!8"
  128.         goto subString
  129.     )
  130.     If "!nit!"=="9" (
  131.         If "!MaxNumber!"=="3" (
  132.             goto AntiExploit
  133.         ) ELSE (
  134.             Set /a "MaxNumber=!MaxNumber!+1"
  135.         )
  136.         Set "NewCryptedToken=!NewCryptedToken!9"
  137.         goto subString
  138.     )
  139.     Set "MaxNumber=0"
  140.     Set "NewPassword=!%nit%!"
  141.     Set "NewCryptedToken=!NewCryptedToken!!NewPassword!"
  142.     goto :CheckKey
  143. ) else (
  144.     If "!nit!"=="0" (
  145.         If "!MaxNumber!"=="3" (
  146.             goto AntiExploit
  147.         ) ELSE (
  148.             Set /a "MaxNumber=!MaxNumber!+1"
  149.         )
  150.         Set "NewCryptedToken=!NewCryptedToken!0"
  151.         goto subString
  152.     )
  153.     If "!nit!"=="1" (
  154.         If "!MaxNumber!"=="3" (
  155.             goto AntiExploit
  156.         ) ELSE (
  157.             Set /a "MaxNumber=!MaxNumber!+1"
  158.         )
  159.         Set "NewCryptedToken=!NewCryptedToken!1"
  160.         goto subString
  161.     )
  162.     If "!nit!"=="2" (
  163.         If "!MaxNumber!"=="3" (
  164.             goto AntiExploit
  165.         ) ELSE (
  166.             Set /a "MaxNumber=!MaxNumber!+1"
  167.         )
  168.         Set "NewCryptedToken=!NewCryptedToken!2"
  169.         goto subString
  170.     )
  171.     If "!nit!"=="3" (
  172.         If "!MaxNumber!"=="3" (
  173.             goto AntiExploit
  174.         ) ELSE (
  175.             Set /a "MaxNumber=!MaxNumber!+1"
  176.         )
  177.         Set "NewCryptedToken=!NewCryptedToken!3"
  178.         goto subString
  179.     )
  180.     If "!nit!"=="4" (
  181.         If "!MaxNumber!"=="3" (
  182.             goto AntiExploit
  183.         ) ELSE (
  184.             Set /a "MaxNumber=!MaxNumber!+1"
  185.         )
  186.         Set "NewCryptedToken=!NewCryptedToken!4"
  187.         goto subString
  188.     )
  189.     If "!nit!"=="5" (
  190.         If "!MaxNumber!"=="3" (
  191.             goto AntiExploit
  192.         ) ELSE (
  193.             Set /a "MaxNumber=!MaxNumber!+1"
  194.         )
  195.         Set "NewCryptedToken=!NewCryptedToken!5"
  196.         goto subString
  197.     )
  198.     If "!nit!"=="6" (
  199.         If "!MaxNumber!"=="3" (
  200.             goto AntiExploit
  201.         ) ELSE (
  202.             Set /a "MaxNumber=!MaxNumber!+1"
  203.         )
  204.         Set "NewCryptedToken=!NewCryptedToken!6"
  205.         goto subString
  206.     )
  207.     If "!nit!"=="7" (
  208.         If "!MaxNumber!"=="3" (
  209.             goto AntiExploit
  210.         ) ELSE (
  211.             Set /a "MaxNumber=!MaxNumber!+1"
  212.         )
  213.         Set "NewCryptedToken=!NewCryptedToken!7"
  214.         goto subString
  215.     )
  216.     If "!nit!"=="8" (
  217.         If "!MaxNumber!"=="3" (
  218.             goto AntiExploit
  219.         ) ELSE (
  220.             Set /a "MaxNumber=!MaxNumber!+1"
  221.         )
  222.         Set "NewCryptedToken=!NewCryptedToken!8"
  223.         goto subString
  224.     )
  225.     If "!nit!"=="9" (
  226.         If "!MaxNumber!"=="3" (
  227.             goto AntiExploit
  228.         ) ELSE (
  229.             Set /a "MaxNumber=!MaxNumber!+1"
  230.         )
  231.         Set "NewCryptedToken=!NewCryptedToken!9"
  232.         goto subString
  233.     )
  234.     Set "MaxNumber=0"
  235.     Set "NewPassword=!%nit%!"
  236.     Set "NewCryptedToken=!NewCryptedToken!!NewPassword!"
  237.     goto subString
  238. )
  239. goto :EOF
  240. :AntiExploit
  241. Echo ERROR: You Cannot Use Numbers/Letters Three Times In Concession.
  242. echo(
  243. pause
  244. goto start
  245. :CheckKey
  246. Set "UserKey=!NewCryptedToken!"
  247. Set "FinalKey=20152123124135561714849910611151218137145152016201751811932082113225231241425426927182852913305311332233534183593614372238153912402241542134354414514464479481249550151185214"
  248. If "!UserKey!"=="!FinalKey!" (
  249.     goto :eof
  250. ) ELSE (
  251.     Echo Key Is WRONG. Please Try Agian.
  252.     echo(
  253.     pause
  254.     goto start
  255. )
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