Enum HashType As Byte
        SHA1 = 1
        SHA256 = 2
        SHA384 = 3
        SHA512 = 4
        MD5 = 5
    End Enum
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim myhash As HashType = HashType.SHA512
        Dim mypw As String = TextBox1.Text
        Dim b() As Byte = GetHash(mypw, myhash)
        mypw = TextBox2.Text
        MsgBox("Passwort ist identisch: " & ComparePassword(mypw, b, _
          myhash).ToString)
    End Sub
 
    Private Function ComparePassword(ByVal password As String, ByVal hash As _
      Byte(), ByVal hashtype As HashType) As Boolean
        Return CompareByteArrays(GetHash(password, hashtype), hash)
    End Function
 
    Private Function CompareByteArrays(ByVal a() As Byte, ByVal b() As Byte) As _
      Boolean
        If Not b.Length = a.Length Then Return False
        For i As Integer = 0 To b.Length - 1
            If Not a(i) = b(i) Then Return False
        Next
        Return True
    End Function
 
    Private Function GetHash(ByVal s As String, ByVal hashtype As hashtype) As _
      Byte()
        Dim ha As HashAlgorithm = Nothing
        Select Case hashtype
            Case hashtype.MD5
                ha = New MD5CryptoServiceProvider
            Case hashtype.SHA1
                ha = New SHA1Managed
            Case hashtype.SHA256
                ha = New SHA256Managed
            Case hashtype.SHA384
                ha = New SHA384Managed
            Case hashtype.SHA512
                ha = New SHA512Managed
        End Select
        Dim ret() As Byte = ha.ComputeHash(Encoding.Default.GetBytes(s))
        ha.Clear()
        Return ret
    End Function