Jenkins Hash

Private Function jenkins_one_at_a_time_hash(key As Pointer(Of Char), len As size_t) As uint32_t
    Dim hash As uint32_t, i As uint32_t
    hash = InlineAssignHelper(i, 0)
    While i < len
        hash += key(i)
        hash += (hash << 10)
        hash = hash Xor (hash >> 6)
        i += 1
    End While
    hash += (hash << 3)
    hash = hash Xor (hash >> 11)
    hash += (hash << 15)
    Return hash
End Function