[83] Protéger l'utilisation de vos programmes

Un petit programme pour protéger l' accés a certain autre programmes. Le programmes demande un MDP en 4 touches et en créé un si non existant

a mettre eu debut du prog a proteger:

Code:


cos(12)*[pi][sto]P
prgmZPASS83
If P[pas egal]cos(12)-1:Stop


prgmCHANPASS (pour changer / créer le MDP)

Code:


4[STO]dim([Liste]PASS
0[STO]P
For(I,1,4
If [Liste]PASS(I)=0:Goto 11
End

cos(12)*[PI][STO]P
prgmZPASS83
If P[pas egal]cos(12)-1:Stop
Lbl 11
4[sto]dim([liste]PASS
ClrHome
Output(2,1,"**ENTRE LE MDP**
Output(1,1,"  **NOUVEAU**
Output(5,6,"[    ]
Output(4,6,"+----+
Output(6,6,"+----+
For(I,1,4
0[sto]K
While K=0
getKey[STO]K
End
K[STO][Liste]PASS(5-I)
Output(5,6+I,"*
End
ClrHome
Disp "MDP CHANGE/CREE!"


prgmZPASS83

Code:


If P[pas egal]cos(12)*[pi]:Then:Disp "Ne peut pas ","etre eXecute seu","L":Stop:End

4[STO]dim([Liste]PASS
4[STO]dim([Liste]ZPASS
ClrHome
Output(2,1,"**ENTRE LE MDP**
Output(5,6,"[----]
Output(4,6,"+----+
Output(6,6,"+----+
For(I,1,4
0[STO]K
While K=0
getKey[STO]K
End
K[STO][Liste]ZPASS(I)
Output(5,6+I,"*
End

For(I,1,4
If [Liste]PASS(5-I)[pas egal][Liste]ZPASS(I:Then:ClrHome:Disp "**ERREUR: CODE**","  **ERRONE** ":Stop:End
End
cos(12)-1[STO]P
DelVar [Liste]ZPASS
Return



Et voila j'espere qu'il vous sera utile.
Soyez libre de le modifier.

Pas mal !

Sinon petite astuce pour gagner un octet, au lieu de mettre "While K=0", mets plutôt "While not(K".

ok c'est sympa, je compte le faire en assembleur après... :roll:

Avec l'Axe Parser ?

Non, je ne sais malheureusement pas me servir de ce langage.
Je pensais celui avec "Send(9prgm..."/"Envoi(9prgm..." pour la TI 83 et 83+

Au fait Alexis je veux bien que tu le publie sur le site si tu veux

Ok, tu peux me faire un fichier ".83p" / ".8xp" ?

ThePH a écrit:Non, je ne sais malheureusement pas me servir de ce langage.
Je pensais celui avec "Send(9prgm..."/"Envoi(9prgm..." pour la TI 83 et 83+

Au fait Alexis je veux bien que tu le publie sur le site si tu veux

:cyclops: regarde ma signature !

ok merci kindermoumoute, mais j'ai seulement une TI 82 stats.fr
j'essayerais quand même

Désolé, l'Axe n'est pas (encore) compatible avec les stats.fr.

Parce que c'est en projet ?

Edit: Programme ajouté au site:

Lien: [Vous devez être inscrit et connecté pour voir ce lien]

Image: [Vous devez être inscrit et connecté pour voir ce lien]

Téléchargement:
83g: [Vous devez être inscrit et connecté pour voir ce lien]
8xg: [Vous devez être inscrit et connecté pour voir ce lien]

Alexis a écrit:Parce que c'est en projet ?

Pas une adaptation de l'axe au stats.fr, mais une adaptation des stats.fr à l'axe.

mais ok je m'arrangerai pour le faire en axe

Bas non, si tu a une 82.stats.fr ce n'est pas possible. ^^

kindermoumoute a écrit:

Alexis a écrit:Parce que c'est en projet ?

Pas une adaptation de l'axe au stats.fr, mais une adaptation des stats.fr à l'axe.

C'est à dire installer un OS TI-83+ ou TI-84+ sur une TI-82 Stats.fr ?

Ouaip, grâce à leurs 500Ko de rom caché. Mais actuellement, seul critor travail dessus, donc je ne croit pas que ce sera tout de suite...

kindermoumoute a écrit:Bas non, si tu a une 82.stats.fr ce n'est pas possible.

oui mais j'ai un emulateur! je te rappelle que tu m'a donné un lien vers deux emulateur qui supportent la mémoire flash, en tout cas sinon je trouverais ,et puis pas besoin d'une calculette physique une virtuelle suffit ! :roll: