|
用vb实现DES加解密算法(三)--解密(4)
'PC_1转换
For i = 0 To 55
KeyPC_1(i) = BinKey(PC_1(i))
Next
'生成C0,D0
For i = 0 To 27
C0(i) = KeyPC_1(i)
D0(i) = KeyPC_1(i + 28)
Next
'***************************************************K1
'生成C1,D1
For i = 0 To 26
C1(i) = C0(i + Lsi(1))
D1(i) = D0(i + Lsi(1))
Next
C1(27) = C0(0)
D1(27) = D0(0)
'组合C1,D1成C_D
For i = 0 To 27
C_D(i) = C1(i)
C_D(i + 28) = D1(i)
Next
'PC_2转换,生成K1
For i = 0 To 47
K1(i) = C_D(PC_2(i))
Next
'***************************************************K2
'生成C2,D2
For i = 0 To 26
C2(i) = C1(i + Lsi(2))
D2(i) = D1(i + Lsi(2))
Next
C2(27) = C1(0)
D2(27) = D1(0)
'组合C2,D2成C_D
For i = 0 To 27
C_D(i) = C2(i)
C_D(i + 28) = D2(i)
Next
'PC_2转换,生成K2
|
