下载首页网络学院最新更新软件分类国产软件国外软件汉化补丁注册绿色下载排行精品软件

	设为首页
	联系我们
	加入收藏

文章搜索

您的位置: 首页 >> 文章首页 >> 编程开发 >> Visual Basic >> 用vb实现DES加解密算法(二)--加密

精品推荐

Visual Basic点击TOP10

·VB中使用EXCEL输出

·用vb实现DES加解密算法(三)--解密

·vsprint打印实例

·VB实现SQL Server数据库备份/恢复

·DirectX 7 编程初步

·用vb实现DES加解密算法(二)--加密

·VB 贪吃蛇单人版游戏（原作）

·如何在IE右键菜单中添加菜单项以及如何添加IE任务栏按钮

·VB6.0中通过MSChart控件调用数据库

·让VB应用程序支持鼠标滚轮

编程开发点击TOP10

·数字小键盘指法练习

·用C语言编通讯录程序（初学者级别的）

·ASP.NET 程序中常用的三十三种代码

·我写的Java学生成绩管理系统源代码

·CHK文件恢复工具

·java笔试题

·Modem 常用AT指令集

·异常java.sql.SQLException: Io exception:The Network Adapter could not establish connection

·单片机模拟I2C总线及24C02(I2C EEPROM)读写实例（源代码）

·C++经典电子书下载

精选专题

用vb实现DES加解密算法(二)--加密

作者: 来源:网络文章时间:2005-12-13 17:20:26

用vb实现DES加解密算法(二)--加密(22)         RetS(i * 4 + 1) = (S(i) And &H4) \ &H4
        RetS(i * 4 + 2) = (S(i) And &H2) \ &H2
        RetS(i * 4 + 3) = (S(i) And &H1) \ &H1
    Next


    For i = 0 To 31
        'P变换
        CodeP(i) = RetS(P(i))

        '产生L9,R9
        R9(i) = L8(i) Xor CodeP(i)
        L9(i) = R8(i)
    Next



    '进行第10次迭代
    For i = 0 To 47
        CodeE(i) = R9(E(i))                 '经过E变换扩充，由32位变为48位
        CodeE(i) = CodeE(i) Xor K10(i)        '与K10按位作不进位加法运算
    Next

    '分8组
    For i = 0 To 5
        CodeS1(i) = CodeE(i)
        CodeS2(i) = CodeE(i + 6)
        CodeS3(i) = CodeE(i + 12)
        CodeS4(i) = CodeE(i + 18)
        CodeS5(i) = CodeE(i + 24)
        CodeS6(i) = CodeE(i + 30)
        CodeS7(i) = CodeE(i + 36)
        CodeS8(i) = CodeE(i + 42)
    Next

    'S盒运算，得到8个数

1.用vb实现DES加解密算法(二)--加密(1)
2.用vb实现DES加解密算法(二)--加密(2)
3.用vb实现DES加解密算法(二)--加密(3)
4.用vb实现DES加解密算法(二)--加密(4)
5.用vb实现DES加解密算法(二)--加密(5)
6.用vb实现DES加解密算法(二)--加密(6)
7.用vb实现DES加解密算法(二)--加密(7)
8.用vb实现DES加解密算法(二)--加密(8)
9.用vb实现DES加解密算法(二)--加密(9)
10.用vb实现DES加解密算法(二)--加密(10)
11.用vb实现DES加解密算法(二)--加密(11)
12.用vb实现DES加解密算法(二)--加密(12)
13.用vb实现DES加解密算法(二)--加密(13)
14.用vb实现DES加解密算法(二)--加密(14)
15.用vb实现DES加解密算法(二)--加密(15)
16.用vb实现DES加解密算法(二)--加密(16)
17.用vb实现DES加解密算法(二)--加密(17)
18.用vb实现DES加解密算法(二)--加密(18)
19.用vb实现DES加解密算法(二)--加密(19)
20.用vb实现DES加解密算法(二)--加密(20)
21.用vb实现DES加解密算法(二)--加密(21)
22.用vb实现DES加解密算法(二)--加密(22)
23.用vb实现DES加解密算法(二)--加密(23)
24.用vb实现DES加解密算法(二)--加密(24)
25.用vb实现DES加解密算法(二)--加密(25)
26.用vb实现DES加解密算法(二)--加密(26)
27.用vb实现DES加解密算法(二)--加密(27)
28.用vb实现DES加解密算法(二)--加密(28)
29.用vb实现DES加解密算法(二)--加密(29)
30.用vb实现DES加解密算法(二)--加密(30)
31.用vb实现DES加解密算法(二)--加密(31)
32.用vb实现DES加解密算法(二)--加密(32)
33.用vb实现DES加解密算法(二)--加密(33)
34.用vb实现DES加解密算法(二)--加密(34)

共34页 9 7 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] 8 :>

用vb实现DES加解密算法(二)--加密相关文章：

用vb实现DES加解密算法(二)--加密相关软件：

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
转载请注明来源：http://www.xgdown.com

帮助（？) 软件发布版权声明友情连接
Copyright 2005-2005 星光下载 All rights reserved.		Powered By: DownPlus