Hi.
Ich habe bislang leider keine Umkehrfunktion (Decoding) f�r das Hash'en in
untenstehendem Beispiel gefunden. kann mir jamena einen Tipp geben?
Gru0
Steffen
Public Shared Sub HashText(ByVal TextToHash As String)
Dim SHA1 As SHA1CryptoServiceProvider
Dim bytValue() As Byte
Dim bytHash() As Byte
' Create New Crypto Service Provider Object
SHA1 = New SHA1CryptoServiceProvider
' Convert the original string to array of Bytes
bytValue = System.Text.Encoding.UTF8.GetBytes(TextToHash)
' Compute the Hash, returns an array of Bytes
bytHash = SHA1.ComputeHash(bytValue)
SHA1.Clear()
' Return a base 64 encoded string of the Hash value
MessageBox.Show(Convert.ToBase64String(bytHash))
End Sub
_______________________________________________
Framework.net Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/framework.net
