CRYPTAGE EN CESAR COMPRENNANT TOUS LES SYMBOLES ASCII

/////////////////////
// PARTIE CRYPTAGE //
/////////////////////
function cesar_cryptage(chaine_decryptee:string; decallage:integer ): string;
var
taille_chaine : integer;
tableau_new_chr : array of char;
i:integer;
x_ascii,y_ascii:byte;
x:char;
chaine_tempo:string;

begin


taille_chaine := length(chaine_decryptee);
SetLength(tableau_new_chr, taille_chaine+1);


for i:=1 to taille_chaine+1 do
    begin

    x:=chaine_decryptee[i];
    x_ascii :=ord(x);
    y_ascii :=(x_ascii+decallage )mod 255; //la valeur ascii de la lettre considérée est
                                                     //ajoutée a la valeur de la clé puis congrue

    tableau_new_chr[i]:= chr(y_ascii);              //maj du tableau des caracteres.
end;

    for i:= 1 to  taille_chaine do                  //ajout de tous les char du tableau dans
    begin                                           //chaine tempo qui sera le result lorsqu'il aura été complété.
    chaine_tempo := chaine_tempo + tableau_new_chr[i];
    end;
result := chaine_tempo;

end;

///////////////////////
// PARTIE DECRYPTAGE //
///////////////////////
function cesar_decryptage(chaine_cryptee:string; decallage:integer ): string;
var
taille_chaine : integer;                        
tableau_new_chr : array of char;
i:integer;
x_ascii,y_ascii:byte;
x:char;
chaine_tempo:string;
begin
taille_chaine := length(chaine_cryptee);
SetLength(tableau_new_chr, taille_chaine+1);

for i:=1 to taille_chaine+1 do
    begin

    x:=chaine_cryptee[i];
    x_ascii :=ord(x);
    y_ascii :=(x_ascii-decallage)mod 255;  // difference ici "-"

    tableau_new_chr[i]:= chr(y_ascii);
end;

    for i:= 1 to  taille_chaine do
    begin
    chaine_tempo := chaine_tempo + tableau_new_chr[i];
    end;
result := chaine_tempo;

end;