UInt64 8bit Hash -TizzyT

    Public Function UInt64_Hash(ByVal Value As UInt64, Optional ByVal XorVal As Byte = 170) As Byte
        Dim ValueBytes() As Byte = BitConverter.GetBytes(Value)
        Dim HashCode As Int16 = ValueBytes(0)
        For i = 1 To 7 : HashCode += ValueBytes(i) Xor XorVal : Next
        Return HashCode Mod 256
    End Function