forked from ddlencemc/RSA-via-OpenSSL-libeay32
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Unit1.dfm
175 lines (175 loc) · 3.64 KB
/
Unit1.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
object Form1: TForm1
Left = 196
Top = 192
Width = 628
Height = 468
Caption = 'RSA Sample'
Color = clBtnFace
DefaultMonitor = dmDesktop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 480
Top = 0
Width = 132
Height = 430
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object Button1: TButton
Left = 8
Top = 8
Width = 121
Height = 25
Caption = 'Public Crypting'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 8
Top = 40
Width = 121
Height = 25
Caption = 'Private Decrypting'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 8
Top = 96
Width = 121
Height = 25
Caption = 'Private Crypting'
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 8
Top = 128
Width = 121
Height = 25
Caption = 'Public Decrypting'
TabOrder = 3
OnClick = Button4Click
end
object Button5: TButton
Left = 8
Top = 192
Width = 121
Height = 25
Caption = 'SHA1'
TabOrder = 4
OnClick = Button5Click
end
object Button6: TButton
Left = 8
Top = 232
Width = 121
Height = 25
Caption = 'SHA256'
TabOrder = 5
OnClick = Button6Click
end
object Button7: TButton
Left = 8
Top = 272
Width = 121
Height = 25
Caption = 'SHA512'
TabOrder = 6
OnClick = Button7Click
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 480
Height = 430
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 480
Height = 89
Align = alTop
Caption = 'Data to Crypt'
TabOrder = 0
object Memo1: TMemo
Left = 2
Top = 15
Width = 476
Height = 72
Align = alClient
Lines.Strings = (
'Some text for RSA Crypt, for 1024 bit key only 117 byte')
MaxLength = 128
ScrollBars = ssVertical
TabOrder = 0
end
end
object GroupBox2: TGroupBox
Left = 0
Top = 89
Width = 480
Height = 105
Align = alTop
Caption = 'Crypted Data'
TabOrder = 1
object Memo2: TMemo
Left = 2
Top = 15
Width = 476
Height = 88
Align = alClient
ScrollBars = ssVertical
TabOrder = 0
end
end
object GroupBox3: TGroupBox
Left = 0
Top = 194
Width = 480
Height = 105
Align = alTop
Caption = 'Decrypted Data'
TabOrder = 2
object Memo3: TMemo
Left = 2
Top = 15
Width = 476
Height = 88
Align = alClient
ScrollBars = ssVertical
TabOrder = 0
end
end
object GroupBox4: TGroupBox
Left = 0
Top = 299
Width = 480
Height = 131
Align = alClient
Caption = 'RSA Log'
TabOrder = 3
object Memo4: TMemo
Left = 2
Top = 15
Width = 476
Height = 114
Align = alClient
ScrollBars = ssVertical
TabOrder = 0
end
end
end
end