Cryptage césar


Commenter

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

S'inscrire maintenant

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.

Du même auteur (Nfh)