vb.net 字符串哈希算法-Time33

Time33在效率和随机性两方面上俱佳。对于一个Hash函数，评价其优劣的标准应为随机性，即对任意一组标本，进入Hash表每一个单元（cell）之概率的平均程度，因为这个概率越平均，数据在表中的分布就越平均，表的空间利用率就越高。

Times33的算法很简单，就是不断的乘33，见下面算法原型。

hash(i) = hash(i-1) * 33 + str[i]

代码如下：

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim myhash As ULong = 0
        Dim mystr As String = TextBox1.Text
        For i As Integer = 0 To Len(mystr) - 1
            myhash = myhash * 33 + Strings.AscW(mystr(i))
        Next
            TextBox2.Text = myhash

    End Sub
End Class

 

 

截图如下：