求个delphi语言的md5计算函数

Question

function md5(d:string):string；
输入要计算的字符串，输出结果。
最好是16位和32位的各有一个。
请尽量加注释。

Answer 1

到 www.2ccc.com 下载 LookBox ，里面就有个 TLbMD5 组件，看源码慢慢研究。

Answer 2

不用这么麻烦
用delphi自带的组件就有了
uses
IdHash, IdHashMessageDigest;
function md5(d:string):string； 
var
  hmd : TIdHashMessageDigest5;
  k : T4x4LongWordRecord;
begin
  hdm := TIdHashMessageDigest5.Create;
  k := hmd.HashValue(d);
  result := hmd.AsHex(k); 
  hmd.Free;
end;

Answer 3

要的话发给你一个md5的单元文件，直接引用就行了
QQ：187106433

Answer 4

http://www.delphifans.com/SoftView/SoftView_156.html