MD5 File Hashing - match Delphi output with PHP md5_file function

Question

I'm currently using this code for md5 hashing in Delphi 7:

function MD5(const fileName : string) : string;
var
  idmd5 : TIdHashMessageDigest5;
  fs : TFileStream;
begin
  idmd5 := TIdHashMessageDigest5.Create;
  fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
  try
    result := idmd5.AsHex(idmd5.HashValue(fs)) ;
  finally
    fs.Free;
    idmd5.Free;
  end;
end;

and I'm trying to get the output the same as the PHP function

md5_file()

I've had a look around and common problems seem to be encoding and not padding with zeroes, but I don't know how to do either of these using TIdHashMessageDigest5 or whether they are already done in the function.

If anyone has any functions they use for this it'd be very appreciated!

Or possibly a way of changing the php function to match the Indy one

user213154 · Accepted Answer · 2009-12-23 14:06:11Z

6

Compare your results with:

md5(file_get_contents( )) in PHP
hash("md5", ) from the PHP hash framework extension
the command line programs md5(1) aka md5sum(1)

If all but one agree what the sum is, then you know where to dig.

answered Dec 23, 2009 at 14:06

user213154

Sign up to request clarification or add additional context in comments.

Comments

Mason Wheeler · Accepted Answer · 2009-12-23 13:58:14Z

3

Well, you didn't give a Delphi version number, but if you're on D2007 or later you might want to check out this article.

answered Dec 23, 2009 at 13:58

Mason Wheeler

85k54 gold badges288 silver badges510 bronze badges

2 Comments

Jeroen Wiert Pluimers Over a year ago

Thanks for mentioning my article! --jeroen

Jeroen Wiert Pluimers Over a year ago

The article Mason points to got updated today: Edit: 20091223: Since Delphi 7.01, Indy has provided the unit IdHashMessageDigest which also does md5, see the comments.

Collectives™ on Stack Overflow

MD5 File Hashing - match Delphi output with PHP md5_file function

2 Answers 2

Comments

2 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related