📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
Caption = "Encryption/Decryption Example"
ClientHeight = 5265
ClientLeft = 60
ClientTop = 345
ClientWidth = 4455
LinkTopic = "Form1"
ScaleHeight = 5265
ScaleWidth = 4455
StartUpPosition = 1 'CenterOwner
Begin VB.ComboBox Combo1
Height = 315
ItemData = "frmMain.frx":0000
Left = 120
List = "frmMain.frx":0002
Sorted = -1 'True
Style = 2 'Dropdown List
TabIndex = 19
Top = 340
Width = 4215
End
Begin VB.TextBox Text1
Height = 320
Index = 3
Left = 120
TabIndex = 15
Text = "This is a test key"
Top = 2880
Width = 4215
End
Begin VB.TextBox Text1
Height = 320
Index = 0
Left = 120
TabIndex = 10
Text = "C:\Saol.txt"
Top = 990
Width = 4215
End
Begin VB.TextBox Text1
Height = 320
Index = 1
Left = 120
TabIndex = 9
Text = "C:\Saol.enc"
Top = 1620
Width = 4215
End
Begin VB.Frame Frame1
Caption = "Information"
Height = 1335
Left = 120
TabIndex = 1
Top = 3360
Width = 4215
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "<unknown>"
Height = 195
Index = 2
Left = 1800
TabIndex = 7
Top = 870
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "<unknown>"
Height = 195
Index = 1
Left = 1800
TabIndex = 6
Top = 585
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "<unknown>"
Height = 195
Index = 0
Left = 1800
TabIndex = 5
Top = 285
Width = 840
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Progress:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 4
Left = 240
TabIndex = 4
Top = 870
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Time spent:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 3
Left = 240
TabIndex = 3
Top = 585
Width = 1005
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Size:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 2
Left = 240
TabIndex = 2
Top = 285
Width = 435
End
End
Begin VB.TextBox Text1
Height = 320
Index = 2
Left = 120
TabIndex = 0
Text = "C:\Saol.dec"
Top = 2250
Width = 4215
End
Begin VB.CommandButton Command4
Caption = "Benchmark"
Height = 375
Left = 2880
TabIndex = 17
Top = 4800
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "Decrypt"
Height = 375
Left = 1560
TabIndex = 8
Top = 4800
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "Encrypt"
Height = 375
Left = 240
TabIndex = 11
Top = 4800
Width = 1335
End
Begin VB.Label lblHomepage
Caption = "Read about the encryption algorithm"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 1560
MousePointer = 14 'Arrow and Question
TabIndex = 20
Top = 120
Width = 2775
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Encryption Method:"
Height = 195
Index = 7
Left = 120
TabIndex = 18
Top = 120
Width = 1380
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Key:"
Height = 195
Index = 5
Left = 135
TabIndex = 16
Top = 2655
Width = 315
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Original File/Text:"
Height = 195
Index = 0
Left = 135
TabIndex = 14
Top = 765
Width = 1245
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Encrypted File/Text:"
Height = 195
Index = 1
Left = 135
TabIndex = 13
Top = 1395
Width = 1440
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Decrypt to File/Decrypted Text:"
Height = 195
Index = 6
Left = 135
TabIndex = 12
Top = 2025
Width = 2235
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private EncryptCryptAPI As clsCryptAPI
Private WithEvents EncryptTEA As clsTEA
Attribute EncryptTEA.VB_VarHelpID = -1
Private WithEvents EncryptGost As clsGost
Attribute EncryptGost.VB_VarHelpID = -1
Private WithEvents EncryptSkipJack As clsSkipjack
Attribute EncryptSkipJack.VB_VarHelpID = -1
Private WithEvents EncryptTwofish As clsTwofish
Attribute EncryptTwofish.VB_VarHelpID = -1
Private WithEvents EncryptBlowfish As clsBlowfish
Attribute EncryptBlowfish.VB_VarHelpID = -1
Private WithEvents EncryptXOR As clsSimpleXOR
Attribute EncryptXOR.VB_VarHelpID = -1
Private WithEvents EncryptRC4 As clsRC4
Attribute EncryptRC4.VB_VarHelpID = -1
Private WithEvents EncryptDES As clsDES
Attribute EncryptDES.VB_VarHelpID = -1
Private EncryptObject As Object
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -