delphi MD5.pas

代码说明：

delphi MD5加密 pas 文件  procedure MD5Init(var Context: MD5Context); procedure MD5Update(var Context: MD5Context; Input: pChar; Length: longword); procedure MD5Final(var Context: MD5Context; var Digest: MD5Digest); function MD5String(M: string): MD5Digest; function MD5File(N: string): MD5Digest; function MD5Print(D: MD5Digest): string; function MD5Match(D1, D2: MD5Digest): boolean;