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

用vb实现DES加解密算法(二)--加密(33)         S(4) = S5(CodeS5(5) + CodeS5(0) * 2, CodeS5(4) + CodeS5(3) * 2 + CodeS5(2) * 4 + CodeS5(1) * 8)
        S(5) = S6(CodeS6(5) + CodeS6(0) * 2, CodeS6(4) + CodeS6(3) * 2 + CodeS6(2) * 4 + CodeS6(1) * 8)
        S(6) = S7(CodeS7(5) + CodeS7(0) * 2, CodeS7(4) + CodeS7(3) * 2 + CodeS7(2) * 4 + CodeS7(1) * 8)
        S(7) = S8(CodeS8(5) + CodeS8(0) * 2, CodeS8(4) + CodeS8(3) * 2 + CodeS8(2) * 4 + CodeS8(1) * 8)
   
    'S盒运算32位结果
    For i = 0 To 7
        RetS(i * 4 + 0) = (S(i) And &H8) \ &H8
        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))
       
        '产生L11,R11
        R16(i) = L15(i) Xor CodeP(i)
        L16(i) = R15(i)
    Next
   
    For i = 0 To 31
        BinCode(i) = L16(i)
        BinCode(i + 32) = R16(i)
    Next
   
    For i = 0 To 63
        CodeIP(i) = BinCode(IP_1(i))
    Next
   
    For i = 0 To 7
        tempReturn(i) = CodeIP(i * 8 + 0) * &H80