Discussion :

[pierre987321]

bonjour je cherche a faire l'inverse du code suivant :


texte => chiffre

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;

je voudrai faire de chiffre => texte
oui mais je debute juste en delphi


car je cherche aussi a l'inclure dans :

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;

pour éviter de faire plusieur action, dans un sans et de l'autre.
ya t'il quelqu'un pour m'aidé ?