用VB实现DES加解密算法(二)(1)

'组合C4,D4成C_D
For i = 0 To 27
C_D(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))
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
C_D(i) = C15(i)
C_D(i 28) = D15(i)
Next

'PC_2转换,生成K15
For i = 0 To 47
K15(i) = C_D(PC_2(i))
Next

'***************************************************K16
'生成C16,D16
For i = 0 To 26
C16(i) = C15(i Lsi(16))
D16(i) = D15(i Lsi(16))
Next
C16(27) = C15(0)
D16(27) = D15(0)

'组合C16,D16成C_D
For i = 0 To 27

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!