首页
后端开发
Delphi
MD5加密源代码

MD5加密源代码

21 次浏览 0 条评论
pas
pas
MD5加密源代码procedure MD5Final(var Context: MD5Context; var Digest: MD5Digest); var tBits: MD5CBits; tIndex: longword; tPadLen: longword; begin tDecode(@Context.Count, @Bits, 2); tIndex := (Context.Count[0] shr 3) and $3f; tif Index < 56 then PadLen := 56 - Index else PadLen := 120 - Index; tMD5Update(Context, @PADDING, PadLen); tMD5Update(Context, @Bits, 8); tDecode(@Context.State, @Digest, 4); tZeroMemory(@Context, SizeOf(MD5Context)); end;
pas 文件大小：10.56KB