手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>程序设计>VB>列表

用VB实现DES加解密算法(一)

来源:互联网 作者:west263.com 时间:2008-02-23
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!

For i = 30 To 35
E(i) = i - 11
Next

For i = 36 To 41
E(i) = i - 13
Next
For i = 42 To 46
E(i) = i - 15
Next
E(47) = 30

P(0) = 15 ' 16
P(1) = 6 ' 7
P(2) = 19 ' 20
P(3) = 20 ' 21
P(4) = 28 ' 29
P(5) = 11 ' 12
P(6) = 27 ' 28
P(7) = 16 ' 17
P(8) = 0 ' 1
P(9) = 14 ' 15
P(10) = 22 ' 23
P(11) = 25 ' 26
P(12) = 4 ' 5
P(13) = 17 ' 18
P(14) = 30 ' 31
P(15) = 9 ' 10
P(16) = 1 ' 2
P(17) = 7 ' 8
P(18) = 23 ' 24
P(19) = 13 ' 14
P(20) = 31 ' 32
P(21) = 26 ' 27
P(22) = 2 ' 3
P(23) = 8 ' 9
P(24) = 18 ' 19
P(25) = 12 ' 13
P(26) = 29 ' 30
P(27) = 5 ' 6
P(28) = 21 ' 22
P(29) = 10 ' 11
P(30) = 3 ' 4
P(31) = 24 ' 25

S1(0, 0) = 14
S1(0, 1) = 4
S1(0, 2) = 13
S1(0, 3) = 1
S1(0, 4) = 2
S1(0, 5) = 15
S1(0, 6) = 11
S1(0, 7) = 8
S1(0, 8) = 3
S1(0, 9) = 10
S1(0, 10) = 6
S1(0, 11) = 12
S1(0, 12) = 5
S1(0, 13) = 9
S1(0, 14) = 0
S1(0, 15) = 7
S1(1, 0) = 0
S1(1, 1) = 15
S1(1, 2) = 7
S1(1, 3) = 4
S1(1, 4) = 14
S1(1, 5) = 2
S1(1, 6) = 13
S1(1, 7) = 1
S1(1, 8) = 10
S1(1, 9) = 6
S1(1, 10) = 12
S1(1, 11) = 11
S1(1, 12) = 9
S1(1, 13) = 5
S1(1, 14) = 3
S1(1, 15) = 8
S1(2, 0) = 4
S1(2, 1) = 1
S1(2, 2) = 14
S1(2, 3) = 8
S1(2, 4) = 13
S1(2, 5) = 6
S1(2, 6) = 2
S1(2, 7) = 11
S1(2, 8) = 15
S1(2, 9) = 12
S1(2, 10) = 9
S1(2, 11) = 7
S1(2, 12) = 3
S1(2, 13) = 10
S1(2, 14) = 5
S1(2, 15) = 0
S1(3, 0) = 15
S1(3, 1) = 12
S1(3, 2) = 8
S1(3, 3) = 2
S1(3, 4) = 4
S1(3, 5) = 9
S1(3, 6) = 1
S1(3, 7) = 7
S1(3, 8) = 5
S1(3, 9) = 11
S1(3, 10) = 3
S1(3, 11) = 14
S1(3, 12) = 10
S1(3, 13) = 0
S1(3, 14) = 6
S1(3, 15) = 13

S2(0, 0) = 15
S2(0, 1) = 1
S2(0, 2) = 8
S2(0, 3) = 14
S2(0, 4) = 6
S2(0, 5) = 11
S2(0, 6) = 3
S2(0, 7) = 4
S2(0, 8) = 9
S2(0, 9) = 7
S2(0, 10) = 2
S2(0, 11) = 13
S2(0, 12) = 12
S2(0, 13) = 0
S2(0, 14) = 5
S2(0, 15) = 10
S2(1, 0) = 3
S2(1, 1) = 13
S2(1, 2) = 4
S2(1, 3) = 7
S2(1, 4) = 15
S2(1, 5) = 2
S2(1, 6) = 8
S2(1, 7) = 14
S2(1, 8) = 12
S2(1, 9) = 0
S2(1, 10) = 1
S2(1, 11) = 10
S2(1, 12) = 6
S2(1, 13) = 9
S2(1, 14) = 11
S2(1, 15) = 5
S2(2, 0) = 0
S2(2, 1) = 14
S2(2, 2) = 7
S2(2, 3) = 11
S2(2, 4) = 10
S2(2, 5) = 4
S2(2, 6) = 13
S2(2, 7) = 1
S2(2, 8) = 5
S2(2, 9) = 8
S2(2, 10) = 12
S2(2, 11) = 6
S2(2, 12) = 9
S2(2, 13) = 3
S2(2, 14) = 2
S2(2, 15) = 15
S2(3, 0) = 13
S2(3, 1) = 8
S2(3, 2) = 10
S2(3, 3) = 1
S2(3, 4) = 3
S2(3, 5) = 15
S2(3, 6) = 4
S2(3, 7) = 2
S2(3, 8) = 11
S2(3, 9) = 6
S2(3, 10) = 7
S2(3, 11) = 12
S2(3, 12) = 0
S2(3, 13) = 5
S2(3, 14) = 14
S2(3, 15) = 9

S3(0, 0) = 10
S3(0, 1) = 0
S3(0, 2) = 9
S3(0, 3) = 14
S3(0, 4) = 6
S3(0, 5) = 3
S3(0, 6) = 15
S3(0, 7) = 5
S3(0, 8) = 1
S3(0, 9) = 13
S3(0, 10) = 12
S3(0, 11) = 7
S3(0, 12) = 11
S3(0, 13) = 4
S3(0, 14) = 2
S3(0, 15) = 8
S3(1, 0) = 13
S3(1, 1) = 7
S3(1, 2) = 0
S3(1, 3) = 9
S3(1, 4) = 3
S3(1, 5) = 4
S3(1, 6) = 6
S3(1, 7) = 10
S3(1, 8) = 2
S3(1, 9) = 8
S3(1, 10) = 5
S3(1, 11) = 14
S3(1, 12) = 12
S3(1, 13) = 11
S3(1, 14) = 15
S3(1, 15) = 1
S3(2, 0) = 13
S3(2, 1) = 6
S3(2, 2) = 4
S3(2, 3) = 9
S3(2, 4) = 8
S3(2, 5) = 15
S3(2, 6) = 3
S3(2, 7) = 0
S3(2, 8) = 11
S3(2, 9) = 1
S3(2, 10) = 2
S3(2, 11) = 12
S3(2, 12) = 5
S3(2, 13) = 10
S3(2, 14) = 14
S3(2, 15) = 7
S3(3, 0) = 1
S3(3, 1) = 10
S3(3, 2) = 13
S3(3, 3) = 0
S3(3, 4) = 6
S3(3, 5) = 9
S3(3, 6) = 8
S3(3, 7) = 7
S3(3, 8) = 4
S3(3, 9) = 15
S3(3, 10) = 14
S3(3, 11) = 3
S3(3, 12) = 11
S3(3, 13) = 5
S3(3, 14) = 2
S3(3, 15) = 12

S4(0, 0) = 7

文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!