本文整理自网络，侵删。
我比较喜欢使用Delphi自带的单元和控件，这样对于软件产品的升级十分有益。就拿MD5单元的升级来说，从D6升级到XE，确实够我折腾的。累的吐血可以说。
下面介绍如何使用Delphi自带的单元来实现MD5散列值的获取。
(MessageDigest_5.pas位于 source/Win32/soap/wsdlimporter 目录下面)
例子：
uses Types, MessageDigest_5;
procedure TForm1.Button1Click(Sender: TObject);
var
MD5: IMD5;
begin
MD5 := GetMD5;
MD5.Init;
MD5.Update(TByteDynArray(RawByteString(Edit1.Text)), Length(Edit1.Text));
Edit2.Text := LowerCase(MD5.AsString);
end;
相关阅读 >>
Delphi windows 编程[21] - wm_menuselect 消息与 getmenustring 函数
更多相关阅读请进入《Delphi》频道 >>
