Section courante

A propos

Section administrative du site

La méthode du chiffre de César est une méthode d'encryption et de décryption les plus anciennes de l'histoire. Il s'agit d'une méthode utiliser pour les légions romaines pour transmettre des informations secrets et qui si l'ennemi intercepte le message, il ne comprendra pas la signification.

La méthode du chiffre de César, aussi nommé code César, est méthode consister à substituer une lettre par une autre avec un intervalle constant, soit généralement 3. Voici un tableau de correspondance lorsque l'intervalle constante est 3 :

Clair A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
Encodé D E F G H I J K L M N O P Q R S T U V W X Y Z A B C

Voici maintenant un exemple du programme exploitant la méthode du chiffre de César :

  1. Program CESAR;
  2.  
  3. Uses DOS;
  4.  
  5. Var
  6.  S,E:String;
  7.  I:Byte;
  8.  
  9. BEGIN
  10.  S:='CESAR VOUS SALUE';
  11.  WriteLn('PHRASE ORIGINAL = ',S);
  12.  E:='';
  13.  For I:=1 to Length(S)do Begin
  14.   If S[I]in['A'..'Z','a'..'z']Then Begin
  15.    If UpCase(S[I])in['X','Y','Z']Then Begin
  16.     E:=E+Chr(Ord(S[I])-26+3);
  17.    End
  18.     Else
  19.    E:=E+Chr(Ord(S[I])+3);
  20.   End
  21.    Else
  22.   E:=E+S[I];
  23.  End;
  24.  WriteLn('PHRASE ENCODER = ',E);
  25.  S:='';
  26.  For I:=1 to Length(E)do Begin
  27.   If E[I] in['A'..'Z','a'..'z']Then Begin
  28.    If UpCase(E[I])in['A','B','C']Then Begin
  29.     S:=S+Chr(Ord(E[I])+26-3);
  30.    End
  31.     Else
  32.    S:=S+Chr(Ord(E[I])-3);
  33.   End
  34.    Else
  35.   S:=S+E[I];
  36.  End;
  37.  WriteLn('PHRASE DECODER = ',S);
  38. END.

on obtiendra un résultat ressemblant à ceci :

PHRASE ORIGINAL = CESAR VOUS SALUE
PHRASE ENCODER = FHVDU YRXV VDOXH
PHRASE DECODER = CESAR VOUS SALUE

Code source

Voici des exemples du code source de ce programme sur GitHub :

Lien Langage de programmation Projet
https://github.com/gladir/ENCRYX/blob/main/CESAR.PAS Turbo Pascal, Free Pascal ENCRYX


Dernière mise à jour : Dimanche, le 25 décembre 2022