Rubrik: Verschiedenes / Sonstiges | VB-Versionen: VB.NET | 06.09.07 |
MD5-Hash eines String/einer Datei ermitteln Mit der Security.Cryptography-Klasse lässt sich ohne viel Aufwand der MD5-Hash eines Strings oder einer Datei ermitteln. | ||
Autor: Dieter Otter | Bewertung: | Views: 21.450 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit der Security.Cryptography-Klasse lässt sich ohne viel Aufwand der MD5-Hash eines Strings oder einer Datei ermitteln.
MD5-Hash eines Strings ermitteln
Imports System.Text Imports System.Security.Cryptography ...
Public Function GetMD5FromString(ByVal sText As String) 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(System.Text.Encoding.Default.GetBytes(sText)) ' 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
MD5-Hash einer Datei ermitteln
Imports System.IO Imports System.Security.Cryptography ...
Public Function GetMD5FromFile(ByVal sFile As String) As String ' MD5-Hash einer Datei ermitteln ' Hierzu wird der Inhalt der Datei als "Stream" ' übergeben. Dim MD5 As New MD5CryptoServiceProvider Dim oStream As New FileStream(sFile, FileMode.Open, _ FileAccess.Read, FileShare.Read, 4096) MD5.ComputeHash(oStream) oStream.Close() ' als Ergebnis erhalten wir ein Byte-Array, das ' mittels der BitConverter-Klasse in einen String ' konvertiert wird. Return BitConverter.ToString(MD5.Hash) End Function