本文整理自网络,侵删。
usesIdHashMessageDigest, IdHash, IdGlobal;
Function Md5Encode(const Source:string):string;var MD5:TIdHashMessageDigest5;begin MD5 :=TIdHashMessageDigest5.Create; Result :=MD5.HashStringAsHex(Source); MD5.Free;end;
相关阅读 >>
Delphi下载程序并且urldownloadtofile的进度提示
Delphi xe7中的运行时设置android应用程序屏幕方向
Delphi rest 服务器返回utf16编码转换成正常string
Delphi下用cdo发送邮箱实例(授权码cdo发送邮箱的解决办法)
Delphi 采用 tidhttp 访问 https 的网站,采用 tidtcpclient 访问 https 的网站
更多相关阅读请进入《Delphi》频道 >>