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.