delphi MD5 SHA1加密
发布时间:2020-12-15 09:55:26 所属栏目:大数据 来源:网络整理
导读:MD5 SHA1 SHA2 可以引用System.Hash单元 procedure TForm4.Button1Click(Sender: TObject); var md5: THashMD5; begin Edit2.Text : = md5.GetHashString(Edit1.Text); // 生成32字符长度的MD5 Edit3.Text : = md5.GetHMAC(Edit1.Text, ‘ jack ‘ ); // 生
MD5 SHA1 SHA2 可以引用System.Hash单元 procedure TForm4.Button1Click(Sender: TObject); var md5: THashMD5; begin Edit2.Text := md5.GetHashString(Edit1.Text); //生成32字符长度的MD5 Edit3.Text := md5.GetHMAC(Edit1.Text,‘jack‘); //生成32字符长度的HMAC. end; procedure TForm4.Button2Click(Sender: TObject); var sha1:THashSHA1; begin Edit2.Text := sha1.GetHashString(Edit1.Text); //生成32字符长度的MD5 Edit3.Text := sha1.GetHMAC(Edit1.Text,‘jack‘); //生成32字符长度的HMAC. end; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |