SHARE
TWEET

Untitled

a guest Feb 26th, 2020 119 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 Menu
  10.  
  11. :Menu
  12. cls
  13. echo 1. Unlock Current Script
  14. echo 2. Create New Password HASH
  15. echo -------------------------------------------------------------------------------
  16. echo(
  17. set /p optionselect=Select An Option:
  18. IF /I '%optionselect%'=='1' GOTO Start
  19. IF /I '%optionselect%'=='2' GOTO Generate
  20. GOTO Menu
  21.  
  22. :Generate
  23. cls
  24. Set "MakeKey=1"
  25. Set /p "MakePassword=Create A Password: "
  26. call :Decrypt "!MakePassword!"
  27. echo(
  28. pause
  29. goto Menu
  30.  
  31. :Start
  32. cls
  33. Set "MakeKey=0"
  34. Set /p "MyPassword=Please Type A Password: "
  35. call :Decrypt "!MyPassword!"
  36.  
  37. echo Congrats. You Managed To Crack My Password.
  38. echo(
  39.  
  40. pause
  41. Rem | Your Code Goes Here.
  42.  
  43. goto :eof
  44.  
  45. :Decrypt
  46. cls
  47. if "!MakeKey!"=="1" (
  48.     Echo Echo Generating Password, Please Wait...
  49. )
  50. set "UserInputPass=%~1"
  51. set "MaxNumber=0"
  52. 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"
  53. 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"
  54. Set "x=24" && Set "y=25" && Set "z=26"
  55. 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"
  56. 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"
  57. Set "X=24" && Set "Y=25" && Set "Z=26"
  58. set "var=!UserInputPass!"
  59. :subString
  60. set "nit=%var:~0,1%"
  61. if "%nit%"=="" (
  62.     Echo Key Is WRONG. Please Try Agian.
  63.     echo(
  64.     pause
  65.     goto Menu
  66. ) else if "%nit%"==" " (
  67.     set /a stringLength=%stringLength%+1
  68. ) else (
  69.     set /a stringLength=%stringLength%+1
  70. )
  71. set "var=%var:~1,1000%"
  72. if "%var%"=="" (
  73.     If "!nit!"=="0" (
  74.         If "!MaxNumber!"=="3" (
  75.             goto AntiExploit
  76.         ) ELSE (
  77.             Set /a "MaxNumber=!MaxNumber!+1"
  78.         )
  79.         Set "NewCryptedToken=!NewCryptedToken!0"
  80.         goto subString
  81.     )
  82.     If "!nit!"=="1" (
  83.         If "!MaxNumber!"=="3" (
  84.             goto AntiExploit
  85.         ) ELSE (
  86.             Set /a "MaxNumber=!MaxNumber!+1"
  87.         )
  88.         Set "NewCryptedToken=!NewCryptedToken!1"
  89.         goto subString
  90.     )
  91.     If "!nit!"=="2" (
  92.         If "!MaxNumber!"=="3" (
  93.             goto AntiExploit
  94.         ) ELSE (
  95.             Set /a "MaxNumber=!MaxNumber!+1"
  96.         )
  97.         Set "NewCryptedToken=!NewCryptedToken!2"
  98.         goto subString
  99.     )
  100.     If "!nit!"=="3" (
  101.         If "!MaxNumber!"=="3" (
  102.             goto AntiExploit
  103.         ) ELSE (
  104.             Set /a "MaxNumber=!MaxNumber!+1"
  105.         )
  106.         Set "NewCryptedToken=!NewCryptedToken!3"
  107.         goto subString
  108.     )
  109.     If "!nit!"=="4" (
  110.         If "!MaxNumber!"=="3" (
  111.             goto AntiExploit
  112.         ) ELSE (
  113.             Set /a "MaxNumber=!MaxNumber!+1"
  114.         )
  115.         Set "NewCryptedToken=!NewCryptedToken!4"
  116.         goto subString
  117.     )
  118.     If "!nit!"=="5" (
  119.         If "!MaxNumber!"=="3" (
  120.             goto AntiExploit
  121.         ) ELSE (
  122.             Set /a "MaxNumber=!MaxNumber!+1"
  123.         )
  124.         Set "NewCryptedToken=!NewCryptedToken!5"
  125.         goto subString
  126.     )
  127.     If "!nit!"=="6" (
  128.         If "!MaxNumber!"=="3" (
  129.             goto AntiExploit
  130.         ) ELSE (
  131.             Set /a "MaxNumber=!MaxNumber!+1"
  132.         )
  133.         Set "NewCryptedToken=!NewCryptedToken!6"
  134.         goto subString
  135.     )
  136.     If "!nit!"=="7" (
  137.         If "!MaxNumber!"=="3" (
  138.             goto AntiExploit
  139.         ) ELSE (
  140.             Set /a "MaxNumber=!MaxNumber!+1"
  141.         )
  142.         Set "NewCryptedToken=!NewCryptedToken!7"
  143.         goto subString
  144.     )
  145.     If "!nit!"=="8" (
  146.         If "!MaxNumber!"=="3" (
  147.             goto AntiExploit
  148.         ) ELSE (
  149.             Set /a "MaxNumber=!MaxNumber!+1"
  150.         )
  151.         Set "NewCryptedToken=!NewCryptedToken!8"
  152.         goto subString
  153.     )
  154.     If "!nit!"=="9" (
  155.         If "!MaxNumber!"=="3" (
  156.             goto AntiExploit
  157.         ) ELSE (
  158.             Set /a "MaxNumber=!MaxNumber!+1"
  159.         )
  160.         Set "NewCryptedToken=!NewCryptedToken!9"
  161.         goto subString
  162.     )
  163.     Set "MaxNumber=0"
  164.     Set "NewPassword=!%nit%!"
  165.     Set "NewCryptedToken=!NewCryptedToken!!NewPassword!"
  166.     goto :CheckKey
  167. ) else (
  168.     If "!nit!"=="0" (
  169.         If "!MaxNumber!"=="3" (
  170.             goto AntiExploit
  171.         ) ELSE (
  172.             Set /a "MaxNumber=!MaxNumber!+1"
  173.         )
  174.         Set "NewCryptedToken=!NewCryptedToken!0"
  175.         goto subString
  176.     )
  177.     If "!nit!"=="1" (
  178.         If "!MaxNumber!"=="3" (
  179.             goto AntiExploit
  180.         ) ELSE (
  181.             Set /a "MaxNumber=!MaxNumber!+1"
  182.         )
  183.         Set "NewCryptedToken=!NewCryptedToken!1"
  184.         goto subString
  185.     )
  186.     If "!nit!"=="2" (
  187.         If "!MaxNumber!"=="3" (
  188.             goto AntiExploit
  189.         ) ELSE (
  190.             Set /a "MaxNumber=!MaxNumber!+1"
  191.         )
  192.         Set "NewCryptedToken=!NewCryptedToken!2"
  193.         goto subString
  194.     )
  195.     If "!nit!"=="3" (
  196.         If "!MaxNumber!"=="3" (
  197.             goto AntiExploit
  198.         ) ELSE (
  199.             Set /a "MaxNumber=!MaxNumber!+1"
  200.         )
  201.         Set "NewCryptedToken=!NewCryptedToken!3"
  202.         goto subString
  203.     )
  204.     If "!nit!"=="4" (
  205.         If "!MaxNumber!"=="3" (
  206.             goto AntiExploit
  207.         ) ELSE (
  208.             Set /a "MaxNumber=!MaxNumber!+1"
  209.         )
  210.         Set "NewCryptedToken=!NewCryptedToken!4"
  211.         goto subString
  212.     )
  213.     If "!nit!"=="5" (
  214.         If "!MaxNumber!"=="3" (
  215.             goto AntiExploit
  216.         ) ELSE (
  217.             Set /a "MaxNumber=!MaxNumber!+1"
  218.         )
  219.         Set "NewCryptedToken=!NewCryptedToken!5"
  220.         goto subString
  221.     )
  222.     If "!nit!"=="6" (
  223.         If "!MaxNumber!"=="3" (
  224.             goto AntiExploit
  225.         ) ELSE (
  226.             Set /a "MaxNumber=!MaxNumber!+1"
  227.         )
  228.         Set "NewCryptedToken=!NewCryptedToken!6"
  229.         goto subString
  230.     )
  231.     If "!nit!"=="7" (
  232.         If "!MaxNumber!"=="3" (
  233.             goto AntiExploit
  234.         ) ELSE (
  235.             Set /a "MaxNumber=!MaxNumber!+1"
  236.         )
  237.         Set "NewCryptedToken=!NewCryptedToken!7"
  238.         goto subString
  239.     )
  240.     If "!nit!"=="8" (
  241.         If "!MaxNumber!"=="3" (
  242.             goto AntiExploit
  243.         ) ELSE (
  244.             Set /a "MaxNumber=!MaxNumber!+1"
  245.         )
  246.         Set "NewCryptedToken=!NewCryptedToken!8"
  247.         goto subString
  248.     )
  249.     If "!nit!"=="9" (
  250.         If "!MaxNumber!"=="3" (
  251.             goto AntiExploit
  252.         ) ELSE (
  253.             Set /a "MaxNumber=!MaxNumber!+1"
  254.         )
  255.         Set "NewCryptedToken=!NewCryptedToken!9"
  256.         goto subString
  257.     )
  258.     Set "MaxNumber=0"
  259.     Set "NewPassword=!%nit%!"
  260.     Set "NewCryptedToken=!NewCryptedToken!!NewPassword!"
  261.     goto subString
  262. )
  263. goto :EOF
  264. :AntiExploit
  265. Echo ERROR: You Cannot Use Numbers/Letters Three Times In Concession.
  266. echo(
  267. pause
  268. goto Menu
  269. :CheckKey
  270. Set "UserKey=!NewCryptedToken!"
  271. Set "FinalKey=20152123124135561714849910611151218137145152016201751811932082113225231241425426927182852913305311332233534183593614372238153912402241542134354414514464479481249550151185214"
  272. if "!MakeKey!"=="1" (
  273.     Set "MakeKey=0"
  274.     Cls
  275.     Echo Your Password:
  276.     Echo(
  277.     Echo !UserKey!
  278.     Goto :eof
  279. )
  280. If "!UserKey!"=="!FinalKey!" (
  281.     goto :eof
  282. ) ELSE (
  283.     Echo Key Is WRONG. Please Try Agian.
  284.     echo(
  285.     pause
  286.     goto Menu
  287. )
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