用VB實現DES加解密演算法(一)--定義 (轉)

用VB實現DES加解密演算法(一)--定義 (轉)[@more@]

'DES加演算法實現 vb版 v1.0
'
'作者: agamem
'日期: 年08月27日
'
'
'
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, 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
  Next
 
  For i = 6 To 11
  E(i) = i - 3
  Next
 
  For i = 12 To 17
  E(i) = i - 5
  Next
 
  For i = 18 To 23
  E(i) = i - 7
  Next
 
  For i = 24 To 29
  E(i) = i - 9
  Next
 
  For i = 30 To 35
  E(i) = i - 11
  Next

  For i = 36 To 41
  E(i) = i - 13
  Next
  For i = 42 To 46
  E(i) = i - 15
  Next
  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