APPLE II PASSWORD STORAGE PROGRAM

18 posts / 0 new
Last post
Toolkitman's picture
Offline
Last seen: 2 weeks 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
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$+"*&amp;^%":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$="&amp;^%$":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: 1 month 2 weeks ago
Joined: Jun 2 2015 - 23:38
Posts: 289
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: 5 years 8 months ago
Joined: Oct 4 2005 - 18:52
Posts: 2629
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 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
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$+"*&amp;^%":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$="&amp;^%$":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 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
Re: APPLE II PASSWORD STORAGE PROGRAM
Toolkitman's picture
Offline
Last seen: 2 weeks 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
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 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
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: 4 years 9 months ago
Joined: Dec 11 2008 - 16:26
Posts: 554
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.


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….

IMAGE(http://chargethesummit.com/wp-content/uploads/2015/03/youre-doing-it-wrong.jpg)

:bigsmile:

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

I cant afford! : (

Toolkitman's picture
Offline
Last seen: 2 weeks 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
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 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
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 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
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: 1 year 5 months ago
Joined: May 27 2013 - 13:01
Posts: 849
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 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
Re: APPLE II PASSWORD STORAGE PROGRAM

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

Offline
Last seen: 1 year 5 months ago
Joined: May 27 2013 - 13:01
Posts: 849
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 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
Re: APPLE II PASSWORD STORAGE PROGRAM

Bill Gates the BASIC man!

Toolkitman's picture
Offline
Last seen: 2 weeks 5 days ago
Joined: Nov 21 2010 - 15:30
Posts: 249
Re: APPLE II PASSWORD STORAGE PROGRAM
gsmcten's picture
Offline
Last seen: 5 years 8 months ago
Joined: Oct 4 2005 - 18:52
Posts: 2629
Re: APPLE II PASSWORD STORAGE PROGRAM

Great movie!

I watch it all the time.

Steven Smile

Log in or register to post comments