stock num_hash(buf[])
 {
    new length=strlen(buf);
    new s1 = 1;
    new s2 = 0;
    new n;
    for (n=0; n<length; n++) {
       s1 = (s1 + buf[n]) % 65521;
       s2 = (s2 + s1)     % 65521;
    }
    return (s2 << 16) + s1;
 }

function num_hash($buf)
{
    $length = strlen($buf);
    $s1 = 0;
    $s2 = 0;
    $n = 0;
    while($n < $length)
    {
        $s1 = ($s1 + ord($buf[$n])) % 65521;
        $s2 = ($s2 + $s1) % 65521;
        $n++;
    }
    return ($s2 << 16) + $s1;
}