请问如何译为delphi...???(50分)

/******** 功能：DES 算法加密函数 *************************/
// 参数：szOut: 加密结果，长度等于加密数据长度
// szIn: 加密数据
// inlen: 加密数据长度,8字节的整数倍
// key: 密钥
// keylen: 密钥长度,如果大于8字节，是3des,如果小于等于8字节单des.不足补零
// 返回: 成功返回0
/*********************************************************/
int (WINAPI* des_encrypt)(unsigned char *szOut,unsigned char *szIn , unsigned int inlen,unsigned char *key,unsigned int keylen);

/******** 功能：DES 算法解密函数 *************************/
// 参数：szOut: 解密结果，长度等于解密数据长度
// szIn: 解密数据
// inlen: 解密数据长度,8字节的整数倍
// key: 密钥
// keylen: 密钥长度,如果大于8字节，是3des,如果小于等于8字节单des.不足补零
// 返回: 成功返回0
/*********************************************************/
int (WINAPI* des_decrypt)(unsigned char *szOut,unsigned char *szIn , unsigned int inlen,unsigned char *key,unsigned int keylen);

int (WINAPI* des_encrypt)(unsigned char *szOut,unsigned char *szIn , unsigned int inlen,unsigned char *key,unsigned int keylen);
[red]
type Tdes_encrypt = Function (szOut, szInChar;
inlen:LongWord;
keyChar;
keylen:LongWord):Integer;
stdcall;
var des_encrypt:Tdes_encrypt;[/red]
int (WINAPI* des_decrypt)(unsigned char *szOut,unsigned char *szIn , unsigned int inlen,unsigned char *key,unsigned int keylen);
[red]
type Tdes_decrypt = Function (szOut, szInChar;
inlen:LongWord;
keyChar;
keylen:LongWord):Integer;
stdcall;
var des_decrypt:Tdes_decrypt;[/red]

接受答案了.