Md5 check sum

Télécharger le projet
Commenter

Description

ce code permet de comparer de code MD5 d'un fichier et de crypter du text en MD5
pour en savoire plus telecharger le zip...

Source / Exemple : 


Option Explicit
Dim TextMD5 As MD5 'Variable pour le cryptage
Dim Chemin As String 'String du Chemin
Dim Org As Boolean 'Renvoie True si on a mit un hash a comparer

Private Sub Form_Load()
Call Reset_Click 'Efface tout pour etre sur
Set TextMD5 = New MD5 'Initialise la classe
End Sub

Private Sub Check_Click()

'Regarde si on doit comparer les 2 MD5
If txtOrg.Text <> "" Then
    Org = True 'Hash a comparer
Else
    Org = False 'Pas de hash a comparer
End If

If FileExist(Chemin) Then
    'Appelle les fonctions pour calculer le MD5
    txtResult.Text = MD5File(Chemin)
    txtString.Text = MD5String(Chemin)
    If Org = True Then
        Call Compare 'Compare les 2 Hashs
    End If
Else 'Boum ! Chemin invalide ...
    txtChemin.Text = "Chemin invalide !"
End If

End Sub

Private Sub Crypt_Click()
If txtTexteClair.Text = "" Then Exit Sub 'Teste les champs
'Crypte le texte
txtTexteCrypte.Text = LCase(TextMD5.DigestStrToHexStr(txtTexteClair.Text))
End Sub

Private Sub Parcourir_Click()
'Procedure pour recuperer le chemin du fichier
Fichier.ShowOpen 'Ouvre la boite
Chemin = Fichier.FileName 'Recupere le chemin
txtChemin.Text = Chemin 'Affiche le chemin
End Sub

Private Sub PP_Click()
Clipboard.Clear 'Vide le presse-papier
Clipboard.SetText (txtResult.Text) 'Copie dans le presse-papier
End Sub

Private Sub PP2_Click()
Clipboard.Clear 'Vide le presse-papier
Clipboard.SetText (txtTexteCrypte.Text) 'Copie dans le presse-papier
End Sub

Private Sub Reset_Click()
'Fait le ménage
txtResult.Text = ""
txtString.Text = ""
txtChemin.Text = ""
txtOrg.Text = ""
Chemin = ""
Org = False
End Sub

Private Sub Reset2_Click()
'Fait le ménage
txtTexteClair.Text = ""
txtTexteCrypte.Text = ""
End Sub

Private Sub End_Click()
End 'Quitte
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.