http://www.torry.net/vcl/security/strong/dcpcrypt.zip我放了3DES控件,可是不知道具体用法是什么?我这么写的好象不对!procedure TForm1.Button9Click(Sender: TObject);
var keystr : string;
begin
keystr := '123456789';
DCP_3des1.Init(keystr,length(keystr),nil);
Edit2.Text := DCP_3des1.EncryptString(Edit1.Text);
end;
var keystr : string;
begin
keystr := '123456789';
DCP_3des1.Init(keystr,length(keystr),nil);
Edit2.Text := DCP_3des1.EncryptString(Edit1.Text);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货