-
Notifications
You must be signed in to change notification settings - Fork 1
/
DNSK.dfm
208 lines (208 loc) · 4.15 KB
/
DNSK.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
object DNSKeys1: TDNSKeys1
Left = 606
Top = 194
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Generation DNS domain keys'
ClientHeight = 470
ClientWidth = 399
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object lblGranularity: TLabel
Left = 18
Top = 19
Width = 99
Height = 13
Caption = 'Granularity (optional):'
end
object lblNotes: TLabel
Left = 18
Top = 48
Width = 77
Height = 13
Caption = 'Notes (optional):'
end
object lblPublicKeySize: TLabel
Left = 18
Top = 88
Width = 101
Height = 13
Caption = 'Public Key Size (bits):'
end
object bvlSeparator: TBevel
Left = 3
Top = 235
Width = 394
Height = 2
end
object lblDNSRecord: TLabel
Left = 18
Top = 250
Width = 64
Height = 13
Caption = 'DNS Record:'
end
object lblPrivateKey: TLabel
Left = 18
Top = 316
Width = 203
Height = 13
Caption = 'Private Key to use to sign e-mail messages:'
end
object TLabel
Left = 134
Top = 115
Width = 18
Height = 13
Caption = '256'
end
object TLabel
Left = 175
Top = 115
Width = 24
Height = 13
Caption = '1024'
end
object TLabel
Left = 234
Top = 115
Width = 24
Height = 13
Caption = '2048'
end
object TLabel
Left = 352
Top = 115
Width = 24
Height = 13
Caption = '4096'
end
object TLabel
Left = 294
Top = 115
Width = 24
Height = 13
Caption = '3072'
end
object edtGranularity: TEdit
Left = 132
Top = 17
Width = 244
Height = 21
TabOrder = 0
end
object edtNotes: TEdit
Left = 132
Top = 46
Width = 244
Height = 21
TabOrder = 1
end
object trkPublicKeySize: TTrackBar
Left = 132
Top = 76
Width = 244
Height = 40
Max = 15
PageSize = 1
Position = 3
TabOrder = 2
TickMarks = tmBoth
end
object btnGenerate: TButton
Left = 18
Top = 169
Width = 358
Height = 23
Caption = 'Generate Private Key and DNS Record'
TabOrder = 4
OnClick = btnGenerateClick
end
object edtDNSRecord: TEdit
Left = 18
Top = 265
Width = 358
Height = 21
ReadOnly = True
TabOrder = 6
end
object cbxTestMode: TCheckBox
Left = 18
Top = 142
Width = 112
Height = 17
Caption = 'Use Test Mode'
Checked = True
State = cbChecked
TabOrder = 3
end
object btnRevoke: TButton
Left = 18
Top = 199
Width = 358
Height = 23
Caption = 'Revoke Public Key and Generate DNS Record'
TabOrder = 5
OnClick = btnRevokeClick
end
object memPrivateKey: TMemo
Left = 18
Top = 331
Width = 358
Height = 90
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 8
WordWrap = False
end
object btnCopyDNSRecord: TButton
Left = 276
Top = 292
Width = 100
Height = 23
Caption = 'Copy to Clipboard'
TabOrder = 7
OnClick = btnCopyDNSRecordClick
end
object btnSavePrivateKey: TButton
Left = 276
Top = 430
Width = 100
Height = 23
Caption = 'Save to File'
TabOrder = 10
OnClick = btnSavePrivateKeyClick
end
object btnCopyPrivateKey: TButton
Left = 168
Top = 430
Width = 100
Height = 23
Caption = 'Copy to Clipboard'
TabOrder = 9
OnClick = btnCopyPrivateKeyClick
end
object dlgSavePrivateKey: TSaveDialog
DefaultExt = 'pem'
Filter = 'Private Key Files (*.pem)|*.pem|All Files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
Title = 'Save Private Key'
Left = 87
Top = 429
end
end