sub MakeHashString($)
   {
   my $string = shift;
   my $hash = 0;
   my $i = 0;
   my $c = 0;

   for ($i = 0; $i < length($string); ++$i)
       {
       $c = ord(substr($string, $i, 1));
       $hash = ($c + ($hash * 64) + ($hash * 65536) - $hash) & 0xffffffff;
       }

   return $hash;
   }