procedure TMain.Button3Click(Sender: TObject);
const
  CRC32_POLYNOMIAL = $EDB88320;
var
  i, k, T      : integer;
  L            : TStringList;
  Ccitt32Table : array[0..255] of longint;

  function crc32(crc : longint; const c : byte) : longint;
  begin
    crc32 := (((crc shr 8) and $00FFFFFF) xor (Ccitt32Table[(crc xor c) and $FF]));
  end;

  procedure BuildCRCTable;
  var
  i, j, value : DWORD;
  begin
  for i := 0 to 255 do
  begin
  value := i;
  for j := 8 downto 1 do
  begin
  if ((value and 1) <> 0) then
  value := (value shr 1) xor CRC32_POLYNOMIAL
  else
  value := value shr 1;
  end;
  Ccitt32Table[i] := value;
  end
  end;


function GetHash1(const Key: String): integer;
var p: pchar;
begin
  Result := $FFFFFFFF;
  p := pointer(Key);
  if p <> nil then
    while p^ <> #0 do
    begin
      Result := (((Result shr 8) and $00FFFFFF) xor (Ccitt32Table[(Result xor byte(p^)) and $FF]));
      inc(p);
    end;
end;

{$OverFlowChecks OFF}
function GetHash2(const Key: String): integer;
var
  a : Integer;
  i : Integer;
begin
  Result:=0;
  a:=63689;
  for i:=1 To Length(Key)-1 do begin
    Result:=Result*a+PWordArray(Key)[i];
    a:=a*378551;
  end;
end;
{$OverFlowChecks On}


begin
  BuildCRCTable;

  L:=TStringList.Create;
  L.Add('div');
  L.Add('span');
  L.Add('table');
  L.Add('td');
  L.Add('tr');
  L.Add('th');
  L.Add('li');
  L.Add('meta');
  L.Add('script');
  L.Add('style');
  L.Add('ol');
  L.Add('ul');
  L.Add('h1');
  L.Add('h2');
  L.Add('h3');
  L.Add('h4');
  L.Add('h5');
  L.Add('thead');
  L.Add('tbody');
  L.Add('html');
  L.Add('body');
  L.Add('blockquote');
  L.Add('address');
  L.Add('frame');
  L.Add('frameset');
  L.Add('pre');
  L.Add('button');
  L.Add('textarea');
  L.Add('strike');
  L.Add('del');
  L.Add('menu');
  L.Add('small');
  L.Add('sub');
  L.Add('sup');
  L.Add('img');
  L.Add('fieldset');
  L.Add('legend');

  T := GetTickCount;
  for i := 1 to 1000000 do
  begin
    for k := 0 to L.Count -1 do
      GetHash1(L[k]);
  end;
  Edit1.Text := inttostr(GetTickCount - T);

  T := GetTickCount;
  for i := 1 to 1000000 do
  begin
    for k := 0 to L.Count -1 do
      GetHash2(L[k]);
  end;
  Edit2.Text := inttostr(GetTickCount - T);
end;