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

    c10(26) = c9(0)
    d10(26) = d9(0)
    c10(27) = c9(1)
    d10(27) = d9(1)
   
    '组合c10,d10成c_d
    for i = 0 to 27
        c_d(i) = c10(i)
        c_d(i + 28) = d10(i)
    next
   
    'pc_2转换,生成k10
    for i = 0 to 47
        k10(i) = c_d(pc_2(i))
    next
   
    '***************************************************k11
    '生成c11,d11
    for i = 0 to 25
        c11(i) = c10(i + lsi(11))
        d11(i) = d10(i + lsi(11))
    next
    c11(26) = c10(0)
    d11(26) = d10(0)
    c11(27) = c10(1)
    d11(27) = d10(1)
   
    '组合c11,d11成c_d
    for i = 0 to 27
        c_d(i) = c11(i)
        c_d(i + 28) = d11(i)
    next
   
    'pc_2转换,生成k11
    for i = 0 to 47
        k11(i) = c_d(pc_2(i))
    next
   
    '***************************************************k12
    '生成c12,d12
    for i = 0 to 25
        c12(i) = c11(i + lsi(12))
        d12(i) = d11(i + lsi(12))
    next
    c12(26) = c11(0)
    d12(26) = d11(0)
    c12(27) = c11(1)
    d12(27) = d11(1)
   
    '组合c12,d12成c_d
    for i = 0 to 27
        c_d(i) = c12(i)
        c_d(i + 28) = d12(i)
    next
   
    'pc_2转换,生成k12
    for i = 0 to 47
        k12(i) = c_d(pc_2(i))
    next
   
    '***************************************************k13
    '生成c13,d13
    for i = 0 to 25
        c13(i) = c12(i + lsi(13))
        d13(i) = d12(i + lsi(13))
    next
    c13(26) = c12(0)
    d13(26) = d12(0)
    c13(27) = c12(1)
    d13(27) = d12(1)
   
    '组合c13,d13成c_d
    for i = 0 to 27
        c_d(i) = c13(i)
        c_d(i + 28) = d13(i)
    next
   
    'pc_2转换,生成k13
    for i = 0 to 47
        k13(i) = c_d(pc_2(i))
    next
   
    '***************************************************k14
    '生成c14,d14
    for i = 0 to 25
        c14(i) = c13(i + lsi(14))
        d14(i) = d13(i + lsi(14))
    next
    c14(26) = c13(0)
    d14(26) = d13(0)
    c14(27) = c13(1)
    d14(27) = d13(1)
   
    '组合c14,d14成c_d
    for i = 0 to 27
        c_d(i) = c14(i)
        c_d(i + 28) = d14(i)
    next
   
    'pc_2转换,生成k14
    for i = 0 to 47
        k14(i) = c_d(pc_2(i))
    next
   
    '***************************************************k15
    '生成c15,d15
    for i = 0 to 25
        c15(i) = c14(i + lsi(15))
        d15(i) = d14(i + lsi(15))
    next
    c15(26) = c14(0)
    d15(26) = d14(0)
    c15(27) = c14(1)
    d15(27) = d14(1)
   
    '组合c15,d15成c_d
    for i = 0 to 27