Guest User

Untitled

a guest
Feb 26th, 2020
124
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