Hash de cualquier persona ?
en Este artículo se muestra un sencillo algoritmo de hash.
la función de HashElf(const Buf BufSize: Integer): Integer
var
& nbsp & nbsp Bytes: TByteArray absoluta Buf
& nbsp & nbsp I, X: Integer
begin
& nbsp & nbsp Resultado := 0
& nbsp & nbsp for I := 0 a BufSize - 1 hacer
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := (Resultado shl 4) Bytes[I]
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp X := Resultado y $F0000000
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp if (X <> 0) a continuación,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := Resultado xor (X shr 24)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := Resultado y (no X)
& nbsp & nbsp & nbsp & nbsp final
fin
Hash de cualquier persona ?
Hash de cualquier persona ? : Multi-millones de consejos para hacer su vida mas facil.
en Este articulo se muestra un sencillo algoritmo de hash.
la funcion de HashElf(const Buf BufSize: Integer): Integer
var
& nbsp & nbsp Bytes: TByteArray absoluta Buf
& nbsp & nbsp I, X: Integer
begin
& nbsp & nbsp Resultado := 0
& nbsp & nbsp for I := 0 a BufSize - 1 hacer
& nbsp & nbsp & nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := (Resultado shl 4) Bytes[I]
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp X := Resultado y $F0000000
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp if (X <> 0) a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := Resultado xor (X shr 24)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Resultado := Resultado y (no X)
& nbsp & nbsp & nbsp & nbsp final
fin
Hash de cualquier persona ?
By Consejos Y Trucos
Hash de cualquier persona ? : Multi-millones de consejos para hacer su vida más fácil.