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;

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