转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> VB.NET程序 >> 正文
用VB实现DES加解密算法(一)--定义         ★★★★

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

作者:闵涛 文章来源:闵涛的学习笔记 点击数:2548 更新时间:2009/4/23 18:59:36
sp;
   
    E(0) = 31
    For i = 1 To 5
        E(i) = i - 1
    Next
   
    For i = 6 To 11
        E(i) = i - 3
    Next
   
    For i = 12 To 17
        E(i) = i - 5
    Next
   
    For i = 18 To 23
        E(i) = i - 7
    Next
   
    For i = 24 To 29
        E(i) = i - 9
    Next
              
    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

上一页  [1] [2] [3] [4]  下一页


没有相关教程
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台