====== Descrição ======
Funções nativas para gerar MD5 de strings e de arquivos.

====== Implementação ======
===== Delphi =====
Obs: É necessário o pacote Indy.
<code delphi>
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
</code>