|
用vb实现DES加解密算法(二)--加密(5) 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
| 
