Delphi实现MD5加密：函数与操作详解

============================= MD5 Ô´Âë(¸Äд) ===============================================================

{
1¡¢ MD5String¡¢MD5File¡¢MD5Print¡¢MD5MatchÕâËĸöº¯ÊýÊǹ©µ÷Óõġ£ÆäËûÊÇÓÃÀ´¸¨ÖúÕ⼸¸öº¯ÊýµÄ×Óº¯Êý¡£
2¡¢MD5StringΪ¼ÓÃÜ×Ö·û´®¡£
3¡¢MD5FileΪ¼ÓÃÜÕâ¸öÎļþ¡£
4¡¢MD5PrintÊǽ«¼ÓÃܺóµÄÃÜÎÄת»»³É×Ö·û´®¡£
5¡¢MD5MatchÊÇÓÃÀ´±È½ÏÃÜÎÄÊÇ·ñÒ»Ö¡£

¼ÓÃÜ×Ö·û´®aaa             MD5String('aaa')
½«¼ÓÃܺóµÄaaaÏÔʾ³öÀ´     MD5Print(MD5String('aaa'))
±È½ÏÁ½´ÎÃÜÎÄÊÇ·ñÒ»Ö£º    MD5Match(MD5String('µÚÒ»´ÎÃ÷ÎÄ'),MD5String('µÚ¶þ´ÎÊäÈëµÄÃ÷ÎÄ')) 
}
// tabs = 2
// -----------------------------------------------------------------------------------------------
//
//                                 MD5 Message-Digest for Delphi 
//
//                                 Delphi  Unit implementing the
//                      RSA Data Security, Inc. MD5 Message-Digest Algorithm
//
//                          Implementation of Ronald L. Rivest's RFC 1321
//
//                      Copyright © 1997-1999 Medienagentur Fichtner & Meyer
//                                  Written by Matthias Fichtner
//
//                          Modified by Steven in 08.08.17 on "MD5Match()"
//                           Changing the type of parameters from "MD5Digest" to "String"
// -----------------------------------------------------------------------------------------------

unit md5;

interface

uses
  Windows;

type
  MD5Count = array[0..1] of DWORD;
  MD5State = array[0..3] of DWORD;
  MD5Block = array[0..15] of DWORD;
  MD5CBits = array[0..7] of Byte;
  MD5Digest = array[0..15] of Byte;
  MD5Buffer = array[0..63] of Byte;
  MD5Context = Record
          State: MD5State;
          Count: MD5Count;
          Buffer: MD5Buffer;
  end;

  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: String): Boolean;