MD5加密
function ToMD5(text:String):String; var MD5: TIdHashMessageDigest5; begin MD5 := TIdHashMessageDigest5.Create; result:= MD5.HashStringAsHex(text); end;
delphi md5 加密
原文：https://www.cnblogs.com/js2ja/p/11670518.html
