delphi md5加密函数

function TloginForm.md5(input:string):string;
var
MyMD5 : TIdHashMessageDigest5;
Digest: T4x4LongWordRecord;
begin
MyMD5 := TIdHashMessageDigest5.Create;
try
      Digest:= MyMD5.HashValue(input);
     result:= MyMD5.AsHex(Digest);
finally
    MyMD5.Free;
end;

end;