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线程的创建、挂起、激活与终止

Delphi检查是否在64位windows环境中运行？

Delphi xe5 android 捕获几个事件

Delphi 批量生成 a到z 字母

Delphi驱动方式winio模拟按键

Delphi 利用tidhttp实现文件下载的分块断点续传

Delphi限制edit编辑框的输入

Delphi winapi: getforegroundwindow - 获取前台窗口的句柄

Delphi10.3构造一个json数据的第二种方法，并格式化输出

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

转载请注明出处：木庄网络博客 » delphi MD5加密BASE64加解密