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.

Signaler un problème

DarkVader

Rédacteur

Le 14/03/2015 à 18:44

Envoyé par ThierryAIM

Bonjour,

Je vous propose un nouvel élément à utiliser : 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.

Qu'en pensez-vous ?

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)

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

Pour info, outre MD5 et file_MD5, la librairie retourne également CRC32, SHA1, SHA2 (SHA256) ...

Poster un commentaire

Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.