Participez au concours commun et partez à la conquête des étoiles !
Manuels | TOP 20 | Labels PC | Conversion | Graphisme | Organiseurs | Divers | Add-ins | MLC | LuaFX |
Calculatrices
Graph 35 à 100 (CFX)
Graph 25/25+ (Pro) (fx-7400)
Graph 35+USB/75/85/95 (SD)
Graph 100/100+ (AFX)
ClassPad 300/330
Fx-CG 10/20
Fx-CP 400
Graph 90+E

Retour aux miniatures
Tri avancé
Liste des programmes
Nom Date
Mandelbrot Set
Password Finder
Partique
Éléments
Éphéméride
ChronoCasio
Navidex4shiny
Reseaux
Topographie
Cryptocalypse
Fréquences
Mesure
Horloge
CardCheckerGen
Mélangeur
Comptage
Nbr de nuit
Webdriver torso
Paint
+ ou - (Stat)
Pages: 1,2,3,4 >>

¤ Transférer un programme sur
sa calculatrice

¤ Vous cherchez une fonction ?
Utilitaires >> Graphs 75/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 :
Aviframar
Hors ligne
Membre
Niveau: Intermédiaire
Points: 22
Défis: 0
Message
Aucune image disponible
Nombre de visites sur cette page : 1100
Score au progrank : 17
Pas encore de note !

Vous devez être inscrit(e) et avoir 20 points ou plus pour noter.
368 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 :


Lephenixnoir
Hors ligne
Administrateur
Niveau: Confirmé
Points: 10198
Défis: 130
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-jawa
Hors ligne
Membre
Niveau: Aucun
Points: 138
Défis: 0
Message
Posté le 02-04-2016 à 16:14
intéressant

Publicité et partenaires
Casio Education
Casio éducation

TI-Planet
Casiopeia
Casiopeia
CasioFan, la communauté ClassPad
CasioFan
CodeWalrus
CodeWalrus

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2017 | Il y a 55 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements
Rugby Manager | Jeu de basket | Jeu de handball | Jeu de tennis | Nova Raider | Réparation téléphone | Soccer Rush | Tasty Tale

Planète Casio est un site communautaire indépendant, géré bénévolement et n'est donc pas affilié à Casio | Toute reproduction de Planète Casio, même partielle, est interdite
Les fichiers, programmes et autres publications présents sur Planète Casio restent la propriété de leurs auteurs respectifs et peuvent être soumis à des licences ou des copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd