Cryptage et décryptage d'une chaine

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 025 fois - Téléchargée 28 fois

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

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
dimanche 30 septembre 2007
Statut
Membre
Dernière intervention
17 septembre 2008

merci mais juste une petite remarque remplacer 69 par a dans les affectation
merci et bonne courage
Messages postés
143
Date d'inscription
samedi 21 juillet 2007
Statut
Membre
Dernière intervention
7 mars 2009

Je te remercie pour se code
il va mettre bien utile pour mes crackme et keygenme

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.