CnPack组件包 CnMD5模块MD5Buffer函数的问题。

2009-10-09 00:00

CnPack组件包 CnMD5模块MD5Buffer函数的问题。

CnMD5.pas MD5Buffer函数
function MD5Buffer(const Buffer; Count: Longword): TMD5Digest;
var
Context: TMD5Context;
begin
MD5Init(Context);
MD5Update(Context, PAnsiChar(Buffer), Count);
MD5Final(Context, Result);
end;

521行红色部分，传参有误需修改为如下
MD5Update(Context, PAnsiChar(@Buffer), Count);

至发帖之日官方还未修正。