在VB.NET中调用动态链接库dll

一.dll内容
1.dll中的函数声明
extern "C" _declspec(dllexport) bool MakeMD5File(char *file,char *key);
extern "C" _declspec(dllexport) int ValidateMD5File(char *file,char *key,char *object);
extern "C" _declspec(dllexport) void EncryptString128(char *string,char *result);
extern "C" _declspec(dllexport) bool DecryptString128(char *source,char *object);
extern "C" _declspec(dllexport) int DecryptFile160(char *file,char *key,char *result);
extern "C" _declspec(dllexport) bool EncryptFile160(char *file,char *key,char *result);
extern "C" _declspec(dllexport) void Transfer40To20(char *str40, char *str20);
extern "C" _declspec(dllexport) void Transfer20To40(char *str20, char *str40);
extern "C" _declspec(dllexport) bool MakeMD5FileFrom40(char *str40, char *file);
extern "C" _declspec(dllexport) void EncryptString160(char *string,char *key,char *result);
extern "C" _declspec(dllexport) bool DecryptString160(char *source,char *key,char *object);
2.dll的接口说明
void EncryptString128(char *string,char *result)
string:要被计算的串的指针,任意长度,以'\0'结束
result:保存结果的缓冲区指针,>=33字节,结果保存在该缓冲区的前32个字节里
功能:计算出由string指向的任意长度的串的128位MD5摘要串,摘要串为这128位的16进制形式,128共16字节,每字节表示为2位16进制数,故保存结果的串指针result指向的缓冲区必 大于或等于 (128/8)*2+1=33字节

bool DecryptString128(char *source,char *object)
source:要验证的串的指针,以'\0'结束
object:16进制形式摘要串的指针,前32个字节为摘要串,长度必须>=33,object[32]='\0'
功能:验证指针source指向的串的128位摘要串是否为object指向串的前32个字节
是:返回true,否:返回false

//将string串的160位(40字节)摘要串计算出来保存在result中,key为4个字节的密码
extern "C" _declspec(dllexport) void EncryptString160(char *string,char *key,char *result)
注:输入参数result长度为>=41字节,16进制形式的摘要串保存在其前40个字节中,41字节为'\0'

bool EncryptFile160(char *file,char *key,char *result)
file:要计算摘要串的文件的路径名
key:32位扰码,为前4个字节,>=5个字节,key[4]='\0'
result:保存结果的缓冲区指针,>=41字节,结果保存在该缓冲区的前40个字节里,41字节为'\0'
功能:计算出由file指向的文件的160位(128位+32位扰码)MD5摘要串,摘要串为这160位的16进制形式,128共20字节,每字节表示为2位16进制数,故保存结果的串指针result指向的缓冲区必 大于或等于 (160/8)*2+1=41字节
计算成功返回true,出错返回false

int DecryptFile160(char *file,char *key,char *result)
file:要验证摘要串的文件的路径名
key:32位扰码,为前4个字节,>=4个字节
result:摘要串指针,>=41字节,前40个字节为摘要串,41字节为'\0'
功能:验证file指向的文件与扰码key计算得到的摘要串是否为result指向的串的前40个字节
验证成功返回1,不成功返回-1,出错返回0

bool MakeMD5File(char *file,char *key)
file:输入要计算摘要文件的文件的路径名,输出时变为对应的MD5文件名
key:32位扰码,为前4个字节,>=4个字节
功能:用扰码key和文件file计算得到160位(40字节)摘要串,并将其扩展成512字节且保存在同一目录下,文件名相同
扩展名为".MD5"
成功返回true,出错返回false

int ValidateMD5File(char *file,char *key,char *object)
file:要验证的文件
key:32位扰码,为前4个字节,>=4个字节
object:已存在的512字节摘要文件
功能:验证由file指向的文件和key指向的扰码生成的512字节摘要文件是否与object指向的摘要文件一致
一致:返回1,不一致:返回-1,出错返回0

/将40字节的16进制形式摘要串转换为原来的形式:160位20字节
extern "C" _declspec(dllexport) void Transfer40To20(char *str40, char *str20)
str40[40]='\0',str20长度为21

/将160位20字节形式转换为40字节的16进制形式摘要串
extern "C" _declspec(dllexport) void Transfer20To40(char *str20, char *str40)
str20[20]='\0',str40长度为41

//从40字节的摘要串str40创建512字节的MD5文件,file为MD5 文件的路径
extern "C" _declspec(dllexport) bool MakeMD5FileFrom40(char *str40, char *file)
str40[40]='\0',前40字节为摘要串的16进制形式

二.如何使用该dll:使用DllImport
这里只举ValidateMD5File、Transfer40To20、Transfer20To40、EncryptString160四个例子,其它的接口类似:
1.声明
先导入：

Imports System.Runtime.InteropServices

再声明：

<DllImport("MD5_ENCODE.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl)> Public Shared Function ValidateMD5File(ByVal src As String, ByVal key As String, ByVal result As String) As Integer

End Function

<DllImport("MD5_ENCODE.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl)> Public Shared Sub EncryptString160(ByVal src As String, ByVal key As String, ByRef result As Byte)

End Sub

<DllImport("MD5_ENCODE.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl)> Public Shared Sub Transfer40To20(ByVal src As Byte(), ByRef result As Byte)

End Sub

<DllImport("MD5_ENCODE.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl)> Public Shared Sub Transfer20To40(ByVal src As Byte(), ByRef result As Byte)

End Sub

2.接口使用例子
为测试ValidateMD5File函数，先在程序目录下放入文件a.txt及其MD5文件a.MD5，测试代码为：
　　' 测试ValidateMD5File
    Dim src As String = "a.txt"
    Dim key As String = "1234"
    Dim res As String = "a.MD5"

    Dim r As Integer = 3
    r = ValidateMD5File(src, key, res)
    Me.Label1.Text = "测试ValidateMD5File(""a.txt"",""1234"",""a.MD5""): " _
+ r.ToString
    测试得返回值r为１，改变一下a.txt内容，则返回－１过头来，测试成功

　　为测试Transfer40To20、Transfer20To40、EncryptString160，加入测试代码：
　　' 测试EncryptString128
    Dim code(41) As Byte
    EncryptString160(src, key, code(0))
    Dim t(41) As Char
    Dim i As Integer

    For i = 0 To 40
        t(i) = ChrW(code(i))
    Next
    Me.Label2.Text = "测试EncryptString160: " + t

    '测试Transfer40To20和Transfer20To40
    '从40字节形式转为20字节形式

    Dim s20(21) As Byte
    Transfer40To20(code, s20(0))

    '从40字节形式转为20字节形式
    Dim s40(41) As Byte
    Transfer20To40(s20, s40(0))
    Dim c40(41) As Char
    For i = 0 To 40
        c40(i) = ChrW(s40(i))
    Next

    Me.Label3.Text = "从40字节形式转为20字节形式,然后再转回40字节的结果:" _
    + Chr(10) + Chr(13) + c40

    测试成功。

转载于:https://www.cnblogs.com/cjx_xmu/archive/2005/05/30/165138.html