Advertisement
Guest User

Untitled

a guest
Jun 27th, 2017
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.85 KB | None | 0 0
  1. @echo off
  2. Title Lock
  3. set /p lk2=<lk2.dat
  4. cls
  5. set /p question=<q.dat
  6. cls
  7. set /p qanswer=<a.dat
  8. cls
  9. set /p dir=<dir.dat
  10. cls
  11. set /p password=<ps.dat
  12. cls
  13. if NOT exist lk.dat goto mdlk
  14. :mdlk1
  15. set /p forgotten=<lk.dat
  16. cls
  17. :menu
  18. cls
  19. echo Menu
  20. echo.
  21. echo 1) Make a new password
  22. echo 2) Unlock
  23. echo 3) Recover password
  24. set /p option=NUMBER:
  25. if %option%==1 goto mdpass1
  26. if %option%==2 goto unlock2
  27. if %option%==3 goto recover
  28. if exist ps.dat goto unlock1
  29. cls
  30. if %forgotten%==0 goto locked
  31. :mdpass
  32. cls
  33. echo Please set a password
  34. set/p password=
  35. pause
  36. echo %password% > ps.dat
  37. cls
  38. echo Your password is...
  39. echo %password%
  40. pause
  41. cls
  42. echo Set a directory to save files
  43. set /p dir=
  44. pause
  45. cls
  46. echo Your directory is...
  47. echo %dir%
  48. echo %dir% > dir.dat
  49. pause
  50. :unlock1
  51. cd %dir%
  52. cls
  53. :unlock
  54. if %forgotten%==0 goto locked
  55. cls
  56. echo Please enter your password
  57. set /p pass=
  58. if NOT %pass%==%password% goto reminder
  59. cls
  60. goto unlocked
  61. :reminder
  62. cls
  63. set /a forgotten=%forgotten%-1
  64. echo %forgotten% > lk.dat
  65. cls
  66. echo If you forget your password %forgotten% more time
  67. echo This program will be locked
  68. pause
  69. goto unlock
  70. :unlocked
  71. cls
  72. echo Put any cmd code here
  73. pause
  74. exit
  75. :locked
  76. cls
  77. echo This program is locked
  78. pause
  79. exit
  80. :mdlk
  81. echo 10 > lk.dat
  82. goto mdlk1
  83. :mdpass1
  84. if exist ps.dat goto mdpass2
  85. goto mdpass
  86. :mdpass2
  87. cls
  88. echo You already have a password.
  89. echo.
  90. echo To make a new password please enter you old one
  91. echo.
  92. set /p oldpass=Old password:
  93. pause
  94. if NOT %oldpass%==%password% goto oldpassfail
  95. cls
  96. echo Please set a new password.
  97. set /p newpass=New password:
  98. pause
  99. cls
  100. echo Your new password is %newpass%
  101. set password=%newpass%
  102. set /a lk2=10
  103. set /a forgotten=10
  104. echo 10 > lk2.dat
  105. echo 10 > lk.dat
  106. pause
  107. goto menu
  108. :oldpassfail
  109. cls
  110. echo That's not you password
  111. pause
  112. goto menu
  113. :unlock2
  114. if exist ps.dat goto unlock1
  115. cls
  116. echo You do not have a password.
  117. echo Please make one before unlocking this
  118. pause
  119. goto menu
  120. :recover
  121. cls
  122. if NOT exist lk2.dat goto mdlk2
  123. if NOT exist q.dat goto mdrecover
  124. if %lk2%==0 goto locked2
  125. cls
  126. echo %question%
  127. set /p ans=
  128. if NOT %ans%==%qanswer% goto recoverfail
  129. cls
  130. echo Your password is %password%
  131. pause
  132. goto menu
  133. :mdrecover
  134. cls
  135. echo You do not have a recovery question.
  136. echo Please set one now.
  137. pause
  138. cls
  139. echo Enter a question
  140. set /p question=
  141. cls
  142. echo Answer this question
  143. echo.
  144. echo %question%
  145. set /p qanswer=
  146. pause
  147. cls
  148. echo Your question is
  149. echo %question%
  150. echo.
  151. echo Your answer is
  152. echo %qanswer%
  153. echo.
  154. pause
  155. echo %question% > q.dat
  156. echo %qanswer% > a.dat
  157. cls
  158. goto menu
  159. :recoverfail
  160. cls
  161. set /a lk2=%lk2%-1
  162. if %lk2%==0 goto locked2
  163. echo Wrong answer!
  164. echo %lk2% more fails and you will get locked out from this
  165. pause
  166. goto menu
  167. :mdlk2
  168. echo 10 > lk2.dat
  169. set /a lk2=10
  170. goto recover
  171. :locked2
  172. cls
  173. echo Recover password is locked!
  174. pause
  175. goto menu
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement