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

        k4(i) = c_d(pc_2(i))
    next
   
    '***************************************************k5
    '生成c5,d5
    for i = 0 to 25
        c5(i) = c4(i + lsi(5))
        d5(i) = d4(i + lsi(5))
    next
    c5(26) = c4(0)
    d5(26) = d4(0)
    c5(27) = c4(1)
    d5(27) = d4(1)
   
    '组合c5,d5成c_d
    for i = 0 to 27
        c_d(i) = c5(i)
        c_d(i + 28) = d5(i)
    next
   
    'pc_2转换,生成k5
    for i = 0 to 47
        k5(i) = c_d(pc_2(i))
    next
   
    '***************************************************k6
    '生成c6,d6
    for i = 0 to 25
        c6(i) = c5(i + lsi(6))
        d6(i) = d5(i + lsi(6))
    next
    c6(26) = c5(0)
    d6(26) = d5(0)
    c6(27) = c5(1)
    d6(27) = d5(1)
   
    '组合c6,d6成c_d
    for i = 0 to 27
        c_d(i) = c6(i)
        c_d(i + 28) = d6(i)
    next
   
    'pc_2转换,生成k6
    for i = 0 to 47
        k6(i) = c_d(pc_2(i))
    next
   
    '***************************************************k7
    '生成c7,d7
    for i = 0 to 25
        c7(i) = c6(i + lsi(7))
        d7(i) = d6(i + lsi(7))
    next
    c7(26) = c6(0)
    d7(26) = d6(0)
    c7(27) = c6(1)
    d7(27) = d6(1)
   
    '组合c7,d7成c_d
    for i = 0 to 27
        c_d(i) = c7(i)
        c_d(i + 28) = d7(i)
    next
   
    'pc_2转换,生成k7
    for i = 0 to 47
        k7(i) = c_d(pc_2(i))
    next
   
    '***************************************************k8
    '生成c8,d8
    for i = 0 to 25
        c8(i) = c7(i + lsi(8))
        d8(i) = d7(i + lsi(8))
    next
    c8(26) = c7(0)
    d8(26) = d7(0)
    c8(27) = c7(1)
    d8(27) = d7(1)
   
    '组合c8,d8成c_d
    for i = 0 to 27
        c_d(i) = c8(i)
        c_d(i + 28) = d8(i)
    next
   
    'pc_2转换,生成k8
    for i = 0 to 47
        k8(i) = c_d(pc_2(i))
    next
   
    '***************************************************k9
    '生成c9,d9
    for i = 0 to 26
        c9(i) = c8(i + lsi(9))
        d9(i) = d8(i + lsi(9))
    next
    c9(27) = c8(0)
    d9(27) = d8(0)
   
    '组合c9,d9成c_d
    for i = 0 to 27
        c_d(i) = c9(i)
        c_d(i + 28) = d9(i)
    next
   
    'pc_2转换,生成k9
    for i = 0 to 47
        k9(i) = c_d(pc_2(i))
    next
   
    '***************************************************k10
    '生成c10,d10
    for i = 0 to 25
        c10(i) = c9(i + lsi(10))
        d10(i) = d9(i + lsi(10))
    next