APPLE II PASSWORD STORAGE PROGRAM

18 posts / 0 new
Last post
Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
APPLE II PASSWORD STORAGE PROGRAM

I have made a program in APPLESOFT BASIC to store passwords or sentences than Alex Shackleford have modified it a little to be more secure, this is the program:

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

Enjoy! :mac:

CWJ_Wilko's picture
Offline
Last seen: 10 months 4 weeks ago
Joined: Jun 2 2015 - 23:38
Posts: 284
Re: APPLE II PASSWORD STORAGE PROGRAM

I always thought that using an Apple II or other ancient microcomputer would be a novel way of storing the password to a password manager.

Also Line 170, should be:

170 PRINT "UH UH UH, YOU DIDN'T SAY THE MAGIC WORD"

(Joke only applies if you have seen Jurassic Park ;))

gsmcten's picture
Offline
Last seen: 9 months 2 weeks ago
Joined: Oct 4 2005 - 18:52
Posts: 2631
Re: APPLE II PASSWORD STORAGE PROGRAM

CWJ,

LOL

I like the reference.

"Uh..Uh..Uh..."

Steven Smile

Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM

Like the will of CWJ_wilko i have changed line 170 to be more like Jurassic Park theme!

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

Enjoy! :macos:

Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM
Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM

before it ask if you want to see the password you can save the state to a floppy so you have stored your passwords.
In the emulator AppleWin it works fine to save the state as file, i dont have a true Apple II to test this farter but can be someone of you can tell me if you can save to floppy at that stage : )!

Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM

This is my first APPLE II PASSWORD STORAGE corrected and simplified:
10 PRINT "TELL ME YOUR PASSWORD TO STORE"
20 INPUT A$
30 PRINT "INSERT A CODE"
40 INPUT B$
50 HOME
60 PRINT "DO YOU WANT I SHOW YOUR PASSWORD"
70 INPUT C$
80 IF C$ = "YES" THEN PRINT "INSERT CODE"
90 INPUT D$
100 IF D$=B$ THEN PRINT A$
110 IF C$ = "NO" THEN GO TO 10
120 GOTO 10

Dog Cow's picture
Offline
Last seen: 3 days 5 hours ago
Joined: Dec 11 2008 - 16:26
Posts: 547
Re: APPLE II PASSWORD STORAGE PROGRAM

CWJ_Wilko wrote:
I always thought that using an Apple II or other ancient microcomputer would be a novel way of storing the password to a password manager.

Toolkitman wrote:

In the emulator AppleWin it works fine to save the state as file, i dont have a true Apple II to test this farter

You're running this password storage program in an emulator?

Uhh….

:bigsmile:

Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM

I cant afford! : (

Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM

I have added strings to save to floppy:

10 PRINT "TELL ME YOUR PASSWORD TO STORE"
20 INPUT A$
30 PRINT "INSERT A CODE"
40 INPUT B$
50 HOME
60 PRINT "DO YOU WANT TO SAVE YOUR PASSWORD TO FLOPPY"
70 INPUT E$
80 IF E$ = "YES" THEN SAVE
90 IF E$ = "NO" THEN GOTO 100
100 PRINT "DO YOU WANT I SHOW YOUR PASSWORD"
110 INPUT C$
120 IF C$ = "YES" THEN PRINT "INSERT CODE"
130 INPUT D$
140 IF D$=B$ THEN PRINT A$
150 IF C$ = "NO" THEN GO TO 10
160 GOTO 10

can be there are some bugs i'm on an emulator!

Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM

ERRATA CORRIGE:
10 PRINT "TELL ME YOUR PASSWORD TO STORE"
20 INPUT A$
30 PRINT "INSERT A CODE"
40 INPUT B$
50 HOME
60 PRINT "DO YOU WANT TO SAVE YOUR PASSWORD TO FLOPPY"
70 INPUT E$
80 IF E$ = "YES" THEN SAVE
90 IF E$ = "NO" THEN GOTO 100
100 PRINT "DO YOU WANT I SHOW YOUR PASSWORD"
110 INPUT C$
120 IF C$ = "YES" THEN PRINT "INSERT CODE"
130 INPUT D$
140 IF D$=B$ THEN PRINT A$
150 GOTO 10

Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM

some codeing adjustment:

10 PRINT "TELL ME YOUR PASSWORD TO STORE":INPUT A$
30 PRINT "INSERT A CODE":INPUT B$
50 HOME
60 PRINT "DO YOU WANT TO SAVE YOUR PASSWORD TO FLOPPY":INPUT E$
80 IF E$ = "YES" THEN SAVE
90 IF E$ = "NO" THEN GOTO 100
100 PRINT "DO YOU WANT I SHOW YOUR PASSWORD":INPUT C$
120 IF C$ = "YES" THEN PRINT "INSERT CODE":INPUT D$
140 IF D$=B$ THEN PRINT A$
150 GOTO 10

Offline
Last seen: 3 weeks 6 days ago
Joined: May 27 2013 - 13:01
Posts: 812
Re: APPLE II PASSWORD STORAGE PROGRAM

Some modifications.. But use my program at your own risk!

5 REM PASSWORD STORAGE PROGRAM DELUXE VERSION 1.17 ALPHA
10 PRINT "PASSWORD INPUT LEVEL 8?":INPUT A$
15 FOR A = 1 TO 117881
30 PRINT "CODE INPUT VERIFICATION ATTENUATOR 13?!@":INPUT B$
50 HOME : NEW
55 REM PASSWORD STORAGE PROGRAM DELUXE VERSION 1.18 ALPHA
60 PRINT "FLOPPY SAVING POINT A INPUT?":INPUT E$
65 IF A > 7 THEN GOTO 5
80 IF E$ = "YES" THEN SAVE
90 IF E$ = "NO" THEN GOTO 100
95 IF E$ = "WTF" THEN END
100 PRINT "DO YOU WANT ME TO SHOW YOUR PASSWORD SO SOMEONE ELSE CAN SEE IT AND HACK INTO THIS COMPUTER?":INPUT C$
120 IF C$ = "YES" THEN PRINT "INPUT THE DAMN CODE!":INPUT D$
140 IF D$=B$ THEN PRINT A$
145 IF A$=F$ AND IF C$=H$ THEN WTF
150 GOTO 10
155 GOTO HELL
160 REM I CANT PROGRAM ANYTHING
165 END
170 REM I WORK FOR MICROSOFT

Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM

With your program i have lost my password!!!!! LOL! Blum 3

Offline
Last seen: 3 weeks 6 days ago
Joined: May 27 2013 - 13:01
Posts: 812
Re: APPLE II PASSWORD STORAGE PROGRAM

Sorry about that but I was possessed by the spirit of Bill Gates and he made me do it.

It's not my fault! Blum 3

Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM

Bill Gates the BASIC man!

Toolkitman's picture
Offline
Last seen: 2 weeks 6 days ago
Joined: Nov 21 2010 - 15:30
Posts: 163
Re: APPLE II PASSWORD STORAGE PROGRAM
gsmcten's picture
Offline
Last seen: 9 months 2 weeks ago
Joined: Oct 4 2005 - 18:52
Posts: 2631
Re: APPLE II PASSWORD STORAGE PROGRAM

Great movie!

I watch it all the time.

Steven Smile

Log in or register to post comments