用vb实现DES加解密算法(二)--加密

用vb实现DES加解密算法(二)--加密(2) Dim L6(31) As Byte: Dim R6(31) As Byte
Dim L7(31) As Byte: Dim R7(31) As Byte
Dim L8(31) As Byte: Dim R8(31) As Byte
Dim L9(31) As Byte: Dim R9(31) As Byte
Dim L10(31) As Byte: Dim R10(31) As Byte
Dim L11(31) As Byte: Dim R11(31) As Byte
Dim L12(31) As Byte: Dim R12(31) As Byte
Dim L13(31) As Byte: Dim R13(31) As Byte
Dim L14(31) As Byte: Dim R14(31) As Byte
Dim L15(31) As Byte: Dim R15(31) As Byte
Dim L16(31) As Byte: Dim R16(31) As Byte

Dim C0(27) As Byte: Dim D0(27) As Byte     '16个密钥
Dim C1(27) As Byte: Dim D1(27) As Byte
Dim C2(27) As Byte: Dim D2(27) As Byte:
Dim C3(27) As Byte: Dim D3(27) As Byte:
Dim C4(27) As Byte: Dim D4(27) As Byte:
Dim C5(27) As Byte: Dim D5(27) As Byte:
Dim C6(27) As Byte: Dim D6(27) As Byte:
Dim C7(27) As Byte: Dim D7(27) As Byte:
Dim C8(27) As Byte: Dim D8(27) As Byte:
Dim C9(27) As Byte: Dim D9(27) As Byte:
Dim C10(27) As Byte: Dim D10(27) As Byte:
Dim C11(27) As Byte: Dim D11(27) As Byte:
Dim C12(27) As Byte: Dim D12(27) As Byte:
Dim C13(27) As Byte: Dim D13(27) As Byte:
Dim C14(27) As Byte: Dim D14(27) As Byte:
Dim C15(27) As Byte: Dim D15(27) As Byte:
Dim C16(27) As Byte: Dim D16(27) As Byte:

Dim C_D(55) As Byte     'Cn,Dn合并后的存放处

Dim K1(47) As Byte: Dim K2(47) As Byte: Dim K3(47) As Byte: Dim K4(47) As Byte:
Dim K5(47) As Byte: Dim K6(47) As Byte: Dim K7(47) As Byte: Dim K8(47) As Byte:
Dim K9(47) As Byte: Dim K10(47) As Byte: Dim K11(47) As Byte: Dim K12(47) As Byte:
Dim K13(47) As Byte: Dim K14(47) As Byte: Dim K15(47) As Byte: Dim K16(47) As Byte:

Dim i As Integer
Dim j As Integer

'取密钥的前8字节
tempKey = StrConv(sKey, vbFromUnicode)
ReDim Preserve tempKey(7)

For i = 0 To 7
    BinKey(i * 8 + 0) = (tempKey(i) And &H80) \ &H80
    BinKey(i * 8 + 1) = (tempKey(i) And &H40) \ &H40
    BinKey(i * 8 + 2) = (tempKey(i) And &H20) \ &H20