[编程申请]：如何修改使其可在LISP里面调用

sandy2002

本人从网上下载了一个DES算法源文件，想把它修改一下使其成为可在LISP里直接调用的ARX文件，请问要怎样修改？？？ 调用格式可参照：  DES_GO(‘待加密的字符’  ‘密钥’ ‘标志（加密或解密）) ，请各位大哥不吝赐教！

sandy2002

/ 3-Des test

#include "WjcDes.h"
#include "stdio.h"
#include "string.h"
#include "memory.h"

void main()
{
        char key[]={0,2,0,0,9,3,5,1,9,8,0,0,9,1,7},buf[255];
        char str[]="Welcome to My 3-DES Test! --WangJunchuan\n"
                       "Northeastern University (www.neu.edu.cn)\n"
                           "Email: blackdrn@sohu.com";

        memset(buf, 0, sizeof(buf));
        strcpy(buf, str);
        puts("\nBefore encrypting");
        puts(buf);

        Des_Go(buf, buf, sizeof(str), key, sizeof(key), ENCRYPT);
        puts("\nAfter encrypting");
        puts(buf);

        Des_Go(buf, buf, sizeof(str), key, sizeof(key), DECRYPT);
        puts("\nAfter decrypting");
        puts(buf);

        getchar();
}

这是C语言的测试程序 CPP源文件，请问要怎样写才可以用LISP调用呢，急，谢谢！