Delphi与Java互通3Des加解密类(XE2)

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;