¿Como funciona MD5?

[[duilioisola]]

Hay dos funciones en la unidad de Seoane.
A CalcHash le pasas la ruta y nombre del archivo y te devuelve su Hash.
CalcHash2 calcula el Hash de un string.

Código Delphi [-]
function CalcHash(Archivo: string; Algorithm: THashAlgorithm): string; overload;
var
  Stream: TFileStream;
begin
  Result:= EmptyStr;
  if FileExists(Archivo) then
  try
    Stream:= TFileStream.Create(Archivo,fmOpenRead or fmShareDenyWrite);
    try
      Result:= CalcHash(Stream,Algorithm);
    finally
      Stream.Free;
    end;
  except end;
end;

Por lo que tu código debe quedar así:

Código Delphi [-]
  if OpenDialog1.Execute then
    Edit1.Text:= OpenDialog1.FileName;
    Edit2.Text:= CalcHash(Edit1.Text, haSHA1);