'生成C3,D3
For i = 0 To 25
C3(i) = C2(i Lsi(3))
D3(i) = D2(i Lsi(3))
Next
C3(26) = C2(0)
D3(26) = D2(0)
C3(27) = C2(1)
D3(27) = D2(1)
'组合C3,D3成C_D
For i = 0 To 27
C_D(i) = C3(i)
C_D(i 28) = D3(i)
Next
'PC_2转换,生成K3
For i = 0 To 47
K3(i) = C_D(PC_2(i))
Next
'***************************************************K4
'生成C4,D4
For i = 0 To 25
C4(i) = C3(i Lsi(4))
D4(i) = D3(i Lsi(4))
Next
C4(26) = C3(0)
D4(26) = D3(0)
C4(27) = C3(1)
D4(27) = D3(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))
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
