MD5 d'un fichier

Bonjour,

J'ai un formulaire avec un bouton et une Textbox.
en cliquant sur le bouton, j'ai une fenetre de recherche de fichier qui s'ouvre pour selectionner un fichier (OpenFileDialog).

Je voudrais que le code MD5 du fichier choisi s'affiche dans une autre TextBox (en cliquant sur un autre bouton éventuellement) mais j'ai aucune idée de comment récupérer le MD5 d'un fichier.

Merci d'avance de votre aide

Bonne journée
A+

Citation:

---

Envoyé par FCL31

j'ai aucune idée de comment récupérer le MD5 d'un fichier.

---

Code:

---

1 2 3 4 5 6 7

using (var md5 = MD5.Create()) { using (var stream = File.OpenRead(file)) { return md5.ComputeHash(stream); } }

---

Merci meziantou

Mais en Visual Basic, ça donne quoi ???

J'ai pas fait attention, désolé :oops:

http://converter.telerik.com :

Code:

---

1 2 3 4 5

Using hashAlgorithm = MD5.Create() Using stream = File.OpenRead(file) Return hashAlgorithm.ComputeHash(stream) End Using End Using

---

Merci beaucoup mais comment je l'applique à un bouton pour avoir le resultat dans une Textbox ??

Quand tu cliques sur le bouton tu récupères le chemin du fichier dont tu veux calculer le MD5, tu utilises le code en remplaçant "file" par le chemin du fichier. La méthode ComputeHash te renvoie un tableau de byte. Ensuite cela dépend de la façon dont tu veux l'afficher : base64, Hexadecimal

Par exemple en Hexadecimal:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Using hashAlgorithm = MD5.Create() Using stream = File.OpenRead(file) Dim hash As Byte() = hashAlgorithm.ComputeHash(stream)   Dim sb As New StringBuilder() For i As Integer = 0 To hash.Length - 1 sb.Append(hash(i).ToString("x2")) Next   TextBoxResultat.Text = sb.ToString() End Using End Using

---

Merci.

Il y aura peut-être d'autre problème mais toujours est-il que pour

Citation:

---

MD5.Create()

---

il me marque :

Citation:

---

Type'MD5.Create' non défini

---

J'ai mal fais ou mal compris quelque chose ???

Essaye System.Security.Cryptography.MD5

Je pense qu'on a réussi :

Il me manquais quelques truc dans ton code (presque rien).
Voici le code que j'ai fais (si j'ai bien recopié):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Imports System.IO Imports System.Text       Private Sub Button2_Click .....   Using hashAlgorithm = System.Security.Cryptography.MD5.Create Using stream = File.OpenRead(TextBox1.Text) Dim hash As Byte() = hashAlgorithm.ComputeHash(stream)   Dim sb As New StringBuilder() For i As Integer = 0 To hash.Length - 1 sb.Append(hash(i).ToString("x2")) Next   TextBoxResultat.Text = sb.ToString() End Using End Using

---

Merci beaucoup

C'est fou se qu'on peut apprendre en quelque messages