Discussion :

[pierre987321]

bonjour voila je veu cryter avec XOR mais un probleme se présente.

quand je veu cryter que des lettres c ok!
quand j'ajoute des chiffres le cryptage et plus bon.
en faite la présentation dans le edit est ok
mais quand je copie/colle pour le retraduire sa s'arrete au
moment des chiffre :-(

pour tester et me donner votre avie :

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
20
 
function crypt_decrypt_xor(chaine:string;key:string):string;
var i,j:integer;
    s:string;
begin
s:='';j:=1;
for i:=1 to length(chaine) do
begin
  if j>length(key) then j:=1;
  s:=s+char(integer(ord(chaine[i])) xor integer(ord(key[j])));
  j:=j+1;
end;
Result:=s;
end; 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=crypt_decrypt_xor(edit1.text,'5');
end;

quand pensez vous ???

[Gaadek]

J'en pense que:
1) Tu as le problème quand tu utilises une clé spéciale qui est 5. Change de clé et tu verras que tu auras d'autres problèmes.

2) Le cryptage par xor te renvoie un code qui n'est pas obligatoirement dans la table ASCII des 0-9 a-z A-Z. Et cela va dépendre de tes données ET de ta clé. Or, si un utilisateur ne peut pas utiliser ce code sous prétexte que les données/la clé ne convient pas, c'est pas cool.

3) Enregistre tes données cryptée sous forme binaire plutôt qu'alphanumérique et tu verras que ça fonctionne bien.

4) Si tu veux à tout prix conserver des données "lisibles", alors je te conseille de bidouiller ton code pour afficher, par exemple le code ascii converti en string plutôt que le code ascii lui même. Par exemple, si le code te renvoi le caractète $13 (qui correspond à un retour chariot, donc illisible en soit), affiche plutôt '013' (oui, 3 caractères, parce que sinon tu vas être limité au code ascii 99, ce qui représente en soit une limitation un peu forte. Pour le décodage, suffit de prendre la chaine par groupe de 3 caractères et de convertir ça comme il faut!

[pierre987321]

esque tu as un exemple par azzzar ?