Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
Cryptage (message)
Auteur Message
Ti82-Lexilus



Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
Posté le : Mer 07 Déc 2016, 22:37   Citer 

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). crazy.gif
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 bigmouth.gif )
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 godgrace.gif

Programme cript ; 820 octet (non optimisé)

----------------------
La programmation : l'avenir d'hier ...........

mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER
 Adresse email Haut de page Bas de page 
 
Ti82-Lexilus



Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
Posté le : Mer 07 Déc 2016, 23:12   Citer 


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
 Adresse email Haut de page Bas de page 
 
Paulo1026



Autorisation : Membre
Nb de messages : 128
Inscrit le : Ven 06 Nov 2015, 19:22
Posté le : Jeu 08 Déc 2016, 18:38   Citer 

Bien joué winkle.gif

 Adresse email Haut de page Bas de page 
 
Ti82-Lexilus



Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
Posté le : Jeu 08 Déc 2016, 20:04   Citer 

Merci

----------------------
La programmation : l'avenir d'hier ...........

mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2018 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa