bonjour je cherche a faire l'inverse du code suivant :
texte => chiffre
je voudrai faire de chiffre => texte
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 function CryptDeCryptbis(St:string):string; var i:byte; begin Result := ''; for i := 1 to Length(St) do Result := Result + FormatFloat('000',ord(St[i])); end;
oui mais je debute juste en delphi![]()
car je cherche aussi a l'inclure dans :
pour éviter de faire plusieur action, dans un sans et de l'autre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 function CryptDeCrypt(St:string;Key:integer):string; var i:byte; StCrypt:string; begin StCrypt:=''; //Initialise la variable for i:=1 to Length(St) do //Pour tous les caractères de notre chaine... StCrypt:=StCrypt+Char(Byte(St[i]) xor Key shr 8); //...On effecute le cryptage result:=StCrypt; //Renvoie le résultat end;
ya t'il quelqu'un pour m'aidé ?
Partager