Cryptage bluefish twofish hash morse md5 base64 des ghost serpent tea skipjack rc4- compression : huffman - hash : sha md5 b

Soyez le premier à donner votre avis sur cette source.

Vue 22 896 fois - Téléchargée 3 974 fois

Télécharger le projet
Commenter

Description

Aucune description n'est fournie pour ce projet
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_sub-zero Messages postés 98 Date d'inscription mercredi 22 novembre 2000 Statut Membre Dernière intervention 12 juillet 2005
5 avril 2003 à 13:59
mouarf Compression :
- Base64
- MD5

ta vu ca ou toi :)
compression HUffman c tt :)
AtomWare Messages postés 71 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 11 novembre 2004
5 avril 2003 à 15:07
ouais, je me suis trompé :)
cs_krust Messages postés 140 Date d'inscription mercredi 3 juillet 2002 Statut Membre Dernière intervention 19 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és 71 Date d'inscription samedi 28 décembre 2002 Statut Membre Dernière intervention 11 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 )

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

@+
Philippe734 Messages postés 308 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 15 juin 2015 1
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.
S'inscrire maintenant

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.

Du même auteur (AtomWare)