Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
Posté le : Mer 07 Déc 2016, 22:37
Bonjour à tous,
C'est avec joie que je vous presente mon programme de crytage sur ti (tester sur ti82+ sans bug donc ti83 pas de bug non plus).
Ce programme comporte 1 menus de 6 options :
1) Criptage : permet de cripter(peut aussi decripter le message)
Il suffit de rentrer une clé de cryptage du type (a;b)(c'est pas n'importe quel chiffre ...)
On vous demander a puis b puis le message (sans espace ni chiffre pour le moment) puis le nombre de caractère (soyez precis !!!)
2) Decryptage : sert a decrypter un message codé avec une clé de DEcryptage (meme fonctionnement que 1) )
3) Cles connus : donne 1 couple de clé par defaut mais vous pouvez en rajouter via edit
4) Trouver clés : Vous ne savez pas comment creer une clé ? Ce module vous en donne une aleatoirement !!!
5) Trouver clès de : permet de trouver la clés de decryptage a partir d'une clés de cryptage (a;b)
6) Envoi/reception : module a creer (flemme )
7) Quitter
ATTENTION : toutes modifications peut entrainer un mauvais disfonctionnement du programme !!
EN CAS DE PROBLEME : dites moi la clé utilisé , votre message codé ou non , le resultat obtenu ainsi que votre problèmes
Ne vous inquiétez pas si le programme prend du temps ... c'est normal ...
Dites vous que à la main ca peut prendre 4 ans
Programme cript ; 820 octet (non optimisé)
---------------------- La programmation : l'avenir d'hier ...........
mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER
Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
Posté le : Mer 07 Déc 2016, 23:12
Code
Effecr
EffVar L1
EffVar L2
Lbl 0
Menu( "CRYPT","CRYPTAGE",1,"DECRYPTAGE",2,"CLES CONNUS",3,"TROUVER CLES",4,"TROUVER CLES DE",5,"ENVOI/RECEPTION",6,"QUITTER ?",99
Lbl 1
Lbl 2
"ABCDEFGHIJKLMNOPQRSTUVWXYZ" -> chaine1
Effecr
Input "A= ",X
Input "B= ",Y
Input "MESSAGE ",chaine2
Input " NB : ",N
For(I,1,N
For (J,1,26
If sous-Chaine (Chaine1,J,1)= sous-Chaine (Chaine2,I,1)
J-1 -> L1 (I)
End
End
For (I,1,N
XL1(I) + Y -> A
partEnt (A/26) -> Q
A - 26Q -> R
R + 1 -> L2 (I)
End
1 -> A
6 -> B
For (I,1,N
Output (B,A,sous-Chaine (Chaine1,L2 (I),1
A + 1 -> A
If A= 16
1 -> A
B +1 -> B
End
End
Pause
Goto 0
Lbl 3
EffEcr
Disp "CLES CONNUS :","11:8","19:4"
Pause
Goto 0
Lbl 4
Effecr
Disp " ClES ALEATOIRE :
0 -> A
0 -> R
While R = 0 ou A = 13
EntAleat (1,25 -> A
parEnt (A/2)->Q
A - 2Q -> R
End
EntAleat (0,25 -> B
Output(3,1,"A=
Output(3,8,A
Output(4,1,"B=
Output(4,8,B
Pause
Goto 0
Lbl 5
Effecr
Disp "CLES :
Input " A= ",X
Input "B= ",Y
1 -> A
For (I,0,1000000
parEnt (AI/26) -> Q
AI - 26Q -> R
If R = 1
Goto 51
End
Lbl 51
I -> X
parEnt(X/26 -> Q
X - 26Q -> X
X x (-Y) -> Y
parEnt (Y/26 -> Q
Y - 26Q -> Y
Output (5,1,"CLES DE :
Output (6,1,"A=
Output (6,8,X
Output (7,1,"B=
Output (7,8,Y
Pause
Goto 0
Lbl 6
Goto 0
Lbl 99
EffVar L1
EffVar L2
EffVar Chaine 1
EffVar Chaine 2
EffVar A
EffVar B
EffVar X
EffVar Y
Effecr
" [2 espaces]
Si vous avez une erreur ou que j'ai fait une erreur de recopiage, dites le !!!
---------------------- La programmation : l'avenir d'hier ...........
mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER
)
