在网上下载一个VB 写的Des加密模块,不知道如何调用,(源代码:http://www.qwin.net/vbdes.txt),函数形式如下:
加密:
Public Sub DES_Encode(ByRef sCode() As Byte, ByVal sKey As String, ByRef bReturn() As Byte)
解密:
Public Sub DES_Decode(ByRef sCode() As Byte, ByVal sKey As String, ByRef bReturn() As Byte)
调用程序如下:
Private Sub Command10_Click()
Dim StrSource() As Byte
Dim StrDest() As Byte
Dim StrJiemi() As Byte
Dim StrKey As String
StrKey = "12345678" '密钥
StrSource = StrConv("待加密文字", vbFromUnicode)
Call DES_Encode(StrSource, StrKey, StrDest)
MsgBox StrConv(StrDest, vbUnicode) '加密后
Call DES_Decode(StrDest, StrKey, StrJiemi)
MsgBox StrConv(StrJiemi, vbUnicode) '解密后
End Sub
总是无法调用,加密或解密,结果都是空。