MD5 加密 源代码
源代码

文件大小:10.56 KB
文件格式:pas
上传日期:2015-12-12
资源说明: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;

猜你喜欢 related suggestion


上一资源: ASP考勤软件
下一资源: android NFC实例

This page is cached at 2:59:59