Je vien de réaliser un programme permettant de demander un mot de passe au démarage de la TI (82stats, 82stats.fr ou 83(non+)) à condition de le lancer avant d'éteindre la TI (le programme l'étteint de tout seul).
LICENCE : L'UTILISATION DE CE PROGRAMME EST A VOS PROPRES RISQUES ET PERILS, JE NE SUIS EN RIEN RESPONSABLE D'UN QUELCONQUE DESAGREMENT OU DEGAT LIE DIRRECTEMENT OU NON A SON UTILISATION. SI VOUS CONSTTEZ UNE ERREURE, SIGNALEE LA IMMEDIATEMENT SUR CE SUJET. MIS A PART CES 2 ELEMENTS, CE PROGRAMME EST LIBRE DE DROITS.
pour télécharger :
Fichier joint : TILOCK.83p, ONLOCK.83p, OFF.83p
Voici le code:
Programme TILOCK (à lancer) :
:While 1
:0:Send(9prgmONLOCK
:Send(9prgmOFF
:1:Send(9prgmONLOCK
:{92,93,92,93,93,102,92,93 -> L1
:8 -> dim(L2
:ClrHome
:For(A,1,8
:DelVar LRepeat K or L=300
:L+1 -> L
:getKey -> K
:End
:Output(1,A,"*
:K -> L2(A
:End
:If prod(L1=L2
:Then
:0:Send(9prgmONLOCK
:ClrHome
:Stop
:End
:End
Programme ONLOCK :
:CDDC4ECDFC4E1D2
803ED56C9F321008
4110184010001368
2EDB021549311828
2010B00EDB03E84E
D47ED5EFBC9D908D
B03E6FED303C33A0
0 //je suis allez à la ligne tous les 16 carractères pour une meilleure
lisibilité ; ne pas faire entrer sur ces lignes
:End
:0000
:End
Programme OFF :
:F33E01D303AFD30408D9FBC9 :End :0000 :End
ATTENTION à ne pas faire d'erreurs en recopiant, vous risquez la un Reset de la TI.
Sandro
PS : les code en héxadécimal ne sont pas de moi mais leurs auteurs m'ont autorisés à les publier librement et sous mon nom.
(Ram Clear assuré
).