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