Feedback

VB - Den SHA1 Hash eines Strings ermitteln

Veröffentlicht von am 03.06.2006
(1 Bewertungen)
Den SHA1 Hash eines Strings ermitteln
Snippet in C# übersetzen
Imports System.Security.Cryptography
Imports System.Text

Public Function SHA1StringHash(ByVal strString As String) As String
    Dim SHA1 As New SHA1CryptoServiceProvider
    Dim Data As Byte()
    Dim Result As Byte()
    Dim Res As String = ""
    Dim Tmp As String = ""

    Data = Encoding.ASCII.GetBytes(strString)
    Result = SHA1.ComputeHash(Data)
    For i As Integer = 0 To Result.Length - 1
        Tmp = Hex(Result(i))
        If Len(Tmp) = 1 Then Tmp = "0" & Tmp
        Res += Tmp
    Next
    Return Res
End Function
Abgelegt unter SHA1, Hash, String.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!