|
用vb实现DES加解密算法(二)--加密(6) For i = 0 To 27
C_D(i) = C12(i)
C_D(i + 28) = D12(i)
Next 'PC_2转换,生成K12
For i = 0 To 47
K12(i) = C_D(PC_2(i))
Next '***************************************************K13
'生成C13,D13
For i = 0 To 25
C13(i) = C12(i + Lsi(13))
D13(i) = D12(i + Lsi(13))
Next
C13(26) = C12(0)
D13(26) = D12(0)
C13(27) = C12(1)
D13(27) = D12(1) '组合C13,D13成C_D
For i = 0 To 27
C_D(i) = C13(i)
C_D(i + 28) = D13(i)
Next 'PC_2转换,生成K13
For i = 0 To 47
K13(i) = C_D(PC_2(i))
Next '***************************************************K14
'生成C14,D14
For i = 0 To 25
C14(i) = C13(i + Lsi(14))
D14(i) = D13(i + Lsi(14))
Next
C14(26) = C13(0)
D14(26) = D13(0)
C14(27) = C13(1)
D14(27) = D13(1) '组合C14,D14成C_D
For i = 0 To 27
C_D(i) = C14(i)
C_D(i + 28) = D14(i)
Next 'PC_2转换,生成K14
For i = 0 To 47
K14(i) = C_D(PC_2(i))
Next '***************************************************K15
'生成C15,D15
For i = 0 To 25
C15(i) = C14(i + Lsi(15))
D15(i) = D14(i + Lsi(15))
Next
C15(26) = C14(0)
D15(26) = D14(0)
C15(27) = C14(1)
D15(27) = D14(1) '组合C15,D15成C_D
For i = 0 To 27
C_D(i) = C15(i)
C_D(i + 28) = D15(i)
Next 'PC_2转换,生成K15
For i = 0 To 47
K15(i) = C_D(PC_2(i))
Next '***************************************************K16
'生成C16,D16
For i = 0 To 26
C16(i) = C15(i + Lsi(16))
D16(i) = D15(i + Lsi(16))
Next
C16(27) = C15(0)
D16(27) = D15(0) '组合C16,D16成C_D
For i = 0 To 27
C_D(i) = C16(i)
| 
