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 tcxgrid的tcxgriddbtableview.viewdata.rows跟records有什么区别

改写个Delphi 版 lz前辈的openprocess

Delphi中分隔字符串函数的使用

Delphi b编码以及bt种子文件分析

Delphi2009之timage

Delphi中生成控件的两种方法

unigui js操作Delphi控件赋值

Delphi 之 热键组件(thotkey)

Delphi代码获取网卡物理地址三种方法

Delphi 中的哈希表: thashedstringlist

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

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