Descrição

Funções nativas para gerar MD5 de strings e de arquivos.

Implementação

Delphi

Obs: É necessário o pacote Indy.

Uses
  IdHashMessageDigest;
 
  .
  .
  .
 
//PARA GERAR MD5 DE UM ARQUIVO  
function MD5File(const fileName: string): string;
var
  idmd5 : TIdHashMessageDigest5;
  fs    : TFileStream;
begin
  idmd5 := TIdHashMessageDigest5.Create;
  fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
  try
    result := idmd5.HashStreamAsHex(fs);
  finally
    fs.Free;
    idmd5.Free;
  end;
end; 
 
//PARA GERAR MD5 DE UMA STRING
function MD5(const texto: string): string;
var
  idmd5: TIdHashMessageDigest5;
begin
  idmd5 := TIdHashMessageDigest5.Create;
  try
    result := idmd5.HashStringAsHex(texto);
  finally
    idmd5.Free;
  end;
end