Discussion :

[jusi]

Bonjour à tous,

Je souhaite réaliser une petite appli de cryptage en utilisant XOR, mon souci est au niveau de la clé.

En effet je souhaiterais récupérer la clé à partir d'un Edit afin de pouvoir utiliser une clé de mon choix à chaque utilisation et non pas une clé fixe.

Après pas mal de recherche, je ne trouve que des possibilités avec une clé fixe.

Merçi de votre aide.

[ShaiLeTroll]

Choisi toi, une taille maximal de clé, qui correspond à la longueur de ta clé fixe (8, 16, 32 ...) et lorsque tu entre une clé, si il manque tu ajoute à la fin, des éléments en plus, genre si il manque 3 char, tu ajoute ABC, si 7, ABCDEFG ... à toi de trouver ... et à chaque saisie de clé, tu lance ta fonction de padding pour avoir une clé de la bonne taille ...

[jusi]

Merçi pour ta réponse, mais

Bonjour à tous,


En effet je souhaiterais récupérer la clé à partir d'un Edit afin de pouvoir utiliser une clé de mon choix à chaque utilisation et non pas une clé fixe.

Je ne veux pas utiliser de clé fixe du tout.

[philnext]

Je ne vois pas pkoi tu ne peux pas choisir la clef que tu veux. tu peux donner un exemple de code que tu utilises ?

[thewho]

Bonjour,

Je ne vois pas pkoi tu ne peux pas choisir la clef que tu veux. tu peux donner un exemple de code que tu utilises ?

+1

Je ne vois vraiment pas en quoi tu as un problèmes à ce niveau là.

[jusi]

Et bien si on prend exemple sur le code situé sur cette page: http://delphipage.free.fr/cryptage.html à la partie cryptage avec XOR, code que l'on retrouve sur beaucoup de page sur XOR.

Je veux ajouter un Edit qui sert à rentrer la clé de cryptage, et non pas utiliser la clé insérer en dur, dans l'exemple "1234".

J'éspère avoir été plus clair.

[ShaiLeTroll]

Et donc, je répète ma proposition, tu choisis un algo à clé fixe d'une taille conséquente comme 32 caractères ... et si la longueur saisie dans le Edit est trop court, eh bien tu complètes (padding), c'est pas compliqué, c'est un moyen pour avoir une clé de longueur quasi variable, ...

[anapurna]

salut

il te suffit donc de te creer un Tedit pour ta cle
verifier que la cle est valide et la passer en paramettre
ce n'est pas super compliqué

exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  va : integer
begin
Try 
  va := StrtoInt(EdtKey.text);
  Edit2.Text:=CryptDeCrypt(Edit1.Text,va); //Appel la fonction en passant 
 except
    Showmessage('cle non valide');
    EdtKey.text :=''; 
 end;
end;