Die folgende Funktion erzeugt aus einem String einen MD5 Hash ohne Salt: Public Shared Function HashPwd(ByVal input As String) Dim x As System.Security.Cryptography.MD5CryptoServiceProvider = New System.Security.Cryptography.MD5CryptoServiceProvider Dim bs As Byte() = Encoding.UTF8.GetBytes(input) bs = x.ComputeHash(bs) Dim s As StringBuilder = New StringBuilder() For Each b As Byte In bs s.Append(b.ToString("x2").ToLower) […]
