Funktion zum generieren eines Hashs mit SHA512

Posts: 400
Comments: 213
Trackbacks: 0

<< Fun mit einem sicheren E-Mail Passwort auf einem Mac-Rechner | Home | Flashmob Heidelberg Uniplatz >>

Funktion zum generieren eines Hashs mit SHA512

nur für mein Archiv

Public Function GetHashCodeSHA512(ByVal ClearString As String) As String

   Dim uEncode As New UnicodeEncoding()
   Dim bytClearString() As Byte = uEncode.GetBytes(ClearString)
   Dim sha As New System.Security.Cryptography.SHA512Managed()
   Dim hash() As Byte = sha.ComputeHash(bytClearString)