Cryptage et décryptage d'une chaine

Commenter

Contenu du snippet

Voici comment crypter et décrypter une chaine
déclarer ceci dans var en haut de l'unit :
function crypte(text:string):string;
function decrypte(text:string):string;

Source / Exemple : 


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;

Conclusion :


Ce code n'est pas de moi mais il n'y était pas encore alors je le met
et évidemment, la pub de la fin :
delphiprog.fr.st
forum-city.fr.st

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 (cs_sebrs1)