利用INDY的TIDHASHMESSAGEDIGEST5类计算MD5（INDY10）

原帖地址：http://www.cnblogs.com/winyken/archive/2009/05/16/1458412.html

Indy自带TIdHashMessageDigest*类，可以方便的计算MD2、MD4和MD5。

代码很简单，其中需要注意的是，Indy9中 Md5Encode.AsHex(Md5Encode.HashValue(S)) 这种写法在Indy10里已经不能用了，之前就是因为这个卡了好久。

unit uMD5;



interface



uses

  IdHashMessageDigest, IdHash, IdGlobal;



type

  TMD5 = class(TIdHashMessageDigest5);



function StrToMD5(S: String): String; overload;

function StrToMD5(S: String; L: integer): String; overload;



implementation



function StrToMD5(S: String): String;

var

  Md5Encode: TMD5;

begin

  Md5Encode:= TMD5.Create;

  try

    //Result := Md5Encode.AsHex(Md5Encode.HashValue(S));  // Indy9的写法

    Result := Md5Encode.HashStringAsHex(S);    // Indy10中可以直接HashStringAsHex

  finally

    Md5Encode.Free;

  end;

end;



function StrToMD5(S: String; L: integer): String;

begin

  Result := Copy(StrToMD5(S), 5, L);

end;



end.

调用方法很简单，Edit2.Text := StrToMD5(Edit1.Text); 就可以搞定了，见上图。

完整工程源码(Source)：CalcMD5.rar
附带一个C++ Builder版的工程文件，之前学习CB和Delphi混合编译的产物：CalcMD5_CBuilder.rar