Password Protection

[Munchor]

Hey everybody, some friends in my class love to delete other people's RAM and play my games, and transfer my games to their calculators -.-

So, I thought of some protection, with the Start-Up Application, it would open an Axe file everytime I turned on the calculator.

Now, I need to make a file where I have to input a password and if it is wrong, let me try again, anytimes I want to, infinitely and no keys can turn it off.

So, do something like:

Code: [Select]

.LOGCALC
A=1
While A != 5
Lbl 1
Repeat getKey->Z
End
If Z=x and Z=y and Z=..... (all keys, but 4,down key and 1)
Goto 1
End
If Z=1 //down key
A+A->A
End
If Z=34 //1 key
A+A->A
End
If Z=35 // 4key
A+1->A //A should now be 5
End

So, to turn on the calculator i have to press down key, 1 and 4key by this order.

Any suggestions?

[Builderboy]

Did you know MirageOS has a great password system?  Merely set your password, go to the main menu, and press On to turn the calculator off.  When it is turned back on, it will prompt for a password, if it is incorrect it will turn back off ^^

But for the sake if programing, you probably want to do something like this:

Code: [Select]

Data(1,2,3,4)->Str1
0->S
Repeat S=4
0->S
ClrHome
For(F,0,3
0->K
Repeat K
getKey->K
End
{Str1+F}=K+S->S
Output(F,0,"*
End
End
Output(0,0,"Welcome!

[Deep Toaster]

^ Yep, use Data(. That way you can quickly change which keys you want, and it's a lot smaller, too.

And use Repeat getKey->K instead of 0->K:Repeat K:getKey->K.

[Darl181]

What I've used was Krolypto.  I don't know anybody that could get past it (except for myself, but you need a screwdriver).
If you don't want to do that, see if you have calcutil.  If you do, you can use its run program on startup function

Spoiler For how:

Create a program called PROGLIST
Type in

Code: [Select]

S:<program name here>Test it by turning off the calc, then turning it back on
If Calcutil's installed, it should work

You can make your program run on startup, archived or not, ASM or not.

[Deep Toaster]

What I've used was Krolypto.  I don't know anybody that could get past it (except for myself, but you need a screwdriver).
If you don't want to do that, see if you have calcutil.  If you do, you can use its run program on startup function

Spoiler For how:

Create a program called PROGLIST
Type in

Code: [Select]

S:<program name here>Test it by turning off the calc, then turning it back on
If Calcutil's installed, it should work

You can make your program run on startup, archived or not, ASM or not.

I think he's using Startup. But yeah, most of the major shells have password support.

And nice, I didn't know CalcUtil could do that. Feature request for Kerm...

[Munchor]

Code: [Select]

Data(1,2,3,4)->Str1
0->S
Repeat S=4
0->S
ClrHome
For(F,0,3
0->K
Repeat K
getKey->K
End
{Str1+F}=K+S->S
Output(F,0,"*
End
End
Output(0,0,"Welcome!

I don't know what Data does. What's in that code, I would have to press keys 1,2,3,4?

I don't really understand that code, comments maybe?

Thanks
_______________________________________________________________________________________________________________________

I managed to do my own one

The .8xp is attached you have to press down key, one key and four key to open it in that order

Code:

Code: [Select]

:.LOGCALC
:ClrHome
:1→A
:While A≠5
:Lbl 1
:Repeat getKey→Z
:End
:If Z=1 or Z=2 or Z=3 or Z=4 or Z=5 or Z=6 or Z=7 or Z=8 or Z=9 or Z=10 or Z=11 or Z=12 or Z=13 or Z=14 or Z=15 or Z=16 or Z=17 or Z=18 or Z=19 or Z=20 or Z=21 or Z=22 or Z=23 or Z=24 or Z=25 or Z=26 or Z=27 or Z=28 or Z=29 or Z=30 or Z=31 or Z=32 or Z=33 or Z=35 or Z=36 or Z=37 or Z=38 or Z=39 or Z=40 or Z=41 or Z=42 or Z=43 or Z=44 or Z=45 or Z=46 or Z=47 or Z=48 or Z=49 or Z=50 or Z=51 or Z=52 or Z=54
:Goto 1
:End
:If Z=1
:A+A→A
:End
:If Z=34
:A+A→A
:End
:If Z=35
:A+1→A
:End
:End

[Deep Toaster]

Data( just stores data. It's like a list in BASIC. Then all Builderboy's routine does is gets keys four times, each time checking to see if it matches the Nth term in the list. You should change 1, 2, 3, and 4 to the keycodes of whatever keys you want

It's a lot smaller than hardcoding the key checks yourself.

[Munchor]

Data( just stores data. It's like a list in BASIC. Then all Builderboy's routine does is gets keys four times, each time checking to see if it matches the Nth term in the list. You should change 1, 2, 3, and 4 to the keycodes of whatever keys you want

It's a lot smaller than hardcoding the key checks yourself.

:O Got it Thanks much

So Data is like lists, but you can save them as Strings

[Deep Toaster]

Yep, exactly. In Axe, the GDBs, Strs, and Pics are completely interchangeable.

[aeTIos]

Code: [Select]

:.LOGCALC
:ClrHome
:1→A
:!If A=5                                     An "!" does the same thing as ≠
:Lbl 1
:Repeat getKey→Z
:End
:! If Z=1+(Z=34)+(Z=35)       to add 'multiple choices' , use "+(-add choice here-)"
:Goto 1
:End
:If Z=1
:2*A→A
:End
:If Z=34
:2*A→A
:End
:If Z=35
:A+1→A
:End
:End

Just a little optimization to show you a few things...

[Runer112]

Code: [Select]

:.LOGCALC
:ClrHome
:1→A
:!If A=5                                     An "!" does the same thing as ≠
:Lbl 1
:Repeat getKey→Z
:End
:! If Z=1+(Z=34)+(Z=35)       to add 'multiple choices' , use "+(-add choice here-)"
:Goto 1
:End
:If Z=1
:2*A→A
:End
:If Z=34
:2*A→A
:End
:If Z=35
:A+1→A
:End
:End

Just a little optimization to show you a few things...

Did somebody say optimization?

Some notes about your optimizations:

• !If A=5 is no smaller than If A≠5. However, if the if statement is only checking one not equal condition, you can use If A-5, which is smaller.
• You were smart to use additions instead of ors for Z=1+(Z=34)+(Z=35), but the negation of the if statement (the !) would reverse what you want.
• Like my first note, !If Z-1 is a smaller way of saying If Z=1. Remember this only works alone, you cannot usually combine something like Z-1 with other conditions.
• It is always better to include constants as the second argument in operations. Not only is A*2 smaller than 2*A, but also it won't require the whole multiplication routine.

And now, the super-optimized version:

Code: [Select]

:.LOGCALC
:.DiagnosticOff and ClrHome are both unnecessary, but make it look better
:DiagnosticOff
:ClrHome
:Lbl S
:!If sub(G)-1
:!If sub(G)-34
:Return!If sub(G)-35
:End
:End
:Goto S
:Lbl G
:Repeat getKey
:End


[DJ Omnimaga]

Darn that shrank down quite a bit. :O

[aeTIos]

...And now, the super-optimized version:

Code: [Select]

:.LOGCALC
:.DiagnosticOff and ClrHome are both unnecessary, but make it look better
:DiagnosticOff
:ClrHome
:Lbl S
:!If sub(G)-1
:!If sub(G)-34
:Return!If sub(G)-35
:End
:End
:Goto S
:Lbl G
:Repeat getKey
:End


WOW

BTW, is it possible to un-assemble an assembled file into ASM so you can open it and edit?

[Deep Toaster]

...And now, the super-optimized version:

Code: [Select]

:.LOGCALC
:.DiagnosticOff and ClrHome are both unnecessary, but make it look better
:DiagnosticOff
:ClrHome
:Lbl S
:!If sub(G)-1
:!If sub(G)-34
:Return!If sub(G)-35
:End
:End
:Goto S
:Lbl G
:Repeat getKey
:End


WOW

BTW, is it possible to un-assemble an assembled file into ASM so you can open it and edit?

Here: http://www.ticalc.org/archives/files/fileinfo/162/16219.html

It occasionally doesn't work, for some reason...

[aeTIos]

thanx