Tweet
Hallo
Kann mir jemand den Code dafür geben
Gruß
Kann mir jemand den Code dafür geben
Gruß
-
-
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