IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Téléchargé 7 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

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.
Avatar de DarkVader
Rédacteur https://www.developpez.com
Le 14/03/2015 à 18:44
Citation Envoyé par ThierryAIM Voir le message
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) ...
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.