ActiveDelphi

rodrigo_porto

bom dia,
preciso gerar um hash de uma senha e preciso que o resultado do hash sha1 seja em bits. Tentei usar o componente lockbox mas nao encontrei nada sobre como obter o resultado em bits, alguem poderia ajudar a solucionar este problema. obrigado

rafmattos · Enviada: Qua Mar 30, 2011 10:13 am Assunto:

da uma olhada nesse link aqui

http://www.activedelphi.com.br/forum/viewtopic.php?p=27913&sid=7a12d7853070900a7def3f37cf8c8f84

gilsonnrodrigues · Enviada: Qua Mar 30, 2011 11:34 am Assunto:

intToBin

rodrigo_porto · Enviada: Qua Mar 30, 2011 11:38 am Assunto:

gilsonnrodrigues · Enviada: Qua Mar 30, 2011 2:24 pm Assunto:

na realidade td é em bytes, logo td é em bits.

rodrigo_porto · Enviada: Qui Mar 31, 2011 8:13 am Assunto:

Pessoal, eu estou usando o componente LbSHA1 do lockbox e quando eu estou gerando o hash obtenho os bytes

LbSHA11 := tLbSHA1.create(nil);
LbSHA11.HashString('1234');
LbSHA11.GetDigest(SHA1Digest); (bytes obtido aqui)

mas eu nao encontrei nenhuma funcao que faça o encode Base64 convertendo esse resultado de bytes em string, encontrei alguns encode Base64 que recebem uma string e retornam um string, encontrei tbm uma funcao que converte byte para string (ByteToString) e depois eu tentei fazer o enconde base64 mas o resultado foi diferente do esperado ("esperado: cRDtpNCeBiql5KOQsKVyrA0sAiA=" "obtido: oUAd1ADONlrVFNPA4NWi3D1cMlB="). Alguem tem alguma ideia para ajudar a resolver este problema?

rodrigo_porto

RESOLVIDO, RESOLVIDO, RESOLVIDO, RESOLVIDO
Pessoal resolvi o problema, a solucao foi

for I := 0 to high(SHA1Digest) do begin
senha:= senha + char(SHA1Digest[i]);
end;
senha:= Base64Encode(senha);

com esse codigo consegui obter o resultado esperado: cRDtpNCeBiql5KOQsKVyrA0sAiA=
obrigado aos que tentaram ajudar, t+.