-
Notifications
You must be signed in to change notification settings - Fork 4
/
AsymmetricEncryptionFrm.dfm
318 lines (318 loc) · 6.18 KB
/
AsymmetricEncryptionFrm.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
object frmAsymmetricEncryption: TfrmAsymmetricEncryption
Left = 0
Top = 0
Caption = 'Asymmetric Encryption'
ClientHeight = 505
ClientWidth = 622
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
OnCreate = FormCreate
DesignSize = (
622
505)
TextHeight = 15
object LabelAlgo: TLabel
Left = 24
Top = 32
Width = 54
Height = 15
Caption = 'Algorithm'
end
object ShapeResult: TShape
Left = 24
Top = 416
Width = 557
Height = 65
Anchors = [akLeft, akTop, akRight]
Shape = stRoundRect
ExplicitWidth = 577
end
object LabelResult: TLabel
Left = 55
Top = 440
Width = 502
Height = 20
Alignment = taCenter
Anchors = [akLeft, akTop, akRight]
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 20
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ExplicitWidth = 522
end
object LabelPublicKey: TLabel
Left = 24
Top = 115
Width = 55
Height = 15
Caption = 'Public Key'
end
object LabelPrivateKey: TLabel
Left = 24
Top = 144
Width = 58
Height = 15
Caption = 'Private Key'
end
object LabelKeySize: TLabel
Left = 429
Top = 32
Width = 71
Height = 15
Anchors = [akTop, akRight]
Caption = 'Key size [bits]'
ExplicitLeft = 437
end
object lblChiffreLen: TLabel
Left = 440
Top = 293
Width = 129
Height = 15
Alignment = taRightJustify
Anchors = [akTop, akRight]
AutoSize = False
ExplicitLeft = 448
end
object Label1: TLabel
Left = 24
Top = 167
Width = 51
Height = 15
Caption = 'Clear Text'
end
object lblResult: TLabel
Left = 24
Top = 247
Width = 32
Height = 15
Caption = 'Result'
end
object lblResultingClearText: TLabel
Left = 24
Top = 347
Width = 103
Height = 15
Caption = 'Resulting Clear Text'
end
object EditClear: TEdit
Left = 24
Top = 187
Width = 551
Height = 23
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
TextHint = 'Clear text'
ExplicitWidth = 549
end
object btnEncrypt: TButton
Left = 24
Top = 216
Width = 75
Height = 25
Caption = 'Encrypt'
Enabled = False
TabOrder = 1
OnClick = btnEncryptClick
end
object EditEncrypted: TEdit
Left = 24
Top = 268
Width = 551
Height = 23
Anchors = [akLeft, akTop, akRight]
TabOrder = 2
OnChange = EditEncryptedChange
ExplicitWidth = 549
end
object btnDecrypt: TButton
Left = 24
Top = 312
Width = 75
Height = 25
Caption = 'Decrypt'
Enabled = False
TabOrder = 3
OnClick = btnDecryptClick
end
object cboAlgo: TComboBox
Left = 112
Top = 29
Width = 281
Height = 23
Style = csDropDownList
Anchors = [akLeft, akTop, akRight]
ItemIndex = 0
TabOrder = 4
Text = 'RsaPkcs1'
OnChange = cboAlgoChange
Items.Strings = (
'RsaPkcs1'
'RsaOaepSha1'
'RsaOaepSha256'
'RsaOaepSha384'
'RsaOaepSha512'
'EcdsaP256Sha256')
ExplicitWidth = 279
end
object EditResult: TEdit
Left = 24
Top = 368
Width = 557
Height = 23
Anchors = [akLeft, akTop, akRight]
ReadOnly = True
TabOrder = 5
TextHint = 'resulting clear text'
ExplicitWidth = 555
end
object btnCreateKeys: TButton
Left = 24
Top = 72
Width = 113
Height = 25
Caption = 'Create Key Pair'
TabOrder = 6
OnClick = btnCreateKeysClick
end
object EditPublicKey: TEdit
Left = 120
Top = 112
Width = 455
Height = 23
Anchors = [akLeft, akTop, akRight]
TabOrder = 7
OnChange = EditKeyChange
ExplicitWidth = 453
end
object EditPrivateKey: TEdit
Left = 120
Top = 139
Width = 455
Height = 23
Anchors = [akLeft, akTop, akRight]
TabOrder = 8
OnChange = EditKeyChange
ExplicitWidth = 453
end
object btnSaveKeys: TButton
Left = 345
Top = 72
Width = 68
Height = 25
Anchors = [akTop, akRight]
Caption = 'Save Keys'
Enabled = False
TabOrder = 9
OnClick = btnSaveKeysClick
ExplicitLeft = 343
end
object btnSaveEncrypt: TButton
Left = 259
Top = 216
Width = 74
Height = 25
Anchors = [akTop, akRight]
Caption = 'Save Chiffre'
Enabled = False
TabOrder = 10
OnClick = btnSaveEncryptClick
end
object btnLoadEncrypt: TButton
Left = 339
Top = 216
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Load Chiffre'
Enabled = False
TabOrder = 11
OnClick = btnLoadEncryptClick
end
object btnLoadKeys: TButton
Left = 419
Top = 72
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Load Keys'
TabOrder = 12
OnClick = btnLoadKeysClick
ExplicitLeft = 417
end
object btnLoadPubKey: TButton
Left = 500
Top = 72
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Load Public'
TabOrder = 13
OnClick = btnLoadPubKeyClick
ExplicitLeft = 498
end
object cboKeySize: TComboBox
Left = 506
Top = 29
Width = 69
Height = 23
Style = csDropDownList
Anchors = [akTop, akRight]
ItemIndex = 0
TabOrder = 14
Text = '2048'
Items.Strings = (
'2048'
'3072'
'4096')
ExplicitLeft = 504
end
object btnSign: TButton
Left = 105
Top = 216
Width = 75
Height = 25
Caption = 'Sign'
Enabled = False
TabOrder = 15
OnClick = btnSignClick
end
object btnVerify: TButton
Left = 105
Top = 312
Width = 75
Height = 25
Caption = 'Verify'
Enabled = False
TabOrder = 16
OnClick = btnVerifyClick
end
object btnSaveSign: TButton
Left = 420
Top = 216
Width = 74
Height = 25
Anchors = [akTop, akRight]
Caption = 'Save Sign'
Enabled = False
TabOrder = 17
OnClick = btnSaveSignClick
end
object btnLoadSign: TButton
Left = 500
Top = 216
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = 'Load Sign'
Enabled = False
TabOrder = 18
OnClick = btnLoadSignClick
end
end