cs_sub-zero
Messages postés98Date d'inscriptionmercredi 22 novembre 2000StatutMembreDernière intervention12 juillet 2005 5 avril 2003 à 13:59
mouarf Compression :
- Base64
- MD5
ta vu ca ou toi :)
compression HUffman c tt :)
AtomWare
Messages postés71Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention11 novembre 2004 5 avril 2003 à 15:07
ouais, je me suis trompé :)
cs_krust
Messages postés140Date d'inscriptionmercredi 3 juillet 2002StatutMembreDernière intervention19 novembre 2006 6 avril 2003 à 11:36
j'ai quelsues probelm avec la classe clsBlowfish
--> tant que je met pas de clef il crypt/decrypt sans pb
Mais lorsque j'en met une il décrypt pas correctemnet
voilà comment j'appel
Dim Crypt As clsBlowfish
Private Sub Command1_Click()
Text1.Text = Crypt.EncryptString(Text1.Text,"Key")
End Sub
Private Sub Command2_Click()
Text1.Text = Crypt.DecryptString(Text1.Text, "Key")
End Sub
Private Sub Form_Load()
Set Crypt = New clsBlowfish
End Sub
Crypt = Classe
Donc le Pb c'est : La decryption foire ! Elle affiche pas le texte original
C'est pas trop grave car y a d'autre module, mais c'est juste pour information;)
AtomWare
Messages postés71Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention11 novembre 2004 6 avril 2003 à 12:06
't'as mis :
Dim Crypt As clsBlowfish
' mais il faut mettre
Dim Crypt As NEW clsBlowfish ' car il faut instancier la classe. C'est surement pour ça que ca foire chez toi...
Met de preference en haut du form ( pas dans une sub, mais comme declaration )
sans devoir de nouveau mettre dans la sub Dim crypt...
@+
Philippe734
Messages postés308Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention15 juin 20151 21 août 2010 à 18:23
L'exemple présentant tout les algos ne fonctionne pas car il manque sa dll : ebcrypt.dll
Peux tu inclure la dll afin de voir une démo grace à l'exemple ebcrypt fournis ?
Merci.
5 avril 2003 à 13:59
- Base64
- MD5
ta vu ca ou toi :)
compression HUffman c tt :)
5 avril 2003 à 15:07
6 avril 2003 à 11:36
--> tant que je met pas de clef il crypt/decrypt sans pb
Mais lorsque j'en met une il décrypt pas correctemnet
voilà comment j'appel
Dim Crypt As clsBlowfish
Private Sub Command1_Click()
Text1.Text = Crypt.EncryptString(Text1.Text,"Key")
End Sub
Private Sub Command2_Click()
Text1.Text = Crypt.DecryptString(Text1.Text, "Key")
End Sub
Private Sub Form_Load()
Set Crypt = New clsBlowfish
End Sub
Crypt = Classe
Donc le Pb c'est : La decryption foire ! Elle affiche pas le texte original
C'est pas trop grave car y a d'autre module, mais c'est juste pour information;)
6 avril 2003 à 12:06
Dim Crypt As clsBlowfish
' mais il faut mettre
Dim Crypt As NEW clsBlowfish ' car il faut instancier la classe. C'est surement pour ça que ca foire chez toi...
Met de preference en haut du form ( pas dans une sub, mais comme declaration )
Dim Crypt as New clsBlowfish
ensuite, tu utilise
Text1.Text = Crypt.EncryptString(Text1.Text,"Key")
sans devoir de nouveau mettre dans la sub Dim crypt...
@+
21 août 2010 à 18:23
Peux tu inclure la dll afin de voir une démo grace à l'exemple ebcrypt fournis ?
Merci.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.