Imports System.Text
Imports System.Security.Cryptography
...

Public Function LeseEin(ByVal datei As String) As Byte()
  Return My.Computer.FileSystem.ReadAllBytes(datei)
End Function
 
Public Function GetMD5FromBytes(ByVal bData As Byte()) As String
  ' MD5-Hash eines Strings ermitteln
  ' Der String-Inhalt muss hierbei als Byte-Array 
  ' übergeben werden. Hierzu verweden wir einfach 
  ' System.Text.Encoding-Klasse
  Dim MD5 As New MD5CryptoServiceProvider
  MD5.ComputeHash(bData)
 
  ' als Ergebnis erhalten wir wieder ein Byte-Array, 
  ' das mittels der BitConverter-Klasse zurück in 
  ' einen String konvertiert wird.
  Return BitConverter.ToString(MD5.Hash)
End Function

' Hier werden die Funktionen dann aufgerufen
Dim data As Byte() = LeseEin("großedatei.dat")
Dim hash As String = GetMD5FromBytes(data)

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008