CRYPTAGE BLUEFISH TWOFISH HASH MORSE MD5 BASE64 DES GHOST SERPENT TEA SKIPJACK R
cs_RaZoR
Messages postés
102
Date d'inscription
vendredi 22 février 2002
Statut
Membre
Dernière intervention
22 décembre 2003
-
5 avril 2003 à 09:12
Philippe734 Messages postés 308 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 15 juin 2015 - 21 août 2010 à 18:23
Philippe734 Messages postés 308 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 15 juin 2015 - 21 août 2010 à 18:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6633-cryptage-bluefish-twofish-hash-morse-md5-base64-des-ghost-serpent-tea-skipjack-rc4-compression-huffman-hash-sha-md5-base64-sha256-crypt-securite-decryptage-algorythmes-algo
https://codes-sources.commentcamarche.net/source/6633-cryptage-bluefish-twofish-hash-morse-md5-base64-des-ghost-serpent-tea-skipjack-rc4-compression-huffman-hash-sha-md5-base64-sha256-crypt-securite-decryptage-algorythmes-algo
21 août 2010 à 18:23
Peux tu inclure la dll afin de voir une démo grace à l'exemple ebcrypt fournis ?
Merci.
17 févr. 2007 à 10:54
A quoi correspond la forme "$1$XXXXXXXX..." ?
9 avril 2005 à 12:21
13 mars 2005 à 06:21
Il y erreur à
Dim cipher As ebcryptlib.eb_c_Cipher
dans
Public Function EncryptString(Which As Algorithms, Text As String, Optional OutputIn64 As Boolean, Optional Key As String, Optional Salt As String) As String
Merci de votre aide
28 avril 2004 à 11:15
il s'arrete à
ebcryptlib.eb_c_Cipher
(pb: manque d'une bibliothque)
est ce un pb de ma version de visual basic??
j'ai vb6
mrci
21 août 2003 à 03:37
enfaite si ya un chr(0) ds le textbox le text s arretera la et totu ce ki se trouve apres sera po afficher
euh sinon trs bien cette source :)
21 août 2003 à 03:37
enfaite si ya un chr(0) ds le textbox le text s arretera la et totu ce ki se trouve apres sera po afficher
euh sinon trs bien cette source :)
12 avril 2003 à 10:56
je te promet que je ne suis pas ennemi des US, et salue de ma part THE HONORABLE GEORGE W. BUSH'S "AXIS OF EVIL".
Mais rien n'est demandé pour ce qui est des autre pays. On peut donc être ennemi de tout ce qui n'est pas US. Ce qui est bien dans l'informatique, c'est que seuls les US sont protégés. Bonne bourre BUSH.
6 avril 2003 à 12:30
--> 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:19
Mettez un truc du genre :
Dim strEncrypted, strDecrypted as string
strEncrypted = crypt.encryptstring(text1.text, "key")
text2.text = strEncrypted
strDecrypted = crypt.decryptstring(strencrypted, "key")
text1.text = strdecrypted
Msgbox "Longeur 1 : " & len(strencrypted) & "<>" & len(text1.text) & ", longeur dec : " & len(strdecrypted) & " <> " & len(text2.text)
Voila, regardez dans le msgbox, et vous verrez que ce sera pas identique.
Désolé si j'ai des erreurs dans ce que je vous ai passé, mais c'est ecrit "à la volée", sans vb
'car le textbox ne peut pafois ne pas afficher certains caractères, donc la décryption foire, il faut alors utiliser des variables !!! e
Krust : voila ta réponse ( la bonne )
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...
@+
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;)
5 avril 2003 à 15:07
5 avril 2003 à 13:59
- Base64
- MD5
ta vu ca ou toi :)
compression HUffman c tt :)