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

用vb实现DES加解密算法(三)--解密(2)     Dim CodeS5(5) As Byte: Dim CodeS6(5) As Byte: Dim CodeS7(5) As Byte: Dim CodeS8(5) As Byte
           
   
    Dim L0(31) As Byte: Dim R0(31) As Byte
    Dim L1(31) As Byte: Dim R1(31) As Byte
    Dim L2(31) As Byte: Dim R2(31) As Byte
    Dim L3(31) As Byte: Dim R3(31) As Byte
    Dim L4(31) As Byte: Dim R4(31) As Byte
    Dim L5(31) As Byte: Dim R5(31) As Byte
    Dim L6(31) As Byte: Dim R6(31) As Byte
    Dim L7(31) As Byte: Dim R7(31) As Byte
    Dim L8(31) As Byte: Dim R8(31) As Byte
    Dim L9(31) As Byte: Dim R9(31) As Byte
    Dim L10(31) As Byte: Dim R10(31) As Byte
    Dim L11(31) As Byte: Dim R11(31) As Byte
    Dim L12(31) As Byte: Dim R12(31) As Byte
    Dim L13(31) As Byte: Dim R13(31) As Byte
    Dim L14(31) As Byte: Dim R14(31) As Byte
    Dim L15(31) As Byte: Dim R15(31) As Byte
    Dim L16(31) As Byte: Dim R16(31) As Byte
   
    Dim C0(27) As Byte: Dim D0(27) As Byte     '16个密钥
    Dim C1(27) As Byte: Dim D1(27) As Byte
    Dim C2(27) As Byte: Dim D2(27) As Byte:
    Dim C3(27) As Byte: Dim D3(27) As Byte:
    Dim C4(27) As Byte: Dim D4(27) As Byte:
    Dim C5(27) As Byte: Dim D5(27) As Byte:
    Dim C6(27) As Byte: Dim D6(27) As Byte:
    Dim C7(27) As Byte: Dim D7(27) As Byte:
    Dim C8(27) As Byte: Dim D8(27) As Byte:
    Dim C9(27) As Byte: Dim D9(27) As Byte:
    Dim C10(27) As Byte: Dim D10(27) As Byte:
    Dim C11(27) As Byte: Dim D11(27) As Byte: