CRYPTAGE ET DÉCRYPTAGE D'UNE CHAINE

function crypte(text:string):string;          //Fonction pour crypter la chaine
var
pos:integer;
text1:string;
a:integer;
begin
      a:= 69;    //chiffre que vous pouvez changer suivant le cryptage désiré
        text1 := text;
      for pos := 1 to length(text1) do
        text1[pos] := chr(ord(text1[pos]) + 69);        //crypte la chaine
      crypte := text1;
end;

function decrypte(text:string):string;       //Fonction pour décrypter la chaine
var
pos:integer;
text1:string;
a:integer;
begin
      a:= 69;    //chiffre que vous pouvez changer suivant le cryptage désiré
        text1 := text;
      for pos := 1 to length(text1) do
        text1[pos] := chr(ord(text1[pos]) - 69);             //decrypte la chaine
      result := text1;
end;