التشفيير في إتجاه واحد - نسخة قابلة للطباعة

PHP كود :

Imports System.Security.Cryptography
Imports System.Text

Public Class Hasher

    Private Const hashLength As Integer = 8
    Private internalHasher As HashAlgorithm

    Private Property Algorithm As HashAlgorithm
        Get
            Dim hasher As HashAlgorithm = internalHasher
            If hasher Is Nothing Then
                hasher = New SHA512Managed
                Algorithm = hasher
            End If
            Return hasher
        End Get
        Set(value As HashAlgorithm)
            internalHasher = value
        End Set
    End Property

    Public Function Verify(input As String, hash As String) As Boolean
        Return VerifyHash(Encoding.UTF8.GetBytes(input), Encoding.UTF8.GetBytes(hash))
    End Function

    Private Function VerifyHash(a() As Byte, b() As Byte) As Boolean
        Dim length As Integer = a.Length Xor b.Length
        Dim i As Integer = 0
        While i < a.Length AndAlso i < b.Length
            length = length Or a(i) Xor b(i)
            i += 1
        End While
        Return length = 0
    End Function

    Public Function Hash(input As String) As String
        Return Hash(Algorithm, input)
    End Function

    Private Function Hash(provider As SHA512Managed, input As String) As String
        Dim data As Byte() = provider.ComputeHash(Encoding.UTF8.GetBytes(input))

        For i As Integer = hashLength To data.Length - 1 Step hashLength
            For j As Integer = 0 To hashLength - 1
                data(j) = (data(j) Xor data(j + i))
            Next
        Next
        Return BitConverter.ToString(data, 0, hashLength).Replace("-", String.Empty)

    End Function

End Class

كود :

    Public Function Verify(ByVal input As String, ByVal hash As String) As Boolean

        Dim HashInput As String = Me.Hash(input)

        Return VerifyHash(Encoding.UTF8.GetBytes(HashInput), Encoding.UTF8.GetBytes(hash))

    End Function