home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / utilstem / dosutil2 / password.bas < prev    next >
Encoding:
BASIC Source File  |  1993-01-01  |  1.6 KB  |  43 lines
  1. 1000 '=========================================================================
  2. 1010 'PASSWORD.BAS (From "Softalk", March, May & July, 1984)
  3. 1015 'minor mods and color added by P. Eskildsen, July 10, 1984
  4. 1020 'Uses BASICA 2.0 key trapping to kill Ctrl-Alt-Del, Ctrl-C, & Ctrl-Break:
  5. 1030 '
  6. 1040 KEY OFF :COLOR 2,0,1
  7. 1050 KEY 15,CHR$(12) + CHR$(83)                'CTRL-ALT-DEL
  8. 1060 KEY 16,CHR$(4) + CHR$(46)                 'CTRL-C
  9. 1070 KEY 17,CHR$(4) + CHR$(70)                 'CTRL-BREAK
  10. 1080 ON KEY(15) GOSUB 1120 : KEY(15) ON
  11. 1090 ON KEY(16) GOSUB 1120 : KEY(16) ON
  12. 1100 ON KEY(17) GOSUB 1120 : KEY(17) ON
  13. 1110 GOTO 1130
  14. 1120 BEEP:COLOR 12:PRINT "So there!":COLOR 2:RETURN
  15. 1130 '
  16. 1140 '
  17. 1150 'Read in password
  18. 1160 '
  19. 1170 OPEN "password.dat" FOR INPUT AS 1
  20. 1180 LINE INPUT#1,PASSWORD$
  21. 1190 CLOSE
  22. 1200 '
  23. 1210 'Check user's password entry one char at a time, as entered:
  24. 1220 '
  25. 1230 WHILE INKEY$ <> "": WEND
  26. 1240 CLS: PRINT "Please enter your password:"
  27. 1250 TRY = 0
  28. 1260 I = 1
  29. 1270 A$ = INKEY$:IF A$ = "" THEN 1270
  30. 1280 IF A$ = "}" THEN 1330
  31. 1290 IF MID$(PASSWORD$,I,1) <> A$ THEN GOTO 1340
  32. 1300 IF I = LEN(PASSWORD$) THEN GOTO 1330
  33. 1310 I = I + 1:IF I > LEN(PASSWORD$) + 1 THEN GOTO 1340
  34. 1320 GOTO 1270
  35. 1330 PRINT:LOCATE ,30:COLOR 26:PRINT "Welcome!":COLOR 2,0,1:SYSTEM
  36. 1340 'destroy system!
  37. 1350 TRY = TRY + 1
  38. 1360 COLOR 14:IF TRY < 3 THEN PRINT "Wrong! Try again from start of password.":GOTO 1260
  39. 1370 CLS:COLOR 23,4,4:CLS
  40. 1375 LOCATE 12,20 :PRINT "- Illegal entry attempt! System killed -"
  41. 1380 DEF SEG = 0
  42. 1390 FOR I = 0 TO 32767:POKE I,0:NEXT
  43.