官方QQ:  16643506

字符MD5加密


 uses System.Hash, System.DateUtils;
{$R *.dfm}
procedure TForm1.RzButton1Click(Sender: TObject);
var
  TMPMD5: string; //需要加密的信息
  md5: THashMD5; //加密后的信息
begin
   Edit2.Text := UpperCase(md5.GetHashString(Edit1.text));
end;




联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678