1

[nosmile]Bonjour/bonsoir
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 : tromb 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.

2

J't'ai mis ton code dans des balises [pre]. C'est sympa comme programme (surtout pour le bac :D), mais c'est quoi le code ? (Je vois des valeurs pour le getKey mais la flemme de chercher %)) [u]edit[/u] : c'est bizarre le programme me met une erreur BREAK après allumage sur un peu tout et n'importe quoi (sur wabbitemu), ça marche oncalc ?

3

Bizzard, sur ma TI82stats.fr et sur Virtual TI (avec une ROM de TI83), ça marche nikel. Sinon le mot de passe est 12122012 (comme la "fin du monde", je n'y croie pas, mais c'est le premier code qui m'est passé par la tête e qui est facile à retenir.

Sandro

4

Tant mieux si ça marche oncalc (sous VTI ça ne s'éteint pas bizarrement).

Par contre pouvoir choisir sa combinaison de touches ça pourrait être utile, non ? Parce que moi comme ça je l'oublierai vite, alors image si ça arrive à un pauvre lycéen devant sa copie tongue (Ram Clear assuré grin).

5

[nosmile]Pour modifier le code, utilise ce petit programme :
programme getkey:
:While 1
:Reapeat K
:Getkey -> K
:End
:Disp K
:End

on quitte avec [on][1].

Tu apuis sur une touche, ça te donne un nombre. Tu note le suite des nombres optenus en tapant ton code ; tu me "{N1,N2,N3,N4,...,Nx" à la place de "{92,93,92,93,93,102,92,93" et si le nombre de touches n'est pas 8, tu remplace le 8 du programme par le nombre de touches.

En espérant avoir été assez clair,
Sandro

6

Pour moi c'est clair mais pour l'utilisateur lambda j'en sais rien... Après c'est vrai qu'il faudrait inclure L1 séparément du programme si on veut pouvoir automatiser son contenu.

7

Bah, que l'utilisateur lamba pste le mot de passe qu'il veut, si nécessaire, je m'en occupe de lui adapter le programme.

sandro