CRYPTAGE EN CESAR COMPRENNANT TOUS LES SYMBOLES ASCII

Messages postés
2
Date d'inscription
mercredi 7 janvier 2004
Statut
Membre
Dernière intervention
30 novembre 2004
-
Messages postés
116
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
19 janvier 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/27895-cryptage-en-cesar-comprennant-tous-les-symboles-ascii

Messages postés
116
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
19 janvier 2009

J'ai essaye comme ça :

Var
S: String;
I, N, X: Integer;
Begin
// Si aucune clé n'est entrée.
If Key.Text='' Then Exit;
// Mettre A.Text en minuscules...
A.Text:=LowerCase(A.Text);
// Effacer B.Text
B.Text:='';
// Enlever les espace autour de A.Text.
A.Text:=Trim(A.Text);
// Caractères possibles.
S:='abcdefghijklmnopqrstuvwxyz';
// Convertir la clé en Int.
N:=StrToInt(Key.Text);
For I:=0 To A.GetTextLen-1 Do
Begin
// Modulo au cas où N>26
N:=N Mod 26;
// Valeur du caractère i en ascii...
X:=Ord(A.Text[I+1]);
// Si X est un espace...
If X<>32 Then
Begin
// Valeur du caractère ascii-97(a=97)+la clé...
B.Text:=B.Text+S[X-97+N];
End
// Ajouter l'espace dans la chaîne...
Else B.Text:=B.Text+' ';
End;

Mais ça ne marche pas dès que la clé>25 (et moins pour les grosse chaines, je comprend pas pourquoi...) :-/
Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
Bon, comme j' ai essayé moi même de créer un mode de cryptage (elle est dans le commentaire de ma source sur le cryptage de VERNAM), je sais que la tâche n' est point facile, alors, je te félicite pour ton iniciative et, si tu as besoin d' aide pour créer une procédure dans une autre unit, jette un oeil sur mes sources, tu trouveras ce que tu cherches dans l' une d' elle ...
Messages postés
4
Date d'inscription
mercredi 22 septembre 2004
Statut
Membre
Dernière intervention
1 décembre 2004

oups désolé pour le double post.
Pour te répondre mauricio, je sais que le Cesar est un cryptage vraiment peu fiable, facilement decryptable.
C'est dans le cadre d'un tpe et on commence par le plus simple ! Et puis j'avoue, je n'ai pas resisté à la tentation de poster un premier code :)
bon je vais de ce pas le modifier.Bye ! (thx moon :)
Messages postés
4
Date d'inscription
mercredi 22 septembre 2004
Statut
Membre
Dernière intervention
1 décembre 2004

Merci pour les conseils et pour les critiques :)
je vais de ce pas regarder comment appeler une fonction à partir d'une autre unit (et oui je débute !:)
Messages postés
4
Date d'inscription
mercredi 22 septembre 2004
Statut
Membre
Dernière intervention
1 décembre 2004

Merci pour les conseils et pour les critiques :)
je vais de ce pas regarder comment appeler une fonction à partir d'une autre unit (et oui je débute !:)
Afficher les 8 commentaires