CODEWITHSUNDEEP
phpdelphihashmd5
Mikey
Mikey

Reputation: 2951

MD5 File Hashing - match Delphi output with PHP md5_file function

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

Upvotes: 2

Views: 2854

Answers (2)

user213154
user213154

Reputation:

Compare your results with:

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

Upvotes: 6

Mason Wheeler
Mason Wheeler

Reputation: 84550

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.

Upvotes: 3

Related Questions