|
|
 |
用vb实现DES加解密算法(三)--解密 |
热 ★★★★ |
|
用vb实现DES加解密算法(三)--解密 |
|
作者：闵涛 文章来源：闵涛的学习笔记 点击数：5067 更新时间：2009/4/23 18:59:36  |
|
|
i) = C4(i)
C_D(i + 28) = D4(i)
Next
''''PC_2转换,生成K4
For i = 0 To 47
K4(i) = C_D(PC_2(i))
Next
''''***************************************************K5
''''生成C5,D5
For i = 0 To 25
C5(i) = C4(i + Lsi(5))
D5(i) = D4(i + Lsi(5))
Next
C5(26) = C4(0)
D5(26) = D4(0)
C5(27) = C4(1)
D5(27) = D4(1)
''''组合C5,D5成C_D
For i = 0 To 27
C_D(i) = C5(i)
C_D(i + 28) = D5(i)
Next
''''PC_2转换,生成K5
For i = 0 To 47
K5(i) = C_D(PC_2(i))
Next
''''***************************************************K6
''''生成C6,D6
For i = 0 To 25
C6(i) = C5(i + Lsi(6))
D6(i) = D5(i + Lsi(6))
Next
C6(26) = C5(0)
D6(26) = D5(0)
C6(27) = C5(1)
D6(27) = D5(1)
''''组合C6,D6成C_D
For i = 0 To 27
C_D(i) = C6(i)
C_D(i + 28) = D6(i)
Next
''''PC_2转换,生成K6
For i = 0 To 47
K6(i) = C_D(PC_2(i))
Next
''''***************************************************K7
''''生成C7,D7
For i = 0 To 25
C7(i) = C6(i + Lsi(7))
D7(i) = D6(i + Lsi(7))
Next
C7(26) = C6(0)
D7(26) = D6(0)
C7(27) = C6(1)
D7(27) = D6(1)
''''组合C7,D7成C_D
For i = 0 To 27
C_D(i) = C7(i)
C_D(i + 28) = D7(i)
Next
''''PC_2转换,生成K7
For i = 0 To 47
K7(i) = C_D(PC_2(i))
Next
''''***************************************************K8
''''生成C8,D8
For i = 0 To 25
C8(i) = C7(i + Lsi(8))
D8(i) = D7(i + Lsi(8))
Next
C8(26) = C7(0)
D8(26) = D7(0)
C8(27) = C7(1)
D8(27) = D7(1)
''''组合C8,D8成C_D
For i = 0 To 27
C_D(i) = C8(i)
C_D(i + 28) = D8(i)
Next
''''PC_2转换,生成K8
For i = 0 To 47
K8(i) = C_D(PC_2(i))
Next
''''***************************************************K9
''''生成C9,D9
For i = 0 To 26
C9(i) = C8(i + Lsi(9))
D9(i) = D8(i + Lsi(9))
Next
C9(27) = C8(0)
D9(27) = D8(0)
''''组合C9,D9成C_D
For i = 0 To 27
C_D(i) = C9(i)
C_D(i + 28) = D9(i)
Next
''''PC_2转换,生成K9
For i = 0 To 47
K9(i) = C_D(PC_2(i))
Next
''''***************************************************K10
''''生成C10,D10
For i = 0 To 25
C10(i) = C9(i + Lsi(10))
D10(i) = D9(i + Lsi(10))
Next
C10(26) = C9(0)
D10(26) = D9(0)
C10(27) = C9(1)
D10(27) = D9(1)
''''组合C10,D10成C_D
For i = 0 To 27
C_D(i) = C10(i)
C_D(i + 28) = D10(i)
Next
''''PC_2转换,生成K10
For i = 0 To 47
K10(i) = C_D(PC_2(i))
Next
''''***************************************************K11
''''生成C11,D11
For i = 0 To 25
C11(i) = C10(i + Lsi(11))
D11(i) = D10(i + Lsi(11))
Next
C11(26) = C10(0)
D11(26) = D10(0)
C11(27) = C10(1)
D11(27) = D10(1)
''''组合C11,D11成C_D
For i = 0 To 27
C_D(i) = C11(i)
C_D(i + 28) = D11(i)
Next
''''PC_2转换,生成K11
For i = 0 To 47
K11(i) = C_D(PC_2(i))
Next
''''***************************************************K12
''''生成C12,D12
For i = 0 To 25
C12(i) = C11(i + Lsi(12))
D12(i) = D11(i + Lsi(12))
Next
C12(26) = C11(0)
D12(26) = D11(0)
C12(27) = C11(1)
D12(27) = D11(1)
''''组合C12,D12成C_D
For i = 0 To 27
C_D(i) = C12(i)
C_D(i + 28) = D12(i)
Next
''''PC_2转换,生成K12
For i = 0 To 47
K12(i) = C_D(PC_2(i))
Next
''''***************************************************K13
''''生成C13,D13
For i = 0 To 25
C13(i) = C12(i + Lsi(13))
D13(i) = D12(i + Lsi(13))
Next
C13(26) = C12(0)
D13(26) = D12(0)
C13(27) = C12(1)
D13(27) = D12(1)
''''组合C13,D13成C_D
For i = 0 To 27
C_D(i) = C13(i)
C_D(i + 28) = D13(i)
Next
''''PC_2转换,生成K13
For i = 0 To 47
K13(i) = C_D(PC_2(i))
Next
''''***************************************************K14
''''生成C14,D14
For i = 0 To 25
C14(i) = C13(i + Lsi(14))
D14(i) = D13(i + Lsi(14))
Next
C14(26) = C13(0)
D14(26) = D13(0)
C14(27) = C13(1)
D14(27) = D13(1)
''''组合C14,D14成C_D
For i = 0 To 27
C_D(i) = C14(i)
C_D(i + 28) = D14(i)
Next
''''PC_2转换,生成K14
For i = 0 To 47
K14(i) = C_D(PC_2(i))
Next
''''***************************************************K15
''''生成C15,D15
For i = 0 To 25
C15(i) = C14(i + Lsi(15))
D15(i) = D14(i + Lsi(15))
&nb上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页
没有相关教程
|
|
| 教程录入：mintao 责任编辑：mintao |
|
|
上一篇教程： 用vb实现DES加解密算法(二)--加密
下一篇教程： Visual Basic的类对于面向对象的支持 |
|
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] |
| 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
| |
|
|
|
|
|
 |
同类栏目 |
 |
|
赞助链接 |
|
|
500 - 内部服务器错误。
|
|
|
|
|
|
