Gerar MD5

[Gr@c@]

Como gerar o codigo MD5 usando os componentes ACBr?

Atualmente estou usando a função da Bematech

function md5FromFile( NomeArq: String; MD5: String ): integer; stdcall; external 'sign_bema.dll';

[Celso Marigo Junior]

Tente com o ACBrEAD, veja os exemplos no EADTeste.

function TACBrEAD.MD5FromFile(const APathArquivo: String): String;
begin
  Result := String(CalcularHashArquivo(APathArquivo, dgstMD5));
end;

function TACBrEAD.MD5FromString(const AString: String): String;
begin
  Result := String(CalcularHash(AnsiString(AString), dgstMD5));
end;

 

[Gr@c@]

Obrigada pelo retorno.

[Daniel Simoes]

Em Synacode.pas você tem ainda um método ainda mais simples... e que não depende de nenhuma DLL externa

{:Returns a binary string with a RSA-MD5 hashing of "Value" string.}
function MD5(const Value: AnsiString): AnsiString;  

 

[Paulo Tenório]

Fiz um teste comparativo entre as duas opções referenciadas aqui. o GetACBrEAD.MD5FromString tem ligeira vantagem de performance na geração do MD-5. Só estranhei o fato da string resultante de um ser diferente da string resultante do  outro. Independente do método escolhido, o resultado não deveria ser o mesmo?

[Juliomar Marchetti]

Sim deve ser o mesmo!

[Daniel Simoes]

Qual foi a linha de código utilizada, em ambos os casos ?

[Paulo Tenório]

Testei em uma function

FUNCTION Gerar_MD5_Registro(Tabela: TDataSet): AnsiString;
VAR
  NFields, i: Integer;
  buffer    : AnsiString;
BEGIN
  buffer  := '';
  NFields := Tabela.FieldCount - 1;

  FOR i   := 0 TO NFields DO
  BEGIN
    IF (LowerCase(Tabela.Fields.FieldName) <> 'chave') THEN
    BEGIN
      IF (NOT(Tabela.Fields.IsNull)) THEN
      BEGIN
        buffer := buffer + Tabela.Fields.AsString;
      END;
    END;
  END;

  Result := FormPrincipal.ACBrPAF1.GetACBrEAD.MD5FromString(buffer);
  //Result := MD5(buffer);
END;

 

[Daniel Simoes]

Provavelmente você está computando inclusive o campo com o HASH na segunda interação...

 MD5_1 := FormPrincipal.ACBrPAF1.GetACBrEAD.MD5FromString(buffer);
 MD5_2 := MD5(buffer);

Aqui, ambas variáveis devem conter o mesmo HASH

[Paulo Tenório]

O método MD5(buffer) está retornando sempre uma string criptografada.

[Juliomar Marchetti]

Ou não!

o método pode estar diferente os tipos de AnsiString e estar tratando como UTF-8 por exemplo

[Daniel Simoes]

Humm.. ele está retornando em binário...

É necessário converter para Hexadecimal ou Base64... Se não me engano, na ACBrUtil tem método de conversão para Hexa

[Paulo Tenório]

Sim Daniel,

O retorno é binário. Eu dei uma pesquisada e vi um caso em que, após o uso do método, deve ser feita uma conversão para hexa.

Como não vi ganho de performance, vou permanecer utilizando o ACBrPAF1.GetACBrEAD.MD5FromString, não há motivos para reinventar a roda.

Obrigado..

 

[Daniel Simoes]

Realmente...

Curiouso ser mais rápido usando o EAD ( que usa o OpenSSL).

A implementação da Synapse é pascal puro...

[EMBarbosa]

6 horas atrás, Daniel Simoes disse:

Realmente...

Curiouso ser mais rápido usando o EAD ( que usa o OpenSSL).

A implementação da Synapse é pascal puro...

Talvez a implementação da OpenSSL é otimizada.