Delphi IdHashMessageDigest MD5用法

本文整理自网络，侵删。

 
uses IdHashMessageDigest;

procedure TForm1.Button1Click(Sender: TObject);
var
  md5: TIdHashMessageDigest5;
  msg: String;
  hash: String;
begin
  msg := 'Hello, world';
  md5 := TIdHashMessageDigest5.Create;
  hash := LowerCase(md5.HashBytesAsHex(TEncoding.ASCII.GetBytes(msg)));
  md5.Free;

  ShowMessage(hash); //=> bc6e6f16b8a077ef5fbc8d59d0b931b9
end;
另一种方法是将字符串和编码传递给TIdHashMessageDigest5的HashStringAsHex方法。

md5.HashStringAsHex(msg, TEncoding.ASCII)
例子

procedure TForm1.Button2Click(Sender: TObject);
var
  md5: TIdHashMessageDigest5;
  msg: String;
  hash: String;
begin
  msg := 'Hello, world';
  md5 := TIdHashMessageDigest5.Create;
  hash := LowerCase(md5.HashStringAsHex(msg, TEncoding.ASCII));
  md5.Free;

  ShowMessage(hash); //=> bc6e6f16b8a077ef5fbc8d59d0b931b9
end;
 

相关阅读 >>

Delphi strutils.reversestring - 翻转字符串

Delphi:窗体的扩展样式gwl_exstyle用于setwindowlong

Delphi判断字符串是否是数字、字母、大小写字母

Delphi 设置系统启动文件夹自身开机自动运行

idhttp控件的防止异常的处理

Delphi isthisleapyear 判断闰年

Delphi idftp 错误：socket error 10054 �c connection reset by peer -连接被重置

Delphi 根据窗口类判断程序是否运行

devexpress vcl 动态调用皮肤

Delphi 实现程序 动态 类名

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

转载请注明出处：木庄网络博客 » Delphi IdHashMessageDigest MD5用法