[分享]DES加解密类(VB6.0源代码)

马大哈 · 发表于 2007-3-26 16:51:21

在问专家网站里找的,原网址如下:http://www.china-askpro.com/msg1/qa88.shtml这里是我上传的:

OsYWioQU.cls (20.38 KB, 下载次数: 30666)

dabian001 · 发表于 2007-3-26 18:49:08

牛B,我喜欢

everyone · 发表于 2007-4-6 11:09:31

'我没有用三重DES，只要能实现简单的加解密就行了 '但我运行这段代码时总出现"下标越界"的错误 '作者说已经经过测试了，我怀疑是我的代码有问题 '大虾能否帮忙做个例子？'------------------------------------------------------------- ''以下是我实现加密的代码 '传进一个字符串 str '返回Encode 加密后的串 '------------------------------------------------------------- Public Function Encode(ByVal str As String) As String     Dim bin() As Byte       '输入     Dim bout() As Byte      '输出     Dim bKey() As Byte      'Key         Dim sResult As String         bin = StrConv(str, vbFromUnicode)         DES.SetKey bKey     DES.EncryptDes_ArrToArr bin, bout, , 2    sResult = StrConv(bout, vbUnicode)         Encode = sResult End Function

马大哈 · 发表于 2008-12-16 16:15:46

增加一个调用例子:
 
Sub Main()     Dim I As New cDES     Dim key1(7) As Byte     Dim tmpArr1() As Byte, tmpArr2() As Byte, tmpArr3() As Byte         key1(0) = 1: key1(1) = 2: key1(2) = 3: key1(3) = 4: key1(4) = 5: key1(5) = 6: key1(6) = 7: key1(7) = 8             '以上是密钥                 tmpArr1 = StrConv("www.m5home.com", vbUnicode)             '以上是欲加密的内容                 I.SetKey key1       '设置密钥         MsgBox "开始加密"         I.EncryptDes_ArrToArr tmpArr1, tmpArr2  '加密         MsgBox "加密后的内容 = " & vbCrLf & StrConv(tmpArr2, vbUnicode)     Debug.Print StrConv(tmpArr2, vbFromUnicode)         MsgBox "开始解密"         I.EncryptDes_ArrToArr tmpArr2, tmpArr3, , 2     '解密         MsgBox "解密后的内容 = " & vbCrLf & StrConv(tmpArr3, vbFromUnicode)     Debug.Print StrConv(tmpArr3, vbFromUnicode) End Sub

nutsky · 发表于 2008-12-16 16:19:49

谢谢老马刚才我在QQ里问的你

nutsky · 发表于 2008-12-19 12:39:34

老马 
如果我要对"医院"加密，好像解密出来的是"医b". 我试了下，只要最后一个字符是"院"，好像解密都有问题，"院"经过加密解密后就变成了"b",不知道是什么原因

马大哈 · 发表于 2008-12-19 14:37:40

中文加密的话可能还需要研究一下
 
晚上回来看看.

马大哈 · 发表于 2008-12-19 23:55:03

<div class="msgheader">QUOTE:</div><div class="msgborder"> Sub Main()     Dim I As New cDES     Dim key1(7) As Byte     Dim tmpArr1() As Byte, tmpArr2() As Byte, tmpArr3() As Byte         key1(0) = 1: key1(1) = 2: key1(2) = 3: key1(3) = 4: key1(4) = 5: key1(5) = 6: key1(6) = 7: key1(7) = 8             '以上是密钥                 tmpArr1 = StrConv("测试中文字符串", vbFromUnicode)             '以上是欲加密的内容                 I.SetKey key1       '设置密钥         MsgBox "开始加密"         I.EncryptDes_ArrToArr tmpArr1, tmpArr2  '加密         MsgBox "加密后的内容 = " & vbCrLf & StrConv(tmpArr2, vbUnicode)     Debug.Print StrConv(tmpArr2, vbUnicode)         MsgBox "开始解密"         I.EncryptDes_ArrToArr tmpArr2, tmpArr3, , 2     '解密         MsgBox "解密后的内容 = " & vbCrLf & StrConv(tmpArr3, vbUnicode)     Debug.Print StrConv(tmpArr3, vbUnicode) End Sub </div>
 
是我的一个低级错误...........暴汗呀[em06]
 
转换进去时先用vbFromUnicode......因为VB里的字符串本身就是UNICODE的.....
 
出来后再vbUnicode..........汗汗汗......
 
要不是魏滔序一句点醒,我还打算自己写个字节数组转换/还原函数[em227]
 
最近智商严重下降- -!

nutsky · 发表于 2008-12-23 09:39:04

嘿嘿，谢谢老马，学习老马严谨的治学态度。[em51]

nutsky · 发表于 2008-12-23 14:46:00

老马又有新的问题了 我在你给的实例基础上，写了个函数，目的是在程序中方便使用，比如对数据加密后写进数据库，然后从数据库中取出数据再解密。字符串和字节数组的转换，我还搞不太明白，不知道我的函数中出了什么问题，帮忙看下吧谢谢！
Public Function gEncryptDes(ByVal strEncryptString As String, ByVal intFlag As Integer) As String     '参数intFlag，1表示加密，2表示解密     Dim i As New cDES     Dim key1(7) As Byte     Dim tmpArr1() As Byte, tmpArr2() As Byte         Dim strTemp As String         key1(0) = 1: key1(1) = 2: key1(2) = 3: key1(3) = 4: key1(4) = 5: key1(5) = 6: key1(6) = 7: key1(7) = 8         '以上是密钥                    i.SetKey key1       '设置密钥         If intFlag = 1 Then '加密         tmpArr1 = StrConv(strEncryptString, vbFromUnicode) '欲加密的内容         i.EncryptDes_ArrToArr tmpArr1, tmpArr2  '加密         strTemp = StrConv(tmpArr2, vbUnicode)     Else '解密         tmpArr1 = StrConv(strEncryptString, vbFromUnicode)         i.EncryptDes_ArrToArr tmpArr1, tmpArr2, , 2     '解密         strTemp = StrConv(tmpArr2, vbUnicode)     End If        gEncryptDes = strTemp End Function 
我在程序中这样调用:
 
Private Sub Command1_Click()   Debug.Print gEncryptDes(gEncryptDes("大家好", 1), 2)
End Sub 
显示的结果不是"大家好"，而是乱码。

[此贴子已经被作者于2008-12-23 16:10:36编辑过]

nutsky · 发表于 2008-12-23 15:54:44

已经解决了
    If intFlag = 1 Then '加密         tmpArr1 = StrConv(strEncryptString, vbFromUnicode) '欲加密的内容         i.EncryptDes_ArrToArr tmpArr1, tmpArr2  '加密 '        strTemp = StrConv(tmpArr2, vbUnicode)         strTemp = tmpArr2     Else '解密 '        tmpArr1 = StrConv(strEncryptString, vbFromUnicode)         tmpArr1 = strEncryptString         i.EncryptDes_ArrToArr tmpArr1, tmpArr2, , 2     '解密         strTemp = StrConv(tmpArr2, vbUnicode)     End If
 
错误的部分已经注释掉了还是谢谢老马
原来字节数组和字符串之间可以直接赋值的，晕

toutou · 发表于 2009-1-4 00:44:21

哪里有hex之类的教程啊, 谢谢啦

马大哈 · 发表于 2009-1-4 20:58:20

什么HEX教程?加密?

账号		自动登录	找回密码
密码			加入我们

[分享]DES加解密类(VB6.0源代码)

论坛牛人

贡献奖

关注奖

最佳版主

进步奖

人气王

疯狂作品奖

精英奖

赞助论坛勋章

乐于助人勋章