ActiveDelphi

[andelphi]

Pessoal,

bom dia a todos. Estou precisando de uma luz sobre como gerar o hash com o algoritmo FVN. Não achei nada na net nem aqui no fórum sobre isto. Alguém pode me dar uma luz, se já desenvolveu com esta assinatura.

Desde já, agradeço a atenção
André Henrique

[andelphi]

Galera,

resolvido. Segue abaixo quem quiser implementar a criptografia. É simples.

Abraços
André Henrique

function FNVHash(const Str : String) : Cardinal;
const FNVPrime = 16777619;
var
i : Cardinal;
begin
Result := 0;
for i := 1 to Length(Str) do
begin
Result := Result * FNVPrime;
Result := Result xor Ord(Str[i]);
end;
end;

[joemil]

por curiosidade: onde vc usa esse hash?
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/