Problème cryptage Blowfish

Bonjour,

J'utilise le composant TDCP_Blowfish de Delphi pour crypter un mot de passe.
Seulement voila, je rencontre un problème lorsque j'essaye de crypter une deuxième fois le même mot de passe avec la même clé de cryptage : les deux chaines cryptées sont différentes.

Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

mdp := 'alain';   DCP_blowfish1.Init('ma_cle_de_connexion',64,nil); //Initialisation cypher Password := DCP_blowfish1.EncryptString(mdp); //Cryptage ShowMessage(Password); //Chaîne affichée : YXmPXng=   //Deuxième cryptage avec la même variable DCP_blowfish1.Init('ma_cle_de_connexion',64,nil); Password := DCP_blowfish1.EncryptString(mdp); ShowMessage(Password); //Chaîne affichée : x7W7xUo=

---

Comment cela est-il possible ?

Merci de votre aide

Question bête : à quoi sert la fonction Init ?
Est-ce utile de la rappeller à chaque fois ?

Ah je viens de trouver :)

La fonction Init sert à définir une clé de cryptage avec, ici, la chaine : "ma_cle_de_connexion" sur 64 bits. Par contre je ne connais pas le principe de l'algorithme Blowfish.

En fait, lors du premier cryptage du mdp il y a aussi un cryptage du login (que je n'ai pas mis dans le code) et donc lors du deuxième cryptage il faut également crypter une seconde fois le login.
Apparemment cela joue sur la chaine résultante du mdp.