Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.
Menu
Calculatrices
Graph 35 à 100
Graph 25+Pro/25+E/25+E II
Graph 35+USB/75(+E)/85/95 SD
Graph 100(+)
Classpad 300/330(+)
fx-CG 10/20 (Prizm)
Classpad 400(+E)
Graph 90+E
fx-92+ SC
Liens
¤ Transférer un programme sur
sa calculatrice

¤ Vous cherchez une fonction ?
Utilitaires >> Graph 35+USB/75(+E)/85/95 SD >> Divers >> Cryptocalypse
Cryptocalypse
Version : 1.0 Taille : 700 octets Ajouté le : 2016-04-02 15:56 Modifié le : 2016-04-02 17:02
Auteur et posteur :
AviframarHors ligneMembrePoints: 22 Défis: 0 Message
Aucune image disponible
Nombre de visites sur cette page : 3244
Score au progrank : 25
Pas encore de note !
Vous devez être connecté(e) pour noter (inscription).
1241 téléchargements | Soumettre un test

Ce programme est dans le domaine public.


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


Commentaires :


LephenixnoirEn ligneAdministrateurPoints: 24678 Défis: 170 Message
Posté le 02-04-2016 à 16:08 | #
Mieux vaudrait que tu donnes un fichier g1r pour utiliser le programme, c'est pas très encourageant d'avoir à le recopier...

Pourquoi n'utilises-tu pas FA-124 ?
Casio-jawaHors ligneMembrePoints: 138 Défis: 0 Message
Posté le 02-04-2016 à 16:14 | #
intéressant

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 104 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd