黑色海岸线论坛 - Powered by Discuz! Board

标题: DES加密VB实现1 [打印本页]

作者: nepoleonic 时间: 2004-11-5 11:50 标题: DES加密VB实现1

一)--定义

''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
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

欢迎光临黑色海岸线论坛 (http://bbs.thysea.com/)