本文整理自网络,侵删。
uses System.Hash, System.DateUtils;{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);var md5: THashMD5; //加密后的信息begin Edit2.Text := UpperCase(md5.GetHashString(Edit1.text));end;
相关阅读 >>
Delphi 使用indy解决tidssliohandlersocketopenssl could not load ssl library错误
Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名
Delphi snowflake一秒可生成500万id的分布式自增id算法―雪花算法
Delphi 调试ios时出现 please specify exact device preset uuid
更多相关阅读请进入《Delphi》频道 >>