-
Notifications
You must be signed in to change notification settings - Fork 4
/
HybridEncryptionFrm.dfm
398 lines (398 loc) · 7.93 KB
/
HybridEncryptionFrm.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
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
object FrmHybridEncryption: TFrmHybridEncryption
Left = 0
Top = 0
Caption = 'Hybrid Encryption'
ClientHeight = 787
ClientWidth = 1024
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
OnCreate = FormCreate
DesignSize = (
1024
787)
TextHeight = 15
object ShapeResult: TShape
Left = 16
Top = 728
Width = 974
Height = 38
Anchors = [akLeft, akRight, akBottom]
Shape = stRoundRect
ExplicitWidth = 990
end
object LabelAlgo: TLabel
Left = 16
Top = 24
Width = 123
Height = 15
Anchors = [akLeft, akTop, akRight]
Caption = 'Symmetrical Algorithm'
end
object LabelKey: TLabel
Left = 18
Top = 336
Width = 103
Height = 15
Caption = 'Created session key'
end
object LabelResult: TLabel
Left = 39
Top = 739
Width = 911
Height = 20
Alignment = taCenter
Anchors = [akLeft, akRight, akBottom]
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = 20
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ExplicitWidth = 927
end
object LabelSymKeySize: TLabel
Left = 877
Top = 335
Width = 105
Height = 15
Alignment = taRightJustify
Anchors = [akTop, akRight]
AutoSize = False
Caption = 'Key size [bits]'
ExplicitLeft = 893
end
object Label1: TLabel
Left = 472
Top = 24
Width = 130
Height = 15
Caption = 'Asymmetrical Algorithm'
end
object LabelPublicKey: TLabel
Left = 18
Top = 123
Width = 103
Height = 15
Caption = 'Personal Public Key'
end
object LabelPrivateKey: TLabel
Left = 18
Top = 152
Width = 106
Height = 15
Caption = 'Personal Private Key'
end
object Label3: TLabel
Left = 18
Top = 419
Width = 42
Height = 15
Caption = 'Payload'
end
object Label4: TLabel
Left = 18
Top = 364
Width = 245
Height = 15
Caption = 'Encrypted Sessionkey with Personal Public Key'
end
object Label5: TLabel
Left = 18
Top = 577
Width = 115
Height = 15
Anchors = [akLeft, akTop, akRight]
Caption = 'Encrypted session key'
end
object LabelDecryptedSessionKeySize: TLabel
Left = 877
Top = 576
Width = 113
Height = 15
Alignment = taRightJustify
Anchors = [akTop, akRight]
AutoSize = False
Caption = 'Key size [bits]'
ExplicitLeft = 912
end
object Label2: TLabel
Left = 18
Top = 187
Width = 210
Height = 15
Caption = 'Clear text as encryption input argument'
end
object Label6: TLabel
Left = 18
Top = 605
Width = 195
Height = 15
Caption = 'Clear text as decryption output result'
end
object LabelIV: TLabel
Left = 17
Top = 473
Width = 10
Height = 15
Caption = 'IV'
end
object EditSessionKey: TEdit
Left = 152
Top = 331
Width = 719
Height = 23
Anchors = [akLeft, akTop, akRight]
ReadOnly = True
TabOrder = 0
end
object btnEncrypt: TButton
Left = 18
Top = 305
Width = 75
Height = 25
Caption = 'Encrypt'
Enabled = False
TabOrder = 1
OnClick = btnEncryptClick
end
object edtEncryptedPayload: TEdit
Left = 18
Top = 440
Width = 972
Height = 23
Anchors = [akLeft, akTop, akRight]
ReadOnly = True
TabOrder = 2
Text = 'edtEncryptedPayload'
end
object btnDecrypt: TButton
Left = 18
Top = 541
Width = 75
Height = 25
Caption = 'Decrypt'
Enabled = False
TabOrder = 3
OnClick = btnDecryptClick
end
object MemoClear: TMemo
Left = 16
Top = 208
Width = 974
Height = 72
Anchors = [akLeft, akTop, akRight]
Lines.Strings = (
'MemoClear')
TabOrder = 4
end
object MemoResult: TMemo
Left = 18
Top = 626
Width = 972
Height = 72
Anchors = [akLeft, akTop, akRight]
Lines.Strings = (
'MemoResult')
ReadOnly = True
TabOrder = 5
end
object btnCreatePersonalKeys: TButton
Left = 18
Top = 80
Width = 122
Height = 25
Caption = 'Create Personal Key'
TabOrder = 6
OnClick = btnCreatePersonalKeysClick
end
object btnSavePersonalKeys: TButton
Left = 152
Top = 80
Width = 126
Height = 25
Caption = 'Save Personal Keys'
Enabled = False
TabOrder = 7
OnClick = btnSavePersonalKeysClick
end
object btnLoadKeys: TButton
Left = 292
Top = 80
Width = 141
Height = 25
Caption = 'Load Personal Keys'
TabOrder = 8
OnClick = btnLoadKeysClick
end
object btnLoadPubKey: TButton
Left = 445
Top = 80
Width = 157
Height = 25
Caption = 'Load Personal Public Key'
TabOrder = 9
OnClick = btnLoadPubKeyClick
end
object edtPublicKey: TEdit
Left = 152
Top = 120
Width = 838
Height = 23
Anchors = [akLeft, akTop, akRight]
TabOrder = 10
end
object edtPrivateKey: TEdit
Left = 152
Top = 147
Width = 838
Height = 23
Anchors = [akLeft, akTop, akRight]
TabOrder = 11
end
object edtEncryptedSessionKey: TEdit
Left = 18
Top = 390
Width = 972
Height = 23
Anchors = [akLeft, akTop, akRight]
ReadOnly = True
TabOrder = 12
Text = 'edtEncryptedSessionKey'
end
object EditDecryptedSessionKey: TEdit
Left = 152
Top = 573
Width = 719
Height = 23
Anchors = [akLeft, akTop, akRight]
ReadOnly = True
TabOrder = 13
end
object edtUsedPublicKey: TEdit
Left = 280
Top = 360
Width = 710
Height = 23
Anchors = [akLeft, akTop, akRight]
TabOrder = 14
Text = 'edtUsedPublicKey'
StyleElements = [seFont, seBorder]
end
object btnSaveEncryptedMsg: TButton
Left = 18
Top = 496
Width = 191
Height = 25
Caption = 'Save Encrypted Message'
TabOrder = 15
OnClick = btnSaveEncryptedMsgClick
end
object btnLoadEncryptedMessage: TButton
Left = 226
Top = 496
Width = 191
Height = 25
Caption = 'Load Encrypted Message'
TabOrder = 16
OnClick = btnLoadEncryptedMessageClick
end
object cboSymAlgo: TComboBox
Left = 152
Top = 21
Width = 209
Height = 23
Style = csDropDownList
ItemIndex = 1
TabOrder = 17
Text = 'AesCbcPkcs7'
OnChange = cboAlgosChange
Items.Strings = (
'AesCbc'
'AesCbcPkcs7'
'AesEcb'
'AesEcbPkcs7')
end
object cboSymKeySize: TComboBox
Left = 373
Top = 21
Width = 69
Height = 23
Style = csDropDownList
ItemIndex = 2
TabOrder = 18
Text = '256'
OnChange = CheckKeySizes
Items.Strings = (
'128'
'192'
'256')
end
object cboAsymAlgo: TComboBox
Left = 608
Top = 21
Width = 273
Height = 23
Style = csDropDownList
ItemIndex = 2
TabOrder = 19
Text = 'RsaOaepSha256'
OnChange = cboAlgosChange
Items.Strings = (
'RsaPkcs1'
'RsaOaepSha1'
'RsaOaepSha256'
'RsaOaepSha384'
'RsaOaepSha512')
end
object cboAsymKeySize: TComboBox
Left = 895
Top = 21
Width = 69
Height = 23
Style = csDropDownList
ItemIndex = 1
TabOrder = 20
Text = '3072'
OnChange = CheckKeySizes
Items.Strings = (
'2048'
'3072'
'4096')
end
object edtIV: TEdit
Left = 39
Top = 469
Width = 297
Height = 23
TabOrder = 21
end
object SaveDialog: TSaveDialog
DefaultExt = 'crypt'
Filter = 'Encrypted message (*.crypt)|*.crypt'
Left = 448
Top = 472
end
object OpenDialog: TOpenDialog
DefaultExt = 'crypt'
Filter = 'Encrypted message (*.crypt)|*.crypt'
Left = 520
Top = 472
end
object OpenDialogPrivateKey: TOpenDialog
DefaultExt = 'PrivateKey'
Filter = 'Private Key (*.PrivateKey)|*.PrivateKey'
Left = 648
Top = 64
end
object OpenDialogPublicKey: TOpenDialog
DefaultExt = 'PublicKey'
Filter = 'Public Key (*.PublicKey)|*.PublicKey'
Left = 792
Top = 64
end
end