顺风网

uses IdHashMessageDigest,IdGlobal;

Function Md5Encode(const Source:string):string;
var
MD5:TIdHashMessageDigest5;
begin
MD5 :=TIdHashMessageDigest5.Create;
Result :=MD5.HashStringAsHex(Source);
MD5.Free;
end;