Scalabium Software

• Delphi/C++Builder
  • VCL components
  • Database/SQL
  • Reports, printing
  • Email, Internet
  • Windows API
  • Menu
  • Tools API/IDE
  • OLE, COM, DDE
  • Files, drives, network
  • Algorithmes
  • Conversions
  • Multimedia
  • Miscellaneous
• .NET/C#
  • Database
  • Conversions
  • Miscellaneous
  • Files, drives, network
  • OLE/Interop
  • Visual controls
  • Multimedia, images
• Java

Sometime ago I posted a code for hash calculation of strings (CRC32 and easy method which is extracted from VCL sources). Today I want to post a code for ELF algorithm which allow to receive a strong distributed hash from string. This algorithm is very popular because can be implemented in any programming language (from VB to Java) and is a very-very fast (contain one easy loop only).

See a code below:

function ElfHash(const Value: string): Integer;
var
  i, x: Integer;
begin
  Result := 0;
  for i := 1 to Length(Value) do
  begin
    Result := (Result shl 4) + Ord(Value[i]);
    x := Result and $F0000000;
    if (x <> 0) then
      Result := Result xor (x shr 24);
    Result := Result and (not x);
  end;
end;

A few examples you can see in table below:

Published: December 13, 2001

Copyright© 1998-2024, Scalabium Software. All rights reserved.
webmaster@scalabium.com