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