Dll中调用dcpcrypt

可先在EXE中加入控件来参考,如要导出给其它语言调用参数得用PChar,XE以上的估计得再调整,待实用时再测试

如下代码在2007中可直接导出使用

uses
  Windows, SysUtils, DCPcrypt2, DCPblockciphers, DCPtwofish, DCPsha1;

function TwofishEncryptString(sKey, sInput: PChar): PChar;StdCall;
var
  DCP_twofish1: TDCP_twofish;
begin
  DCP_twofish1:= TDCP_twofish.Create(nil);

  DCP_twofish1.InitStr(sKey, TDCP_sha1);
  Result:= PChar(DCP_twofish1.EncryptString(sInput));

  FreeAndNil(DCP_twofish1);
end;