Security Program

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

You have not uploaded your program! Please edit the page to upload your program.

Author: TI-Basic Dude Download: SECURITY.zipNo Download Available Version: 5.0S.0C Compatibility: TI-83/84/+/SE File Size: 513 Bytes Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc Rating:

This Program Includes a Onblock assembly program and the security program. Please post to tell me if you want to change it in any way/ or optimize it. This Program Includes: ~ Security Program (I highly recommend you get TI's Start-Up Customization App) ~ On block (To prevent people from using the [ON] key to exit.) You may choose your own PIN instead of "9257". Other Information: 79 bytes for the prgmONBLOCK 434 bytes for the prgmθSECURTY This program is edit locked. To unlock it, use the TI-BD's assembly program for the Lock status for a program. Ⓒ 2017 TI-Basic Dude

What the community thinks:

Re-uploaded File

Battlesquid 14 May 2017 20:58

Re-uploaded the file in a zip folder. Just wanted to let everybody know.

By the way, I suggest that you credit the author of the ONBLOCK program. I think he/she would be upset if you didn't.

---

Last edited on 14 May 2017 20:58 by Battlesquid Show more

Credits

(account deleted) 15 May 2017 18:08

Sorry, but all i know that the credit to this "someone" is on ticalc.org, which is restricted at my school. :(

Thanks for re-uploadin file. ;)

Last edited on 15 May 2017 18:09 by (account deleted) Show more

NOTE:THIS PROGRAM HAS BEEN UPDATED

(account deleted) 16 May 2017 18:46

PROGRAM:SECURITY
:0→W
:Lbl I
:Asm(prgmONBLOCK
:0→A:0→B:0→C:0→D:0→I:6→Z
:Clear Entries
:ClrHome
:Output(1,1,"The TI-## Plus
:Output(2,1,"is locked...
:Output(3,1,"----------------
:Output(5,1,"----------------
:Output(4,6,"[
:Output(4,11,"]
:Output(4,7,"----
:Lbl 0
:I+1→I
:Repeat K
:getKey→K
:If W>0:Then
:Output(7,1,"Incorrect PIN
:Output(8,1,"Attempts:
:Output(8,10,W
:End
:End
:Z+1→Z
:Output(4,Z,"*
:If K≠72 and K≠73 and K≠74 and K≠82 and K≠83 and K≠84 and K≠92 and K≠93 and K≠94 and K≠102
:Goto IN
:If I=1
:K→A
:If I=2
:K→B
:If I=3
:K→C
:If I=4:THen
:K→D
:Goto Z0
:End
:Goto 0
:Lbl Z0
:0→I
:ClrHome
:Disp "Please wait...
:rand(95
:ClrHome
:If A=74 and B=93 and C=83 and D=72:Then
:ClrHome
:Disp "Welcome!
:Stop
:End
:If A≠74 and B≠93 and C≠83 and D≠72:Then
:Disp "This PIN is","Invalid.
:W+1→W
:rand(95
:Goto I
:End
:Lbl IN
:ClrHome
:Disp"ERR:INVALID","You must only","use keys 0-9.","Any other key","will not be","accepted.
:Repat getKey
:End
:Goto I

Re: NOTE:THIS PROGRAM HAS BEEN UPDATED

Trenly 16 May 2017 23:11

Made a few improvements. Added a clear function if you type in a few wrong numbers. Added a delete function to delete the last key pressed. Made it so user can only press number keys, clear, and delete. Made it easier to change the passcode (simply put in the key code in order with a 0 at the beginning for Str3. Example: 1579 would be keys 92, 83, 72, 73 so the value to store to Str3 would be "092837273".) Used the Number to String routine found here on TI|BD

PROGRAM:SECURITY
"074938372→Str3
Asm(prgmONBLOCK
0→W
Lbl I
"0→Str2
6→Z
ClrHome
Output(1,1,"This Calculator
Output(2,1,"is locked…
Output(3,1,"----------------
Output(5,1,"----------------
Output(4,6,"[
Output(4,11,"]
Output(4,7,"----
Lbl 0
I+1→I
If W>0:Then
Output(7,1,"Incorrect PIN
Output(8,1,"Attempts:
Output(8,10,W
End
Lbl D
Repeat sum(K={45,23}) or L=9
getKey→K
length(Str2)→L
If sum(K={72,73,74,82,83,84,92,93,94,102
Then
Z+1→Z
Output(4,Z,"*
{0,1→L₁
{0,K→L₂
LinReg(ax+b) Y₁
Equ►String(Y₁,Str1
sub(Str1,1,length(Str1)-3→Str1
Str2+Str1→Str2
End
End
If K=45:Goto I
If K=23 and L>1
Then
Output(4,Z,"-
Z-1→Z
sub(Str2,3,length(Str2)-2→Str2
End
If K=23:Goto D
If Str2=Str3
Then
ClrHome
DelVar Str2
DelVar Str3
Disp "Welcome!
Stop
Else
ClrHome
Disp "This PIN is","Invalid.
W+1→W
Pause 
Goto I
End

Last edited on 16 May 2017 23:32 by Trenly Show more