求VB6.0 DES加密解密源码

[2001JinCheng]

谢谢您，我的Mail：[e-mail]

[myvip]

http://dev.csdn.net/article/20/20659.shtm
你自己看下吧！

[xiagl311]

xuexi

[2001JinCheng]

请再帮一下忙
Dim mDes As New clsDES
Dim inByte() As Byte
Dim outByte() As Byte
Dim outS As String

inByte = StrConv("中国推出Excel服务器软件！", vbFromUnicode)

Call mDes.DES_Encode(inByte, MstrKey, outByte)

Call mDes.DES_Decode(outByte, MstrKey, inByte)

outS = StrConv(DeOutByte, vbUnicode)

以上代码执行后outS =中国推出Excel服务器软件！，执行正确。但是为什么执行以下代码就不正确了呢？outS =中国推出Excel服蜶T.M滩醅∪ 緽滾，成乱码了呢？请指教。

Dim mDes As New clsDES
Dim inByte() As Byte
Dim outByte() As Byte
Dim outS As String

inByte = StrConv("中国推出Excel服务器软件！", vbFromUnicode)

Call mDes.DES_Encode(inByte, MstrKey, outByte)

outS = StrConv(outByte, vbUnicode)
outByte = StrConv(outS, vbFromUnicode)

Call mDes.DES_Decode(outByte, MstrKey, inByte)

outS = StrConv(DeOutByte, vbUnicode)

[2001JinCheng]

请大家多多关照，我在线等待。

[2001JinCheng]

请再帮一下忙
Dim mDes As New clsDES
Dim inByte() As Byte
Dim outByte() As Byte
Dim outS As String

inByte = StrConv("中国推出Excel服务器软件！", vbFromUnicode)

Call mDes.DES_Encode(inByte, MstrKey, outByte)

Call mDes.DES_Decode(outByte, MstrKey, inByte)

outS = StrConv(inByte, vbUnicode)

以上代码执行后outS =中国推出Excel服务器软件！，执行正确。但是为什么执行以下代码就不正确了呢？outS =中国推出Excel服蜶T.M滩醅∪ 緽滾，成乱码了呢？请指教。

Dim mDes As New clsDES
Dim inByte() As Byte
Dim outByte() As Byte
Dim outS As String

inByte = StrConv("中国推出Excel服务器软件！", vbFromUnicode)

Call mDes.DES_Encode(inByte, MstrKey, outByte)

outS = StrConv(outByte, vbUnicode)
outByte = StrConv(outS, vbFromUnicode)

Call mDes.DES_Decode(outByte, MstrKey, inByte)

outS = StrConv(inByte, vbUnicode)