Discussion :

[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 ?

[DarkVader]

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 - Visualiser dans une fenêtre à part

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