Function mix(ByVal ia, ByVal ib, ByVal ic)
Dim a, b, c
a = ia
b = ib
c = ic

a = usub(a, b)
a = usub(a, c)
a = a Xor zeroFill(c, 13)

b = usub(b, c)
b = usub(b, a)
b = b Xor sl(a, 8)

b = usub(b, c)
b = usub(b, a)
b = b Xor sl(a, 10)

c = usub(c, a)
c = usub(c, b)
c = c Xor zeroFill(b, 15)

Dim ret(3)

ret(0) = a
ret(1) = b
ret(2) = c

mix = ret
End Function

Function gc(ByVal s, ByVal i)
gc = Asc(Mid(s, i + 1, 1))
End Function

Function GoogleCH(ByVal sUrl)
Dim iLength, a, b, c, k, iLen, m
iLength = Len(sUrl)

a = &H9E3779B9
b = &H9E3779B9
c = GOOGLE_MAGIC
k = 0

iLen = iLength