1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Sécurité
  5. Md5 check sum

Md5 check sum

Soyez le premier à donner votre avis sur cette source.

Vue 12 992 fois - Téléchargée 1 621 fois

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

Ajouter un commentaire Commentaires
Signaler
Messages postés
34
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
6 juin 2008
Le MD5 à été cracker. Il est possible de faire des collisions du fichier altéré. Il suffit de rajouter des bytes inutiles pour que ton programme ait le même hash que le program non-altéré. Alors il est possible de faire un fichier altéré avec le même hash. Je conseil d'utiliser le MD5 + SHA1. Si deux fichiers ont le même hash MD5 ils n'ont pas nécessairement le même hash SHA1 alors c'est parfait!
Signaler
Messages postés
89
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 novembre 2010
Merci beaucoup :)
Signaler
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
 22
TheTiger > Tu peux renoter.
Signaler
Messages postés
89
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 novembre 2010
Il y aurrait moyen de changer la note que l'on a mis car j'ai eu un bug de sourie (je sais faut que je la change :( ) et ça a mis 6/10 je voulais mettre 10/10...

dsl...
Signaler
Messages postés
89
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 novembre 2010
Sympat t'a source et elle marche nikel ^^ je vais m'en servir et bien entendu je préciserais dans ma source l'auteur comme il se doit ^^ A toute
Afficher les 13 commentaires
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.