Dieser Artikel beschreibt eine einfache Hash-Algorithmen.
Funktion HashElf (const Buf; BufSize: Integer): Integer;
var
Byte: TByteArray absolute Buf;
Ich, X: Integer;
beginnen
Ergebnis: = 0;
für I: = 0, BufSize - 1
beginnen
Ergebnis: = (Ergebnis Shl 4) + Byte [I];
X: = Ergebnis und $F0000000;
Wenn (X <> 0) dann
Ergebnis: = Ergebnis Xor (X Shr 24);
Ergebnis: = Ergebnis und (nicht X);
Ende;
Ende;
Hash-wer?
Hash-wer? : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Dieser Artikel beschreibt eine einfache Hash-Algorithmen.
Funktion HashElf (const Buf; BufSize: Integer): Integer;
var
Byte: TByteArray absolute Buf;
Ich, X: Integer;
beginnen
Ergebnis: = 0;
für I: = 0, BufSize - 1
beginnen
Ergebnis: = (Ergebnis Shl 4) + Byte [I];
X: = Ergebnis und $F0000000;
Wenn (X <> 0) dann
Ergebnis: = Ergebnis Xor (X Shr 24);
Ergebnis: = Ergebnis und (nicht X);
Ende;
Ende;