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

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

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


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

        '产生L12,R12
        R12(i) = L11(i) Xor CodeP(i)
        L12(i) = R11(i)
    Next

    '进行第13次迭代
    For i = 0 To 47
        CodeE(i) = R12(E(i))                 '经过E变换扩充，由32位变为48位
        CodeE(i) = CodeE(i) Xor K13(i)        '与K13按位作不进位加法运算
    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个数

        S(0) = S1(CodeS1(5) + CodeS1(0) * 2, CodeS1(4) + CodeS1(3) * 2 + CodeS1(2) * 4 + CodeS1(1) * 8)
        S(1) = S2(CodeS2(5) + CodeS2(0) * 2, CodeS2(4) + CodeS2(3) * 2 + CodeS2(2) * 4 + CodeS2(1) * 8)

共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