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

Delphi自有的MD5函数

作者:admin 来源: 日期:2014/10/29 19:40:39 人气: 标签:

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
本文网址: