function hash_1(var arKey:Pointer, nKeyLength:integer) : LongInt;
var	h: longint;
	arEnd: Pointer;
begin
	h:=5831;
	@arEnd := arKey + nKeyLength;
	while(arKey < arEnd) do
	begin
		h:= h + (h Shl 5);
		h:= @arKey++;
	end;
	result:=h;
end.


function hash_2(var arKey:Pointer, nKeyLength:integer) : LongInt;
var 	h: longint;
	arEnd: Pointer;
begin
	h:=5831;
	@arEnd := arKey + nKeyLength;
	while(arKey < arEnd) do
	begin
		h: = h + (h Shl 5);
		h: = h Xor @arKey++;
	end;
	result:=h;
end.