RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

Delphi自有的MD5函數

作者:admin 来源: 日期:2014/11/24 20:51:33 人气: 标签:

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


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: