Denne artikkelen viser en enkel hashing algorythm
funksjon HashElf (konst Buf, BufSize: Integer):?. Integer; Var Bytes: TByteArray absolutt Buf; I, X: Integer; begynne Resultat: = 0; for jeg: = 0 til BufSize - en gjør begynne Resultat: = (Resultat SHL 4) + Bytes [I]; X: = Resultat og $ F0000000; if (X < > 0) så Resultat: = Resultat xor (X shr 24); Resultat: = Resultat og (ikke X); slutt; end;