VB调用VC的DLL的问题

2009-07-29 05:41:06 109 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb 中用vc dll 一般来说，VB和VC共同编程有3种方式：一种是VC生成DLL，在VB中调用DLL；一种是VC生成ActiveX控件(.ocx)，在VB中插入；还有一种是在VC中生成ActiveX Automation服务器，在VB中调用。相对而言，第一种方法对VC编程者的要求最低，但要求你的伙伴进行配合，我推荐这种方法。先说说VC++的编程。首先在VC++中生成Win32 DLL工程。在这个工程中添加几阅读详情

想用DES和3DES加密的函数
找到了以下几个方案

1.网上下载的DES.CLS（DES/3DES 加解密类模块 V1.0）的类模块
在调用SetKey函数时报长度错，不知道大家有用过或调用成功的吗？

Dim binKey(1 To 40) As Byte
Dim RESmm As DES
String2HEX TransKey, 16, binKey
Set RESmm = New DES
RESmm.SetKey binKey()‘报长度错

2.调用VC的dll实现

VC类型：
void WINAPI Triple_Encrypt(unsigned char *m , unsigned char * k, unsigned char * e,int n,int * rn);

我在VB的模块中声明如下：

Public Declare Function Triple_Encrypt Lib "PC.dll" (ByVal Ptrsource As Long, ByVal Key As Long, ByRef brevDATA As Long, DATLen As Long, RecvdataLen As Long) As Long

调用如下：

Dim szDataOut(100) As Byte
Dim mypicckey(0 To 7) As Byte '密码
Dim KEY1(0 To 7) As Byte '卡序列号

mypicckey(0) = &HFF
mypicckey(1) = &HFF
mypicckey(2) = &HFF
mypicckey(3) = &HFF
mypicckey(4) = &HFF
mypicckey(5) = &HFF
mypicckey(6) = &HFF
mypicckey(7) = &HFF

KEY1(0) = &HFF
KEY1(1) = &HFF
KEY1(2) = &HFF
KEY1(3) = &HFF
KEY1(4) = &HFF
KEY1(5) = &HFF
KEY1(6) = &HFF
KEY1(7) = &HFF

RES = DES_Triple_Encrypt(VarPtr(mypicckey(0)), VarPtr(Key(0)), VarPtr(szDataOut(0)), 8, 8)‘失败，没有提示VB直接退出

以上两个方案望大虾能够给解释一下，因为没用过VB，想用DES加密技术（DES加解密数据和结果都是16进制的），或有其他方案也行，我用的是VB6，谢谢

...全文