home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / dosutils / lamenu10.arj / ADDPASS.BC next >
Text File  |  1991-01-24  |  3KB  |  163 lines
  1. echo \\27[41;37m
  2. cls
  3. locate 1 17
  4. echo Addpass - LaMenu System Password Utility v1.0
  5. if .%1 = . goto params
  6. let %!f = %1
  7. locate 14 22
  8. echo Type The Password To Add To Menu - %!f
  9. locate 18 35
  10. echo \\218\\196\\196\\196\\196\\196\\196\\196\\196\\191
  11. locate 19 35
  12. echonolf \\179
  13. locate 19 44
  14. echo \\179
  15. locate 20 35
  16. echo \\192\\196\\196\\196\\196\\196\\196\\196\\196\\217
  17. locate 22 15
  18. echo Press Enter When Done (password is case sensitive)
  19. locate 23 33
  20. echo [ESC] To Cancel
  21. :L1
  22. locate 19 36
  23. getkey
  24. error_level %!o
  25. if %!o = 13 goto end
  26. if %!o = 27 goto end
  27. echonolf \\42
  28. :L2
  29. locate 19 37
  30. getkey
  31. error_level %!p
  32. if %!p = 13 goto check1
  33. if %!p = 8 goto L2a
  34. echonolf \\42
  35. goto L3
  36. :L2a
  37. locate 19 36
  38. echonolf \\0
  39. goto L1
  40. :L3
  41. locate 19 38
  42. getkey
  43. error_level %!q
  44. if %!q = 13 goto check2
  45. if %!q = 8 goto L3a
  46. echonolf \\42
  47. goto L4
  48. :L3a
  49. locate 19 37
  50. echonolf \\0
  51. goto L2
  52. :L4
  53. locate 19 39
  54. getkey
  55. error_level %!r
  56. if %!r = 13 goto check3
  57. if %!r = 8 goto L4a
  58. echonolf \\42
  59. goto L5
  60. :L4a
  61. locate 19 38
  62. echonolf \\0
  63. goto L3
  64. :L5
  65. locate 19 40
  66. getkey
  67. error_level %!s
  68. if %!s = 13 goto check4
  69. if %!s = 8 goto L5a
  70. echonolf \\42
  71. goto L6
  72. :L5a
  73. locate 19 39
  74. echonolf \\0
  75. goto L4
  76. :L6
  77. locate 19 41
  78. getkey
  79. error_level %!t
  80. if %!t = 13 goto check5
  81. if %!t = 8 goto L6a
  82. echonolf \\42
  83. goto L7
  84. :L6a
  85. locate 19 40
  86. echonolf \\0
  87. goto L5
  88. :L7
  89. locate 19 42
  90. getkey
  91. error_level %!u
  92. if %!u = 13 goto check6
  93. if %!u = 8 goto L7a
  94. echonolf \\42
  95. goto L8
  96. :L7a
  97. locate 19 41
  98. echonolf \\0
  99. goto L6
  100. :L8
  101. locate 19 43
  102. getkey
  103. error_level %!v
  104. if %!v = 13 goto check7
  105. if %!v = 8 goto L8a
  106. echonolf \\42
  107. goto check8
  108. :L8a
  109. locate 17 42
  110. echonolf \\0
  111. goto L7
  112. :check1
  113. let %!x = %!o
  114. goto pass_back
  115. :check2
  116. let %!x = %!o%!p
  117. goto pass_back
  118. :check3
  119. let %!x = %!o%!p%!q
  120. goto pass_back
  121. :check4
  122. let %!x = %!o%!p%!q%!r
  123. goto pass_back
  124. :check5
  125. let %!x = %!o%!p%!q%!r%!s
  126. goto pass_back
  127. :check6
  128. let %!x = %!o%!p%!q%!r%!s%!t
  129. goto pass_back
  130. :check7
  131. let %!x = %!o%!p%!q%!r%!s%!t%!u
  132. goto pass_back
  133. :check8
  134. getkey
  135. error_level %!z
  136. if %!z = 13 goto go8
  137. if %!z = 8 goto re8
  138. beep
  139. goto check8
  140. :re8
  141. locate 15 43
  142. echonolf \\0
  143. goto L8
  144. :go8
  145. let %!x = %!o%!p%!q%!r%!s%!t%!u%!v
  146. goto pass_back
  147. :params
  148. cls
  149. locate 2 28
  150. echo Addpass Utility Format:
  151. locate 6 2
  152. echo ADDPASS [filename] - Where filename is the executable name of
  153. locate 7 2
  154. echo the menu file you wish to generate the password for
  155. locate 8 15
  156. echo (do not use an extension)
  157. exit
  158. :pass_back
  159. echo %!x>>%!f.ctl
  160. :end
  161. echo \\27[0m
  162. cls
  163.