MD5 加密 源代码

【文件属性】：

文件名称：MD5 加密 源代码

文件大小：11KB

文件格式：PAS

更新时间：2019-01-01 14:31:51

MD5 加密 源代码

MD5 加密 源代码 procedure MD5Final(var Context: MD5Context; var Digest: MD5Digest); var Bits: MD5CBits; Index: longword; PadLen: longword; begin Decode(@Context.Count, @Bits, 2); Index := (Context.Count[0] shr 3) and $3f; if Index < 56 then PadLen := 56 - Index else PadLen := 120 - Index; MD5Update(Context, @PADDING, PadLen); MD5Update(Context, @Bits, 8); Decode(@Context.State, @Digest, 4); ZeroMemory(@Context, SizeOf(MD5Context)); end;