procedure Tfrm1.Button1Click(Sender: TObject);
var
cls: T3DesClass;
str: string;
begin
cls := T3DesClass.Create;
cls.Key := '15000120360924817X811500';
if not cls.Encry3DesString('这是一个测试AABBBDDDD', 'des.bin') then
begin
ShowMessage(cls.retMsg);
Exit;
end;
cls.Decry3DesString('des.bin', str);
cls.Free;
end;
评论4
最新资源