紧急：高手看看这个Des加密函数如何调用

Question

紧急：高手看看这个Des加密函数如何调用 在网上下载一个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总是无法调用，加密或解密，结果都是空。

Answer 1

试试：
    Dim StrSource(7) As Byte 
    Dim StrDest(7) As Byte 
    Dim StrJiemi(7) As Byte

Answer 2

bReturn数组没有声明空间吧.
dim bReturn(7) as Byte
或在Des加密中
Redim bReturn(7) as Byte

Answer 3

新建一个工程，添加一个窗体、一个类模块。
把那个文本文件中的内容粘贴到类模块中，并且把类名更改为：claDES在 Form 中添加一个按钮，粘贴下面的代码：
Option ExplicitPrivate Sub Command1_Click()    Const strKey = "123456789"
    Dim objDES As New claDES
    Dim arrSour() As Byte, arrBuff() As Byte, arrTest() As Byte
    Dim i&
    
    ReDim arrSour(15)
    For i = 0 To 15: arrSour(i) = i * 3:  Next
    Debug.Print "Sour data:"
    For i = 0 To 15
        Debug.Print i, Hex$(arrSour(i))
    Next
    objDES.DES_Encode arrSour, strKey, arrBuff
    i = UBound(arrBuff)
    Debug.Print "EnCode >>>> "; i + 1; "Byte."
    For i = 0 To i
        Debug.Print i, Hex$(arrBuff(i))
    Next
    objDES.DES_Decode arrBuff, strKey, arrTest
    i = UBound(arrTest)
    Debug.Print "DeCode >>>> "; i + 1; "Byte."
    For i = 0 To i
        Debug.Print i, Hex$(arrTest(i))
    Next
    
End Sub

Answer 4

谢谢 Chen8013，果然可以了。