Téléchargé 8 fois
Vote des utilisateurs
0
0
Détails
Licence : Non renseignée
Mise en ligne le 23 mars 2011
Plate-forme :
Windows
Langue : Français
Référencé dans
Navigation
Encryptage MD5
Encryptage MD5
Une classe VB6 pour l'encryptage d'une chaine de caractères ou d'un fichier en MD5.
Je n'ai rien inventé, mais cette ressource manquait. Elle utilise l'algorithme développé en 1992 par Ron Rivest (RFC1321)
Cette source résulte d'un mixage de codes Delphi et Javascript. Merci à leurs auteurs.
Je n'ai rien inventé, mais cette ressource manquait. Elle utilise l'algorithme développé en 1992 par Ron Rivest (RFC1321)
Cette source résulte d'un mixage de codes Delphi et Javascript. Merci à leurs auteurs.
Salut Thierry,
Outre que c'est lent (x10 à x50/1 pour les chaines de textes et x50 à x500/1 dans le cas des fichiers),
il y a une erreur avec ta classe (que je n'ai pas cherché à identifier) qui porte sur certains fichiers
dans la procédure MD5Update sur la ligne « For K = 0 To InputLen - i - 1 » !!!
Voir ton exemple modifié auquel j'ai ajouté ma librairie ( il faut ajouter 2 labels : Label3/Label4)
Pour info, outre MD5 et file_MD5, la librairie retourne également CRC32, SHA1, SHA2 (SHA256) ...
Outre que c'est lent (x10 à x50/1 pour les chaines de textes et x50 à x500/1 dans le cas des fichiers),
il y a une erreur avec ta classe (que je n'ai pas cherché à identifier) qui porte sur certains fichiers
dans la procédure MD5Update sur la ligne « For K = 0 To InputLen - i - 1 » !!!
Voir ton exemple modifié auquel j'ai ajouté ma librairie ( il faut ajouter 2 labels : Label3/Label4)
Code : | Sélectionner tout |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | Option Explicit Dim t0, t1, t2 Private Sub Command1_Click() t0 = RDTSC Dim c As New cMD5 Text2.Text = c.MD5StrToHexStr(Text1.Text) t1 = RDTSC Label3.Caption = MD5(Text1.Text) t2 = RDTSC MsgBox (t2 - t1) / (t1 - t0) End Sub Private Sub Command2_Click() With CommonDialog1 .ShowOpen t0 = RDTSC Dim c As New cMD5 Text2.Text = c.MD5FileToHexStr(.FileName) t1 = RDTSC Label4.Caption = File_MD5(.FileName) t2 = RDTSC End With MsgBox (t2 - t1) / (t1 - t0) End Sub |
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.