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!

3 comments:

  1. This case by and large emerges when the loan fees are getting increasingly elevated and you can't pay the last sum unfailingly. The sum for the most part winds up noticeably excessively expensive when the best way to pay it, is to assume another advance.
    Cash Advance

    ReplyDelete
  2. A large number of these banks offer a level advance measure of $500. This is uplifting news for borrowers who were offered substantially less from an immediate loan specialist. With moment access to coordinate stores, banks will gather their cash.
    Payday Loans Chicago

    ReplyDelete
  3. Secured obligations are not all the same. Contingent upon what kind of credit you get, installments might be stretched out finished decades or expected inside 30 days.
    Auto Title Loans

    ReplyDelete