|
用vb实现DES加解密算法(三)--解密(9) Next 'PC_2转换,生成K11 For i = 0 To 47 K11(i) = C_D(PC_2(i)) Next '***************************************************K12 '生成C12,D12 For i = 0 To 25 C12(i) = C11(i + Lsi(12)) D12(i) = D11(i + Lsi(12)) Next C12(26) = C11(0) D12(26) = D11(0) C12(27) = C11(1) D12(27) = D11(1) '组合C12,D12成C_D 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
|