Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

sexta-feira, 23 de novembro de 2012

DELPHI - Calculando e Verificando Hash - Message Digest 5 (MD5)

Reações: 


// Uses IdHashMessageDigest, idHash;

function GetHash (const Value : string) : string;
// Uses IdHashMessageDigest, idHash;
 var
   idMD5 : IdHashMessageDigest.TIdHashMessageDigest5;
begin
  idMD5 := TIdHashMessageDigest5.Create;
  try
    result := idMD5.AsHex(idMD5.HashValue(Value)) ;
  finally
    FreeAndNil(idMD5);
  end;
end;

function VerifyHash (const Value, Hash : string) : Boolean;
// Uses IdHashMessageDigest, idHash;
begin
  Result := Hash = GetHash(Value) ;
end;
/// Função para Indy 10 e DelphiXE3 - Funcionamento testado

function GetHash (const Value : string) : string;
// Uses IdHashMessageDigest, idHash;
 var
   idMD5 : IdHashMessageDigest.TIdHashMessageDigest5;
begin
  idMD5 := TIdHashMessageDigest5.Create;
  try
    result := TIdHash(idMD5).HashStringAsHex(Value);
  finally
    FreeAndNil(idMD5);
  end;
end; 

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer