MD5

Delphi code posted by Michael Jackson
created at 28 Feb 17:43

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
function MD5(const fileName : string) : string;
var
  idmd5 : TIdHashMessageDigest5;
  fs : TFileStream;
begin
  idmd5 := TIdHashMessageDigest5.Create;
  try
    fs := TFileStream.Create(fileName, fmOpenRead ) ;
    try
      Result := idmd5.HashStreamAsHex(fs);
    finally
      fs.Free;
    end;
  finally
    idmd5.Free;
  end;
end;
352 Bytes in 2 ms with coderay