Inverse de ce code

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

texte => chiffre
Code:

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 :lol:

car je cherche aussi a l'inclure dans :
Code:

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é ?

pour
Code:

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;
tu peux décrypter avec :
Code:

1 2 3 4 5 6 7 8 9 function DeCrypt(St:string):string; var i:byte; begin Result := ''; for i := 1 to (Length(St) div 3) do Result := Result + IntToStr(strToInt(copy(st,(i*3)-2,3))); end;
Je n'ai pas testé mais c'est l'idée.
Pour le reste cherches un peu !!
Et si qq peut me dire comment marchent ces %%*!!**$$ de baslises code je suis preneur !

Code:

1
2
for i:=0 to Pred(Length(S) div 3) 
do Result:=Result+Chr(StrToInt(Copy(S,1+3*i,3)) xor Key shr 8);

devrait décrypter (SGDG: pas sous Delphi...)

salut

pour les balise de code il suffit de selectionné les texte a mettre entre les balise et clique sur le "#" je voi pas bien ou est ton probleme

@+ Phil

..

avec :

Code:

1
2
3
4
5
6
7
8
9
 
function DeCrypt(St:string):string;
var
 i:byte;
begin
 Result := '';
 for i := 1 to (Length(St) div 3)  do
    Result := Result + IntToStr(strToInt(copy(st,(i*3)-2,3)));
end;

sa ne donne pas un bon résultat

et avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function DeCrypt(St:string;Key:integer):string;//
var
i:byte;
begin
Result := '';
for i:=0 to Pred(Length(St) div 3) do
Result:=Result+Chr(StrToInt(Copy(St,1+3*i,3)) xor Key shr 8);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Edit5.Text:=DeCrypt(Edit2.Text);
end;

sa me dit "Pas assez de parametres originaux" :?

esque vous avez une idée ?

Citation:
Envoyé par pierre987321
Code:

1 2 3 4 5 6 7 8 9 10 function DeCrypt(St:string;Key:integer):string; begin ..... end; procedure TForm1.Button4Click(Sender: TObject); begin Edit5.Text:=DeCrypt(Edit2.Text, AJOUTE ICI TON PARAMETRE KEY); end;
sa me dit "Pas assez de parametres originaux" :?

esque vous avez une idée ?
Bien sur il te manque le parmètre "Key"

a+

Oui pour le décryptage il faut :

Code:

1
2
3
4
5
6
7
8
9
 
function DeCrypt(St:string):string;
var
 i:byte;
begin
 Result := '';
 for i := 1 to (Length(St) div 3)  do
    Result := Result +char(strToInt(copy(st,(i*3)-2,3)));
end;

..

franchement je suis une merde :?
pour le décryptage c impecable sa marche super :yaisse2:

mais juste un dernié sevice.
pour le cryptage jutilise deux "function".
pour les fusionner esque tu p me le faire vite fait ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 function CryptDeCrypt(St:string;Key:integer):string; var i:byte; StCrypt:string; begin StCrypt:=''; for i:=1 to Length(St) do StCrypt:=StCrypt+Char(Byte(St[i]) xor Key shr 8); result:=StCrypt; end; 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;
mon probleme est que je veu allller tro vite, alors qu'il me faut prandre du temp pour bien apppppprandre les base meme ;)

Là tu pousses un peu non ?

..

je c pas si je pousse, mais je suis bien perdu avec toutes c erreurs que je réalise :roll:

Je veux dire : tu as ton code, il marche, pour réorganiser celui ci essayes de te débrouiller.