📄 fmain.dfm
字号:
object Form1: TForm1
Left = 80
Top = 144
Width = 626
Height = 521
Caption = 'Test crypto algorithms'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 476
Width = 618
Height = 18
Panels = <
item
Width = 50
end>
SimplePanel = False
end
object Pages1: TPageControl
Left = 0
Top = 0
Width = 618
Height = 476
ActivePage = tabSym
Align = alClient
Constraints.MinHeight = 476
Constraints.MinWidth = 618
TabOrder = 1
TabPosition = tpBottom
object tabSym: TTabSheet
Caption = 'Symmetric'
object GroupAlgo: TGroupBox
Left = 4
Top = 32
Width = 361
Height = 37
Caption = 'Algorithm'
TabOrder = 1
object rbDES: TRadioButton
Left = 8
Top = 14
Width = 41
Height = 17
Caption = 'DES'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rbDESClick
end
object rbRC2: TRadioButton
Left = 52
Top = 14
Width = 41
Height = 17
Caption = 'RC2'
TabOrder = 1
OnClick = rbRC2Click
end
object rbRC4: TRadioButton
Left = 96
Top = 14
Width = 41
Height = 17
Caption = 'RC4'
TabOrder = 2
OnClick = rbRC4Click
end
object rbRC5: TRadioButton
Left = 144
Top = 14
Width = 41
Height = 17
Caption = 'RC5'
TabOrder = 3
OnClick = rbRC5Click
end
object rbBF: TRadioButton
Left = 188
Top = 14
Width = 61
Height = 17
Caption = 'Blowfish'
TabOrder = 4
OnClick = rbBFClick
end
object rbCast: TRadioButton
Left = 248
Top = 14
Width = 49
Height = 17
Caption = 'CAST'
TabOrder = 5
OnClick = rbCastClick
end
object rbIdea: TRadioButton
Left = 300
Top = 14
Width = 45
Height = 17
Caption = 'IDEA'
TabOrder = 6
OnClick = rbIdeaClick
end
end
object GroupSymKey: TGroupBox
Left = 4
Top = 76
Width = 601
Height = 201
Caption = 'Key'
TabOrder = 3
object LabelSymKey: TLabel
Left = 8
Top = 60
Width = 18
Height = 13
Caption = 'Key'
end
object Label5: TLabel
Left = 8
Top = 16
Width = 108
Height = 13
Caption = 'Generate key(s) of size'
end
object LabelSymKeyLim: TLabel
Left = 140
Top = 36
Width = 120
Height = 13
Caption = '8..256 bytes, multiple of 8'
end
object EditSymKey: TEdit
Left = 8
Top = 76
Width = 521
Height = 21
TabOrder = 1
OnKeyDown = EditSymKeyKeyDown
end
object btUpdSymKey: TButton
Left = 540
Top = 76
Width = 53
Height = 21
Caption = 'Update'
TabOrder = 6
OnClick = btUpdSymKeyClick
end
object rbSymKeyHex: TRadioButton
Left = 444
Top = 52
Width = 45
Height = 17
Caption = 'Hex'
Checked = True
TabOrder = 2
TabStop = True
OnClick = rbSymKeyHexClick
end
object rbSymKeyStr: TRadioButton
Left = 492
Top = 52
Width = 37
Height = 17
Caption = 'Str'
TabOrder = 3
OnClick = rbSymKeyStrClick
end
object btSaveSymKey: TButton
Left = 540
Top = 168
Width = 53
Height = 21
Caption = 'Save'
TabOrder = 9
OnClick = btSaveSymKeyClick
end
object btGenSymKey: TButton
Left = 540
Top = 107
Width = 53
Height = 21
Caption = 'Generate'
TabOrder = 7
OnClick = btGenSymKeyClick
end
object btLoadSymKey: TButton
Left = 540
Top = 137
Width = 53
Height = 21
Caption = 'Load'
TabOrder = 8
OnClick = btLoadSymKeyClick
end
object EditSymKeyLen: TEdit
Left = 8
Top = 32
Width = 125
Height = 21
TabOrder = 0
end
object PanelIV: TPanel
Left = 168
Top = 136
Width = 233
Height = 53
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 5
object LabelIV: TLabel
Left = 8
Top = 4
Width = 110
Height = 13
Caption = 'IV (Init Vector) - 8 bytes'
end
object EditIV: TEdit
Left = 8
Top = 20
Width = 125
Height = 21
TabOrder = 0
OnKeyDown = EditSymKeyKeyDown
end
object rbIVHex: TRadioButton
Left = 140
Top = 22
Width = 45
Height = 17
Caption = 'Hex'
Checked = True
TabOrder = 1
TabStop = True
OnClick = rbIVHexClick
end
object rbIVStr: TRadioButton
Left = 188
Top = 22
Width = 37
Height = 17
Caption = 'Str'
TabOrder = 2
OnClick = rbIVStrClick
end
end
object PanelSymKeyOpt: TPanel
Left = 8
Top = 136
Width = 145
Height = 53
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 4
object LabelSymKeyOpt: TLabel
Left = 8
Top = 4
Width = 81
Height = 13
Caption = 'LabelSymKeyOpt'
end
object EditSymKeyOpt: TEdit
Left = 8
Top = 20
Width = 125
Height = 21
TabOrder = 0
OnKeyDown = EditSymKeyOptKeyDown
end
end
end
object GroupSymData: TGroupBox
Left = 4
Top = 284
Width = 601
Height = 157
Caption = 'Data'
TabOrder = 4
object Label2: TLabel
Left = 8
Top = 20
Width = 58
Height = 13
Caption = 'Source data'
end
object Label3: TLabel
Left = 8
Top = 64
Width = 72
Height = 13
Caption = 'Encrypted data'
end
object Label4: TLabel
Left = 8
Top = 108
Width = 73
Height = 13
Caption = 'Decrypted data'
end
object EditSym1: TEdit
Left = 8
Top = 36
Width = 521
Height = 21
TabOrder = 0
end
object EditSym2: TEdit
Left = 8
Top = 80
Width = 521
Height = 21
TabOrder = 3
end
object EditSym3: TEdit
Left = 8
Top = 124
Width = 521
Height = 21
TabOrder = 4
end
object btEncryptSym: TButton
Left = 540
Top = 36
Width = 53
Height = 21
Caption = 'Encrypt'
TabOrder = 5
OnClick = btEncryptSymClick
end
object btDecryptSym: TButton
Left = 540
Top = 80
Width = 53
Height = 21
Caption = 'Decrypt'
TabOrder = 6
OnClick = btDecryptSymClick
end
object rbSymDataHex: TRadioButton
Left = 444
Top = 12
Width = 45
Height = 17
Caption = 'Hex'
TabOrder = 1
OnClick = rbSymDataHexClick
end
object rbSymDataStr: TRadioButton
Left = 492
Top = 12
Width = 37
Height = 17
Caption = 'Str'
Checked = True
TabOrder = 2
TabStop = True
OnClick = rbSymDataStrClick
end
end
object GroupCM: TGroupBox
Left = 376
Top = 32
Width = 185
Height = 37
Caption = 'Cipher mode'
TabOrder = 2
object rbECB: TRadioButton
Left = 8
Top = 16
Width = 41
Height = 17
Caption = 'ECB'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rbECBClick
end
object rbCBC: TRadioButton
Left = 52
Top = 16
Width = 41
Height = 17
Caption = 'CBC'
TabOrder = 1
OnClick = rbCBCClick
end
object rbCFB: TRadioButton
Left = 96
Top = 16
Width = 37
Height = 17
Caption = 'CFB'
TabOrder = 2
OnClick = rbCFBClick
end
object rbOFB: TRadioButton
Left = 140
Top = 16
Width = 41
Height = 17
Caption = 'OFB'
TabOrder = 3
OnClick = rbOFBClick
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 610
Height = 29
BorderWidth = 1
ButtonHeight = 21
ButtonWidth = 60
Caption = 'ToolBar1'
EdgeBorders = [ebBottom]
Flat = True
ShowCaptions = True
TabOrder = 0
object tbEncryptSymFile: TToolButton
Left = 0
Top = 0
Caption = 'Encrypt file'
ImageIndex = 1
OnClick = tbEncryptSymFileClick
end
object tbDecryptSymFile: TToolButton
Left = 60
Top = 0
Caption = 'Decrypt file'
ImageIndex = 2
OnClick = tbDecryptSymFileClick
end
end
end
object tabRSA: TTabSheet
Caption = 'RSA'
ImageIndex = 4
object GroupRsaKey: TGroupBox
Left = 4
Top = 76
Width = 601
Height = 201
Caption = 'Key'
TabOrder = 3
object Label13: TLabel
Left = 8
Top = 60
Width = 56
Height = 13
Caption = 'N (modulus)'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -