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;
关键字词:
