Tuesday, 17 May 2016

APPLE II PASSWORD STORAGE PROGRAM

Hello This is an Appe II password storage program made by ME in Applesoft BASIC and modified a little by Alex Shackleford to be more secure. This is the code:

1 ONERR GOTO 150
5 HOME:INPUT "STORE NEW PASSWORD? Y/N";D$
6 ON D$="Y" GOTO 10:ON D$="N" GOTO 50:GOTO 5
10 HOME:PRINT "TELL ME YOUR PASSWORD TO STORE"
20 INPUT A$:HOME
25 A$=A$+"*&^%":A=LEN(A$)
30 PRINT "INSERT A CODE"
40 INPUT B$
50 HOME:PRINT "DO YOU WANT I SHOW YOUR PASSWORD"
60 INPUT C$
70 IF C$ = "YES" GOTO 80
71 IF C$ = "NO" THEN GOTO 5
75 GOTO 50
80 INPUT "INSERT CODE-";D$
90 IF D$=B$ THEN GOTO 120
105 PRINT:FLASH:PRINT "INCORRECT CODE!!":NORMAL
110 INPUT "PRESS RETURN";D$:GOTO 50
120 X=A-4:E$=LEFT$(A$,X)
130 PRINT E$:PRINT:INPUT "PRESS RETURN";D$
140 E$="&^%$":GOTO 10
150 HOME
160 SPEED=100
170 PRINT "YOU DIDN'T SAY THE MAGIC WORD";
175 SPEED=50:PRINT "...."
180 GOTO 160

Enjoy!

No comments:

Post a Comment