Cryptage césar

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 091 fois - Téléchargée 29 fois


Contenu du snippet

Programme permettant de chiffrer une chaine avec le chiffre de César.

Source / Exemple :


program cesar;

uses
  windows;

var i, ii, Lchaine, Vascii, clef, tclef :integer;
    Echaine :string;

begin
     // Chaine entrée
     write('Entrez une chaine : ');
     readln(Echaine);

     // Longueur de la chaine entree
     Lchaine := length(Echaine);

     // Passage en majuscule
     for ii:=1 to Lchaine do
       begin
         Echaine[ii] := upcase(Echaine[ii]);
       end;

     // Clef entrée
     write('Entrez une clef : ');
     readln(clef);

     // Boucle de traitement
     for i:=1 to Lchaine do
         begin
              // Valeur ascii de la chaine
              Vascii := ord(Echaine[i]);

              // Test du code ascii
              if (clef + Vascii > 90 ) then begin
                                                  tclef := ((90 - Vascii) - clef);
                                                  Vascii := abs(tclef) + 64;
                                             end

                                        else begin

              // Ajout de la valeur ascii à la clef
              Vascii := Vascii + clef;
                                             end;
             
              // Passage de la nouvelle valeur ascii en char
              Echaine[i] := chr(Vascii);
         end;

     // Affichage de la chaine
     writeln('Chaine cryptee : ', Echaine);

     // Fin normale
     writeln('fin normal');
     readln;
end.

A voir également

Ajouter un commentaire

Commentaire

cs_code1
Messages postés
22
Date d'inscription
vendredi 30 juillet 2004
Statut
Membre
Dernière intervention
21 octobre 2004

bon astuce mais au moument de l'execution de programme elle block le programme en memoire
essay de l'utiliser les composant delphi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.