delphi MD5加密BASE64加解密


本文整理自网络,侵删。

 
MD5需要引入system.Hash,BASE64需要引入System.NetEncoding,这两个单元应该只有高版本的DELPHI IDE才有
(貌似XE5以上版本才有)。如果是D7的话,找第三方的库。
procedure TForm19.Button8Click(Sender: TObject);  //md5加密
begin
  Edit3.Clear;
  Edit3.Text := THashMD5.GetHashString(Edit2.Text);
end;

procedure TForm19.Button9Click(Sender: TObject); // base64加密
var
  base64: TBase64Encoding;
begin
  base64 := TBase64Encoding.Create;
  Edit5.Clear;
  Edit5.Text := base64.Encode(Edit4.Text);
  base64.Free;
end;

procedure TForm19.Button10Click(Sender: TObject); // base64解密
var
  base64: TBase64Encoding;
begin
  base64 := TBase64Encoding.Create;
  Edit7.Clear;
  Edit7.Text := base64.Decode(Edit6.Text);
  base64.Free;
end;

相关阅读 >>

Delphi 网络时间校对

关于Delphi xe2的fmx的一点点研究之消息篇

Delphi控制程序在任务栏显示与隐藏

Delphi 判断文件路径,不存在则建立

Delphi查找同一内网所有主机

Delphi idhttp数据自动编码

Delphi http post json示例

Delphi dbgrid去除滚动条

Delphi udp文件传输

Delphi 内存管理1

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...