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

[philnext]

pour

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;

tu peux décrypter avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

[anapurna]

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

[pierre987321]

avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Yurck]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[philnext]

Oui pour le décryptage il faut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[pierre987321]

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


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[philnext]

Là tu pousses un peu non ?

[pierre987321]

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

[philnext]

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