Salut à tous ! Voici un programme pour cryptographier un texte, c'est à dire le coder.
Ce programme contient un menu avec deux choix : coder ou décrypter.
• Pour coder, il faut rentre un nombre qui sera additionné aux valeurs de chaque lettre, ensuite rentrer le texte.
Le programme exécutera :
On rentre par exemple : 3
Puis le texte : ZEBRE
A=1 , B=2 , C=3 , ... , Z=26
Donc pour ZEBRE, en nombre → cela donne : 26.05.02.18.05
Ensuite le programme additionnera le fameux 3, ce qui donne 29.08.05.21.08 mais 29>26 donc il fera 29-26=3 qui donnera 03.08.05.21.08
Et en lettres : CHEUH
• Pour décrypter, c'est l'inverse :
prenons l'exemple → CHAT + 7 → JOHA
Rentrer le nombre qui a été additionné, ici ce sera 7
Puis le texte, ici → JOHA
Le programme vous affichera CHAT
Un grand merci à Linkakro et pour l'aide de M@thieu41.
Pour voir le sujet complet, c'est ici.
Ce programme contient un menu avec deux choix : coder ou décrypter.
• Pour coder, il faut rentre un nombre qui sera additionné aux valeurs de chaque lettre, ensuite rentrer le texte.
Le programme exécutera :
On rentre par exemple : 3
Puis le texte : ZEBRE
A=1 , B=2 , C=3 , ... , Z=26
Donc pour ZEBRE, en nombre → cela donne : 26.05.02.18.05
Ensuite le programme additionnera le fameux 3, ce qui donne 29.08.05.21.08 mais 29>26 donc il fera 29-26=3 qui donnera 03.08.05.21.08
Et en lettres : CHEUH
• Pour décrypter, c'est l'inverse :
prenons l'exemple → CHAT + 7 → JOHA
Rentrer le nombre qui a été additionné, ici ce sera 7
Puis le texte, ici → JOHA
Le programme vous affichera CHAT
- Code:
EffEcr
Menu("CHOIX","CODER",1,"DECRYPTER",2
Lbl 2
Input "NB:",A
-A→A
Goto 3
Lbl 1
Input"NB:",A
Lbl 3
Input "TEXTE:",Chaîne 1
"ABCDEFGHIJKLMNOPQRSTUVWXYZ→Chaîne 2
" "→Chaîne 3
longueur(Chaîne 1→L
For(X,1,L
sous-Chaîne(Chaîne 1,X,1
A+carChaîne(Chaîne2,Rép
Rép-26partEnt((Rép-1)/26
Chaîne 3+sous-Chaîne(Chaîne 2,Rép,1→Chaîne 3
End
sous-Chaîne(Chaîne 3,2,L
Un grand merci à Linkakro et pour l'aide de M@thieu41.
Pour voir le sujet complet, c'est ici.