📄 clsencodedecode.cls
字号:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "ClsEncodeDecode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long)
Private Type mySoftProtectAfterEncode ' 加密后
myDateFirstUse As String * 32
myDateLastUse As String * 32
myFirstUse As String * 32
myProtect As String * 32
myTimes As String * 32
End Type
Private Type mySoftProtectBeforeEncode ' 加密前
myDateFirstUse As Date
myDateLastUse As Date
myFirstUse As Boolean
myProtect As Boolean
myTimes As Integer
End Type
'置换表
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) = 49 ' 50
ip(1) = 57 ' 58
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) = 0 ' 1
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) = 1 ' 2
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -