Хеш-сумма md5

[igh0st]

Вот эта функция, что любопытно, отлично считает md5 для текстовых файлов в кодировке ANSI и UTF8 содержащие латинские и кириллические символы, но хеш бинарного файла или архива в Delphi и в php получается разный.

function DCMD5Hash(FileName: String): String;
var
  LBuffer: TBytes;
  LEncoding, DestEncoding: TEncoding;
  LFileStream: TFileStream;
  ByteString: RawByteString;
  LOffset: Integer;
  Hash: TDCP_md5;
  HashDigest: array of byte;
  i: Integer;
begin
  LEncoding:= nil;
  LFileStream := TFileStream.Create(FileName, fmOpenRead);
  try
    SetLength(LBuffer, LFileStream.Size);
    LFileStream.ReadBuffer(Pointer(LBuffer)^, Length(LBuffer));
    LOffset := TEncoding.GetBufferEncoding(LBuffer, LEncoding);
  finally
    LFileStream.Free;
  end;
  
  Hash := TDCP_md5.Create(nil);
  Hash.Init;
  Hash.Update(LBuffer[0], Length(LBuffer));
  SetLength(HashDigest,Hash.HashSize div 8);
  Hash.Final(HashDigest[0]);

  Result := '';
  for i := 0 to Length(HashDigest) - 1 do
    Result := Result + IntToHex(HashDigest[i], 2);

 Result := LowerCase(Result);
 
end;