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