Rubrik: Variablen/Strings · Algorithmen/Mathematik | VB-Versionen: VB2005, VB2008 | 24.11.09 |
SHA1-Hash eines String/einer Datei ermitteln Mit der Security.Cryptography-Klasse lässt sich ohne viel Aufwand der SHA1-Hash eines Strings oder einer Datei ermitteln. | ||
Autor: Dieter Otter | Bewertung: | Views: 14.071 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit der Security.Cryptography-Klasse lässt sich ohne viel Aufwand der SHA1-Hash eines Strings oder einer Datei ermitteln.
SHA1-Hash eines Strings ermitteln
Imports System.Text Imports System.Security.Cryptography ...
''' <summary> ''' Ermittelt den SHA1-Hash eines Strings. ''' </summary> Public Function GetSHA1FromString(ByVal sText As String) As String ' SHA1-Hash eines Strings ermitteln ' Der String-Inhalt muss hierbei als Byte-Array ' übergeben werden. Hierzu verweden wir einfach ' System.Text.Encoding-Klasse Dim SHA1 As New SHA1CryptoServiceProvider SHA1.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(SHA1.Hash) End Function
SHA1-Hash einer Datei ermitteln
Imports System.IO Imports System.Security.Cryptography ...
''' <summary> ''' Ermittelt den SHA1-Hash aus dem Inhalt einer Datei. ''' </summary> Public Function GetSHA1FromFile(ByVal sFile As String) As String ' SHA1-Hash einer Datei ermitteln ' Hierzu wird der Inhalt der Datei als "Stream" ' übergeben. Dim SHA1 As New SHA1CryptoServiceProvider Dim oStream As New FileStream(sFile, FileMode.Open, _ FileAccess.Read, FileShare.Read, 4096) SHA1.ComputeHash(oStream) oStream.Close() ' als Ergebnis erhalten wir ein Byte-Array, das ' mittels der BitConverter-Klasse in einen String ' konvertiert wird. Return BitConverter.ToString(SHA1.Hash) End Function