Cryptage XOR + clé variable

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.

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

Merçi pour ta réponse, mais

Citation:

---

Envoyé par jusi

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.

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 ?

Bonjour,

Citation:

---

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

---

+1

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

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.

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

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:

---

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;

---

Merçi beaucoup, je vais essayer tout ca.

C'est parfait, c'est exactement ce que je voulais faire.

Merçi beaucoup :D