用VB实现DES加解密算法(一)--定义

'DES加解密算法实现 vb版 v1.0

'作者: agamem

'日期: 2003年08月27日

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

'置换表

Private IP(63) As Byte 'IP置换码

Private IP_1(63) As Byte 'IP-1置换码

Private E(47) As Byte 'E膨胀码

Private P(31) As Byte 'P变换码

Private S1(3, 15) As Byte 'S盒1

Private S2(3, 15) As Byte 'S盒2

Private S3(3, 15) As Byte 'S盒3

Private S4(3, 15) As Byte 'S盒4

Private S5(3, 15) As Byte 'S盒5

Private S6(3, 15) As Byte 'S盒6

Private S7(3, 15) As Byte 'S盒7

Private S8(3, 15) As Byte 'S盒8

Private PC_1(55) As Byte

Private PC_2(47) As Byte

Private Lsi(16) As Byte '循环左移位

Private Sub Class_Initialize()

Dim i As Integer

IP(0) = 57 ' 58

IP(1) = 49 ' 50

IP(2) = 41 ' 42

IP(3) = 33 ' 34

IP(4) = 25 ' 26

IP(5) = 17 ' 18

IP(6) = 9 ' 10

IP(7) = 1 ' 2

IP(8) = 59 ' 60

IP(9) = 51 ' 52

IP(10) = 43 ' 44

IP(11) = 35 ' 36

IP(12) = 27 ' 28

IP(13) = 19 ' 20

IP(14) = 11 ' 12

IP(15) = 3 ' 4

IP(16) = 61 ' 62

IP(17) = 53 ' 54

IP(18) = 45 ' 46

IP(19) = 37 ' 38

IP(20) = 29 ' 30

IP(21) = 21 ' 22

IP(22) = 13 ' 14

IP(23) = 5 ' 6

IP(24) = 63 ' 64

IP(25) = 55 ' 56

IP(26) = 47 ' 48

IP(27) = 39 ' 40

IP(28) = 31 ' 32

IP(29) = 23 ' 24

IP(30) = 15 ' 16

IP(31) = 7 ' 8

IP(32) = 56 ' 57

IP(33) = 48 ' 49

IP(34) = 40 ' 41

IP(35) = 32 ' 33

IP(36) = 24 ' 25

IP(37) = 16 ' 17

IP(38) = 8 ' 9

IP(39) = 0 ' 1

IP(40) = 58 ' 59

IP(41) = 50 ' 51

IP(42) = 42 ' 43

IP(43) = 34 ' 35

IP(44) = 26 ' 27

IP(45) = 18 ' 19

IP(46) = 10 ' 11

IP(47) = 2 ' 3

IP(48) = 60 ' 61

IP(49) = 52 ' 53

IP(50) = 44 ' 45

IP(51) = 36 ' 37

IP(52) = 28 ' 29

IP(53) = 20 ' 21

IP(54) = 12 ' 13

IP(55) = 4 ' 5

IP(56) = 62 ' 63

IP(57) = 54 ' 55

IP(58) = 46 ' 47

IP(59) = 38 ' 39

IP(60) = 30 ' 31

IP(61) = 22 ' 23

IP(62) = 14 ' 15

IP(63) = 6 ' 7

IP_1(0) = 39 ' 40

IP_1(1) = 7 ' 8

IP_1(2) = 47 ' 48

IP_1(3) = 15 ' 16

IP_1(4) = 55 ' 56

IP_1(5) = 23 ' 24

IP_1(6) = 63 ' 64

IP_1(7) = 31 ' 32

IP_1(8) = 38 ' 39

IP_1(9) = 6 ' 7

IP_1(10) = 46 ' 47

IP_1(11) = 14 ' 15

IP_1(12) = 54 ' 55

IP_1(13) = 22 ' 23

IP_1(14) = 62 ' 63

IP_1(15) = 30 ' 31

IP_1(16) = 37 ' 38

IP_1(17) = 5 ' 6

IP_1(18) = 45 ' 46

IP_1(19) = 13 ' 14

IP_1(20) = 53 ' 54

IP_1(21) = 21 ' 22

IP_1(22) = 61 ' 62

IP_1(23) = 29 ' 30

IP_1(24) = 36 ' 37

IP_1(25) = 4 ' 5

IP_1(26) = 44 ' 45

IP_1(27) = 12 ' 13

IP_1(28) = 52 ' 53

IP_1(29) = 20 ' 21

IP_1(30) = 60 ' 61

IP_1(31) = 28 ' 29

IP_1(32) = 35 ' 36

IP_1(33) = 3 ' 4

IP_1(34) = 43 ' 44

IP_1(35) = 11 ' 12

IP_1(36) = 51 ' 52

IP_1(37) = 19 ' 20

IP_1(38) = 59 ' 60

IP_1(39) = 27 ' 28

IP_1(40) = 34 ' 35

IP_1(41) = 2 ' 3

IP_1(42) = 42 ' 43

IP_1(43) = 10 ' 11

IP_1(44) = 50 ' 51

IP_1(45) = 18 ' 19

IP_1(46) = 58 ' 59

IP_1(47) = 26 ' 27

IP_1(48) = 33 ' 34

IP_1(49) = 1 ' 2

IP_1(50) = 41 ' 42

IP_1(51) = 9 ' 10

IP_1(52) = 49 ' 50

IP_1(53) = 17 ' 18

IP_1(54) = 57 ' 58

IP_1(55) = 25 ' 26

IP_1(56) = 32 ' 33

IP_1(57) = 0 ' 1

IP_1(58) = 40 ' 41

IP_1(59) = 8 ' 9

IP_1(60) = 48 ' 49

IP_1(61) = 16 ' 17

IP_1(62) = 56 ' 57

IP_1(63) = 24 ' 25

E(0) = 31

For i = 1 To 5

E(i) = i - 1

For i = 6 To 11

E(i) = i - 3

For i = 12 To 17

E(i) = i - 5

For i = 18 To 23

E(i) = i - 7

For i = 24 To 29

E(i) = i - 9

For i = 30 To 35

E(i) = i - 11

For i = 36 To 41

E(i) = i - 13

For i = 42 To 46

E(i) = i - 15

E(47) = 30

P(0) = 15 ' 16

P(1) = 6 ' 7

P(2) = 19 ' 20

P(3) = 20 ' 21

P(4) = 28 ' 29

P(5) = 11 ' 12

P(6) = 27 ' 28

P(7) = 16 ' 17

P(8) = 0 ' 1

P(9) = 14 ' 15

P(10) = 22 ' 23

P(11) = 25 ' 26

P(12) = 4 ' 5

P(13) = 17 ' 18

P(14) = 30 ' 31

P(15) = 9 ' 10

P(16) = 1 ' 2

P(17) = 7 ' 8

P(18) = 23 ' 24

P(19) = 13 ' 14

P(20) = 31 ' 32

P(21) = 26 ' 27

P(22) = 2 ' 3

P(23) = 8 ' 9

P(24) = 18 ' 19

P(25) = 12 ' 13

P(26) = 29 ' 30

P(27) = 5 ' 6

P(28) = 21 ' 22

P(29) = 10 ' 11

P(30) = 3 ' 4

P(31) = 24 ' 25

S1(0, 0) = 14

S1(0, 1) = 4

S1(0, 2) = 13

S1(0, 3) = 1

S1(0, 4) = 2

S1(0, 5) = 15

S1(0, 6) = 11

S1(0, 7) = 8

S1(0, 8) = 3

S1(0, 9) = 10

S1(0, 10) = 6

S1(0, 11) = 12

S1(0, 12) = 5

S1(0, 13) = 9

S1(0, 14) = 0

S1(0, 15) = 7

S1(1, 0) = 0

S1(1, 1) = 15

S1(1, 2) = 7

S1(1, 3) = 4

S1(1, 4) = 14

S1(1, 5) = 2

S1(1, 6) = 13

S1(1, 7) = 1

S1(1, 8) = 10

S1(1, 9) = 6

S1(1, 10) = 12

S1(1, 11) = 11

S1(1, 12) = 9

S1(1, 13) = 5

S1(1, 14) = 3

S1(1, 15) = 8

S1(2, 0) = 4

S1(2, 1) = 1

S1(2, 2) = 14

S1(2, 3) = 8

S1(2, 4) = 13

S1(2, 5) = 6

S1(2, 6) = 2

S1(2, 7) = 11

S1(2, 8) = 15

S1(2, 9) = 12

S1(2, 10) = 9

S1(2, 11) = 7

S1(2, 12) = 3

S1(2, 13) = 10

S1(2, 14) = 5

S1(2, 15) = 0

S1(3, 0) = 15

S1(3, 1) = 12

S1(3, 2) = 8

S1(3, 3) = 2

S1(3, 4) = 4

S1(3, 5) = 9

S1(3, 6) = 1

S1(3, 7) = 7

S1(3, 8) = 5

S1(3, 9) = 11

S1(3, 10) = 3

S1(3, 11) = 14

S1(3, 12) = 10

S1(3, 13) = 0

S1(3, 14) = 6

S1(3, 15) = 13

S2(0, 0) = 15

S2(0, 1) = 1

S2(0, 2) = 8

S2(0, 3) = 14

S2(0, 4) = 6

S2(0, 5) = 11

S2(0, 6) = 3

S2(0, 7) = 4

S2(0, 8) = 9

S2(0, 9) = 7

S2(0, 10) = 2

S2(0, 11) = 13

S2(0, 12) = 12

S2(0, 13) = 0

S2(0, 14) = 5

S2(0, 15) = 10

S2(1, 0) = 3

S2(1, 1) = 13

S2(1, 2) = 4

S2(1, 3) = 7

S2(1, 4) = 15

S2(1, 5) = 2

S2(1, 6) = 8

S2(1, 7) = 14

S2(1, 8) = 12

S2(1, 9) = 0

S2(1, 10) = 1

S2(1, 11) = 10

S2(1, 12) = 6

S2(1, 13) = 9

S2(1, 14) = 11

S2(1, 15) = 5

S2(2, 0) = 0

S2(2, 1) = 14

S2(2, 2) = 7

S2(2, 3) = 11

S2(2, 4) = 10

S2(2, 5) = 4

S2(2, 6) = 13

S2(2, 7) = 1

S2(2, 8) = 5

S2(2, 9) = 8

S2(2, 10) = 12

S2(2, 11) = 6

S2(2, 12) = 9

S2(2, 13) = 3

S2(2, 14) = 2

S2(2, 15) = 15

S2(3, 0) = 13

S2(3, 1) = 8

S2(3, 2) = 10

S2(3, 3) = 1

S2(3, 4) = 3

S2(3, 5) = 15

S2(3, 6) = 4

S2(3, 7) = 2

S2(3, 8) = 11

S2(3, 9) = 6

S2(3, 10) = 7

S2(3, 11) = 12

S2(3, 12) = 0

S2(3, 13) = 5

S2(3, 14) = 14

S2(3, 15) = 9

S3(0, 0) = 10

S3(0, 1) = 0

S3(0, 2) = 9

S3(0, 3) = 14

S3(0, 4) = 6

S3(0, 5) = 3

S3(0, 6) = 15

S3(0, 7) = 5

S3(0, 8) = 1

S3(0, 9) = 13

S3(0, 10) = 12

S3(0, 11) = 7

S3(0, 12) = 11

S3(0, 13) = 4

S3(0, 14) = 2

S3(0, 15) = 8

S3(1, 0) = 13

S3(1, 1) = 7

S3(1, 2) = 0

S3(1, 3) = 9

S3(1, 4) = 3

S3(1, 5) = 4

S3(1, 6) = 6

S3(1, 7) = 10

S3(1, 8) = 2

S3(1, 9) = 8

S3(1, 10) = 5

S3(1, 11) = 14

S3(1, 12) = 12

S3(1, 13) = 11

S3(1, 14) = 15

S3(1, 15) = 1

S3(2, 0) = 13

S3(2, 1) = 6

S3(2, 2) = 4

S3(2, 3) = 9

S3(2, 4) = 8

S3(2, 5) = 15

S3(2, 6) = 3

S3(2, 7) = 0

S3(2, 8) = 11

S3(2, 9) = 1

S3(2, 10) = 2

S3(2, 11) = 12

S3(2, 12) = 5

S3(2, 13) = 10

S3(2, 14) = 14

S3(2, 15) = 7

S3(3, 0) = 1

S3(3, 1) = 10

S3(3, 2) = 13

S3(3, 3) = 0

S3(3, 4) = 6

S3(3, 5) = 9

S3(3, 6) = 8

S3(3, 7) = 7

S3(3, 8) = 4

S3(3, 9) = 15

S3(3, 10) = 14

S3(3, 11) = 3

S3(3, 12) = 11

S3(3, 13) = 5

S3(3, 14) = 2

S3(3, 15) = 12

S4(0, 0) = 7

S4(0, 1) = 13

S4(0, 2) = 14

S4(0, 3) = 3

S4(0, 4) = 0

S4(0, 5) = 6

S4(0, 6) = 9

S4(0, 7) = 10

S4(0, 8) = 1

S4(0, 9) = 2

S4(0, 10) = 8

S4(0, 11) = 5

S4(0, 12) = 11

S4(0, 13) = 12

S4(0, 14) = 4

S4(0, 15) = 15

S4(1, 0) = 13

S4(1, 1) = 8

S4(1, 2) = 11

S4(1, 3) = 5

S4(1, 4) = 6

S4(1, 5) = 15

S4(1, 6) = 0

S4(1, 7) = 3

S4(1, 8) = 4

S4(1, 9) = 7

S4(1, 10) = 2

S4(1, 11) = 12

S4(1, 12) = 1

S4(1, 13) = 10

S4(1, 14) = 14

S4(1, 15) = 9

S4(2, 0) = 10

S4(2, 1) = 6

S4(2, 2) = 9

S4(2, 3) = 0

S4(2, 4) = 12

S4(2, 5) = 11

S4(2, 6) = 7

S4(2, 7) = 13

S4(2, 8) = 15

S4(2, 9) = 1

S4(2, 10) = 3

S4(2, 11) = 14

S4(2, 12) = 5

S4(2, 13) = 2

S4(2, 14) = 8

S4(2, 15) = 4

S4(3, 0) = 3

S4(3, 1) = 15

S4(3, 2) = 0

S4(3, 3) = 6

S4(3, 4) = 10

S4(3, 5) = 1

S4(3, 6) = 13

S4(3, 7) = 8

S4(3, 8) = 9

S4(3, 9) = 4

S4(3, 10) = 5

S4(3, 11) = 11

S4(3, 12) = 12

S4(3, 13) = 7

S4(3, 14) = 2

S4(3, 15) = 14

S5(0, 0) = 2

S5(0, 1) = 12

S5(0, 2) = 4

S5(0, 3) = 1

S5(0, 4) = 7

S5(0, 5) = 10

S5(0, 6) = 11

S5(0, 7) = 6

S5(0, 8) = 8

S5(0, 9) = 5

S5(0, 10) = 3

S5(0, 11) = 15

S5(0, 12) = 13

S5(0, 13) = 0

S5(0, 14) = 14

S5(0, 15) = 9

S5(1, 0) = 14

S5(1, 1) = 11

S5(1, 2) = 2

S5(1, 3) = 12

S5(1, 4) = 4

S5(1, 5) = 7

S5(1, 6) = 13

S5(1, 7) = 1

S5(1, 8) = 5

S5(1, 9) = 0

S5(1, 10) = 15

S5(1, 11) = 10

S5(1, 12) = 3

S5(1, 13) = 9

S5(1, 14) = 8

S5(1, 15) = 6

S5(2, 0) = 4

S5(2, 1) = 2

S5(2, 2) = 1

S5(2, 3) = 11

S5(2, 4) = 10

S5(2, 5) = 13

S5(2, 6) = 7

S5(2, 7) = 8

S5(2, 8) = 15

S5(2, 9) = 9

S5(2, 10) = 12

S5(2, 11) = 5

S5(2, 12) = 6

S5(2, 13) = 3

S5(2, 14) = 0

S5(2, 15) = 14

S5(3, 0) = 11

S5(3, 1) = 8

S5(3, 2) = 12

S5(3, 3) = 7

S5(3, 4) = 1

S5(3, 5) = 14

S5(3, 6) = 2

S5(3, 7) = 13

S5(3, 8) = 6

S5(3, 9) = 15

S5(3, 10) = 0

S5(3, 11) = 9

S5(3, 12) = 10

S5(3, 13) = 4

S5(3, 14) = 5

S5(3, 15) = 3

S6(0, 0) = 12

S6(0, 1) = 1

S6(0, 2) = 10

S6(0, 3) = 15

S6(0, 4) = 9

S6(0, 5) = 2

S6(0, 6) = 6

S6(0, 7) = 8

S6(0, 8) = 0

S6(0, 9) = 13

S6(0, 10) = 3

S6(0, 11) = 4

S6(0, 12) = 14

S6(0, 13) = 7

S6(0, 14) = 5

S6(0, 15) = 11

S6(1, 0) = 10

S6(1, 1) = 15

S6(1, 2) = 4

S6(1, 3) = 2

S6(1, 4) = 7

S6(1, 5) = 12

S6(1, 6) = 9

S6(1, 7) = 5

S6(1, 8) = 6

S6(1, 9) = 1

S6(1, 10) = 13

S6(1, 11) = 14

S6(1, 12) = 0

S6(1, 13) = 11

S6(1, 14) = 3

S6(1, 15) = 8

S6(2, 0) = 9

S6(2, 1) = 14

S6(2, 2) = 15

S6(2, 3) = 5

S6(2, 4) = 2

S6(2, 5) = 8

S6(2, 6) = 12

S6(2, 7) = 3

S6(2, 8) = 7

S6(2, 9) = 0

S6(2, 10) = 4

S6(2, 11) = 10

S6(2, 12) = 1

S6(2, 13) = 13

S6(2, 14) = 11

S6(2, 15) = 6

S6(3, 0) = 4

S6(3, 1) = 3

S6(3, 2) = 2

S6(3, 3) = 12

S6(3, 4) = 9

S6(3, 5) = 5

S6(3, 6) = 15

S6(3, 7) = 10

S6(3, 8) = 11

S6(3, 9) = 14

S6(3, 10) = 1

S6(3, 11) = 7

S6(3, 12) = 6

S6(3, 13) = 0

S6(3, 14) = 8

S6(3, 15) = 13

S7(0, 0) = 4

S7(0, 1) = 11

S7(0, 2) = 2

S7(0, 3) = 14

S7(0, 4) = 15

S7(0, 5) = 0

S7(0, 6) = 8

S7(0, 7) = 13

S7(0, 8) = 3

S7(0, 9) = 12

S7(0, 10) = 9

S7(0, 11) = 7

S7(0, 12) = 5

S7(0, 13) = 10

S7(0, 14) = 6

S7(0, 15) = 1

S7(1, 0) = 13

S7(1, 1) = 0

S7(1, 2) = 11

S7(1, 3) = 7

S7(1, 4) = 4

S7(1, 5) = 9

S7(1, 6) = 1

S7(1, 7) = 10

S7(1, 8) = 14

S7(1, 9) = 3

S7(1, 10) = 5

S7(1, 11) = 12

S7(1, 12) = 2

S7(1, 13) = 15

S7(1, 14) = 8

S7(1, 15) = 6

S7(2, 0) = 1

S7(2, 1) = 4

S7(2, 2) = 11

S7(2, 3) = 13

S7(2, 4) = 12

S7(2, 5) = 3

S7(2, 6) = 7

S7(2, 7) = 14

S7(2, 8) = 10

S7(2, 9) = 15

S7(2, 10) = 6

S7(2, 11) = 8

S7(2, 12) = 0

S7(2, 13) = 5

S7(2, 14) = 9

S7(2, 15) = 2

S7(3, 0) = 6

S7(3, 1) = 11

S7(3, 2) = 13

S7(3, 3) = 8

S7(3, 4) = 1

S7(3, 5) = 4

S7(3, 6) = 10

S7(3, 7) = 7

S7(3, 8) = 9

S7(3, 9) = 5

S7(3, 10) = 0

S7(3, 11) = 15

S7(3, 12) = 14

S7(3, 13) = 2

S7(3, 14) = 3

S7(3, 15) = 12

S8(0, 0) = 13

S8(0, 1) = 2

S8(0, 2) = 8

S8(0, 3) = 4

S8(0, 4) = 6

S8(0, 5) = 15

S8(0, 6) = 11

S8(0, 7) = 1

S8(0, 8) = 10

S8(0, 9) = 9

S8(0, 10) = 3

S8(0, 11) = 14

S8(0, 12) = 5

S8(0, 13) = 0

S8(0, 14) = 12

S8(0, 15) = 7

S8(1, 0) = 1

S8(1, 1) = 15

S8(1, 2) = 13

S8(1, 3) = 8

S8(1, 4) = 10

S8(1, 5) = 3

S8(1, 6) = 7

S8(1, 7) = 4

S8(1, 8) = 12

S8(1, 9) = 5

S8(1, 10) = 6

S8(1, 11) = 11

S8(1, 12) = 0

S8(1, 13) = 14

S8(1, 14) = 9

S8(1, 15) = 2

S8(2, 0) = 7

S8(2, 1) = 11

S8(2, 2) = 4

S8(2, 3) = 1

S8(2, 4) = 9

S8(2, 5) = 12

S8(2, 6) = 14

S8(2, 7) = 2

S8(2, 8) = 0

S8(2, 9) = 6

S8(2, 10) = 10

S8(2, 11) = 13

S8(2, 12) = 15

S8(2, 13) = 3

S8(2, 14) = 5

S8(2, 15) = 8

S8(3, 0) = 2

S8(3, 1) = 1

S8(3, 2) = 14

S8(3, 3) = 7

S8(3, 4) = 4

S8(3, 5) = 10

S8(3, 6) = 8

S8(3, 7) = 13

S8(3, 8) = 15

S8(3, 9) = 12

S8(3, 10) = 9

S8(3, 11) = 0

S8(3, 12) = 3

S8(3, 13) = 5

S8(3, 14) = 6

S8(3, 15) = 11

PC_1(0) = 56 ' 57

PC_1(1) = 48 ' 49

PC_1(2) = 40 ' 41

PC_1(3) = 32 ' 33

PC_1(4) = 24 ' 25

PC_1(5) = 16 ' 17

PC_1(6) = 8 ' 9

PC_1(7) = 0 ' 1

PC_1(8) = 57 ' 58

PC_1(9) = 49 ' 50

PC_1(10) = 41 ' 42

PC_1(11) = 33 ' 34

PC_1(12) = 25 ' 26

PC_1(13) = 17 ' 18

PC_1(14) = 9 ' 10

PC_1(15) = 1 ' 2

PC_1(16) = 58 ' 59

PC_1(17) = 50 ' 51

PC_1(18) = 42 ' 43

PC_1(19) = 34 ' 35

PC_1(20) = 26 ' 27

PC_1(21) = 18 ' 19

PC_1(22) = 10 ' 11

PC_1(23) = 2 ' 3

PC_1(24) = 59 ' 60

PC_1(25) = 51 ' 52

PC_1(26) = 43 ' 44

PC_1(27) = 35 ' 36

PC_1(28) = 62 ' 63

PC_1(29) = 54 ' 55

PC_1(30) = 46 ' 47

PC_1(31) = 38 ' 39

PC_1(32) = 30 ' 31

PC_1(33) = 22 ' 23

PC_1(34) = 14 ' 15

PC_1(35) = 6 ' 7

PC_1(36) = 61 ' 62

PC_1(37) = 53 ' 54

PC_1(38) = 45 ' 46

PC_1(39) = 37 ' 38

PC_1(40) = 29 ' 30

PC_1(41) = 21 ' 22

PC_1(42) = 13 ' 14

PC_1(43) = 5 ' 6

PC_1(44) = 60 ' 61

PC_1(45) = 52 ' 53

PC_1(46) = 44 ' 45

PC_1(47) = 36 ' 37

PC_1(48) = 28 ' 29

PC_1(49) = 20 ' 21

PC_1(50) = 12 ' 13

PC_1(51) = 4 ' 5

PC_1(52) = 27 ' 28

PC_1(53) = 19 ' 20

PC_1(54) = 11 ' 12

PC_1(55) = 3 ' 4

PC_2(0) = 13 ' 14

PC_2(1) = 16 ' 17

PC_2(2) = 10 ' 11

PC_2(3) = 23 ' 24

PC_2(4) = 0 ' 1

PC_2(5) = 4 ' 5

PC_2(6) = 2 ' 3

PC_2(7) = 27 ' 28

PC_2(8) = 14 ' 15

PC_2(9) = 5 ' 6

PC_2(10) = 20 ' 21

PC_2(11) = 9 ' 10

PC_2(12) = 22 ' 23

PC_2(13) = 18 ' 19

PC_2(14) = 11 ' 12

PC_2(15) = 3 ' 4

PC_2(16) = 25 ' 26

PC_2(17) = 7 ' 8

PC_2(18) = 15 ' 16

PC_2(19) = 6 ' 7

PC_2(20) = 26 ' 27

PC_2(21) = 19 ' 20

PC_2(22) = 12 ' 13

PC_2(23) = 1 ' 2

PC_2(24) = 40 ' 41

PC_2(25) = 51 ' 52

PC_2(26) = 30 ' 31

PC_2(27) = 36 ' 37

PC_2(28) = 46 ' 47

PC_2(29) = 54 ' 55

PC_2(30) = 29 ' 30

PC_2(31) = 39 ' 40

PC_2(32) = 50 ' 51

PC_2(33) = 44 ' 45

PC_2(34) = 32 ' 33

PC_2(35) = 47 ' 48

PC_2(36) = 43 ' 44

PC_2(37) = 48 ' 49

PC_2(38) = 38 ' 39

PC_2(39) = 55 ' 56

PC_2(40) = 33 ' 34

PC_2(41) = 52 ' 53

PC_2(42) = 45 ' 46

PC_2(43) = 41 ' 42

PC_2(44) = 49 ' 50

PC_2(45) = 35 ' 36

PC_2(46) = 28 ' 29

PC_2(47) = 31 ' 32

Lsi(1) = 1

Lsi(2) = 1

Lsi(3) = 2

Lsi(4) = 2

Lsi(5) = 2

Lsi(6) = 2

Lsi(7) = 2

Lsi(8) = 2

Lsi(9) = 1

Lsi(10) = 2

Lsi(11) = 2

Lsi(12) = 2

Lsi(13) = 2

Lsi(14) = 2

Lsi(15) = 2

Lsi(16) = 1

End Sub