动态库接口:extern "C" {/******************************************************************************
*
* 加密函数
* des_key --加密密钥
* des_data --ASC明文
* des_len --加密长度(当送0时自动计算)
* des_result --BCD密文
*
* 注意: 存储密文空间的大小至少是: (2 * des_len + 16), 否则coredump
*
* return 
* >=0 BCD密文长度
* -1 失败
*
******************************************************************************/
int __declspec(dllexport) __cdecl des_encrypt(unsigned char * des_key, unsigned char * des_data, int des_len, unsigned char * des_result);/******************************************************************************
*
* 解密函数
* des_key --解密密钥
* des_data --BCD密文
* des_len --解密长度(是16的整数倍, 当送0时自动计算)
* des_result --ASC明文 
*
* 注意: 存储明文空间的大小至少是: (des_len / 2 + 1), 否则coredump
*
* return 
* >=0 ASC明文长度
* -1 失败
*
******************************************************************************/
int __declspec(dllexport) __cdecl des_decrypt(unsigned char * des_key, unsigned char * des_data, int des_len, unsigned char * des_result);}
在Delphi 中如何定义