我比较喜欢使用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;