Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
Hallo,
das folgende Beispiel zeigt, wie der MD5-Hashwert einer Datei ermittelt wird:
<br>
<b>Klasse OSHash.vb</b>
<code>
Imports System.IO
Imports System.Security.Cryptography
<br>
Public Class OSHash
<br>
Public Shared Function OSMD5HashFromFile(ByVal sFileToHash As String) As String
Dim aMD5 As MD5CryptoServiceProvider
Dim aFS As FileStream = New FileStream(sFileToHash, FileMode.Open, FileAccess.Read)
Try
Dim aBuffer As Byte()
aMD5 = New MD5CryptoServiceProvider
aBuffer = aMD5.ComputeHash(aFS)
Return BitConverter.ToString(aBuffer)
Finally
aFS.Close()
End Try
End Function
<br>
End Class
</code>
<b>Aufruf:</b>
<code>
Private Sub buttonTx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonTx.Click
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
statusBar1.Text = OpenFileDialog1.FileName
labelTx.Text = OSHash.OSMD5HashFromFile(OpenFileDialog1.FileName)
End If
End Sub
</code>
Comment