基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

支持delphi5-delphiXE ，MD5都能用

unit MD5;

interface

uses
  Windows, SysUtils;

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;
  PMD5Digest = ^MD5Digest;

  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 MD5UnPrint(s: string): MD5Digest;
function RivestStr(Str: string): string; // MD5 string
function RivestFile(FileName: string): string; // MD5 file
function MD5Match(D1, D2: MD5Digest): Boolean;