打印本文 打印本文 关闭窗口 关闭窗口
用vb实现DES加解密算法(三)--解密
作者:武汉SEO闵涛  文章来源:敏韬网  点击数5067  更新时间:2009/4/23 18:59:36  文章录入:mintao  责任编辑:mintao
i) = C4(i)
        C_D(i + 28) = D4(i)
    Next
   
    ''''PC_2转换,生成K4
    For i = 0 To 47
        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
    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))
&nb

上一页  [1] [2] [3] [4] [5] [6] [7] [8]  下一页

打印本文 打印本文 关闭窗口 关闭窗口