Cet article montre un simple algorithme de hachage.
la fonction HashElf(const Buf BufSize: Integer): Integer
var
& nbsp & nbsp Octets: TByteArray absolue Buf
& nbsp & nbsp I, X: Entier
begin
& nbsp & nbsp Result := 0
& nbsp & nbsp for I := De 0 à BufSize - 1 do
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp Result := (Résultat shl 4) Octets[I]
& ! & ! & ! & ! & ! & nbsp X := Résultat et $F0000000
& ! & ! & ! & ! & ! & nbsp si (X <> 0) puis
& ! & ! & ! & ! & ! & ! & ! & nbsp Result := Result xor (X shr 24)
& ! & ! & ! & ! & ! & nbsp Result := Result (et non pas X)
& ! & ! & ! & nbsp fin
fin
Hachage de quelqu'un ?
Hachage de quelqu'un ? : Plusieurs milliers de conseils pour vous faciliter la vie.
Cet article montre un simple algorithme de hachage.
la fonction HashElf(const Buf BufSize: Integer): Integer
var
& nbsp & nbsp Octets: TByteArray absolue Buf
& nbsp & nbsp I, X: Entier
begin
& nbsp & nbsp Result := 0
& nbsp & nbsp for I := De 0 a BufSize - 1 do
& ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & nbsp Result := (Resultat shl 4) Octets[I]
& ! & ! & ! & ! & ! & nbsp X := Resultat et $F0000000
& ! & ! & ! & ! & ! & nbsp si (X <> 0) puis
& ! & ! & ! & ! & ! & ! & ! & nbsp Result := Result xor (X shr 24)
& ! & ! & ! & ! & ! & nbsp Result := Result (et non pas X)
& ! & ! & ! & nbsp fin
fin