ELFHASH在1184上的应用.不解WA了

function elfhash(s:string):longint;

var h,g,i:longint;

begin

h:=0;

for i:=1 to length(s) do

begin

h:=h shl 4+ord(s[i]);

g:=h and $f0000000;

if g0 then h:=h xor (g shr 24);

h:=h and (not g);

end;

h:=h mod 99991;

exit(h);

end;

大牛看..