Votre calculatrice doit posséder les chaines de caractères (Str) et Menu pour utiliser ce programme. Si vous avez une Graph 85 (SD), mettez-la à jour.
Description :Ce programme permet de coder un message de 63 caractères selon une méthode de cryptage symétrique à partir d'une clef privée de 10 caractères. Toutes les variables utilisées sont soigneusement réinitialisées avant la fermeture du programme. La version 2.0 comprendra la partie décodage.
Le programme est disponible en fichier .txt avec des commentaires explicatifs ou en code pur.
N'hésitez pas à me faire part de vos commentaires, remarques ou propositions...
Merci ! 
Code source:
"Saisissez votre message en espacant avec des points"
?→Str 1
Do
"Saisissez votre clef de chiffrement (10)"
?→Str 2
ClrText
StrLen(Str 2)→A
LpWhile A≠10
10→Dim List 1
1→B
Do
StrLeft(Str 2,1)→Str 4
StrShift(Str 2,1)→Str 2
StrSrc(Str 3,Str 4)→C
C→List 1[B]
Isz B
LpWhile B<11
Str 3→Str 4
StrLeft(Str 1,1)→Str 2
StrShift(Str 1,1)→Str 1
StrSrc(Str 3,Str 2)→E
E+List 1[1]→G
G>27⇒G-27→G
StrRotate(Str 4,G)→Str 4
StrLeft(Str 4,1)→Str 6
2→F
Do
Str 3→Str 4
StrLeft(Str 1,1)→Str 2
StrShift(Str 1,1)→Str 1
StrSrc(Str 3,Str 2)→E
E+List 1[F]→G
G>27⇒G-27→G
StrRotate(Str 4,G)→Str 4
StrLeft(Str 4,1)→Str 5
StrJoin(Str 6,Str 5)→Str 6
F=10⇒0->F
F<10⇒Isz F
StrLen(Str 6)→H
LpWhile H>0
StrLeft(Str 6,21)→Str 7
StrShift(Str 6,21)→Str 6
StrLeft(Str 6,21)→Str 8
StrShift(Str 6,21)→Str 6
ClrText
"Message encodé! <DEL>"
Locate 1,2,Str 7
Locate 1,3,Str 8
Locate 1,4,Str 6
Do
0→Z
Getkey→A
A=44⇒Goto 1
LpWhile Z=1
Lbl 1
0→A~Z
""→Str 6
""→Str 7
""→Str 8
ClrList 1
ClrText
Stop
|
