/[winpt]/trunk/Src/wptKeyserverDlg.cpp
ViewVC logotype

Contents of /trunk/Src/wptKeyserverDlg.cpp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 118 - (show annotations)
Thu Dec 8 13:21:52 2005 UTC (19 years, 2 months ago) by twoaday
File size: 16511 byte(s)
2005-12-08  Timo Schulz  <ts@g10code.com>
 
        * wptKeyserverDlg.cpp (show_imported_keys): Enhanced.
        (hkp_recv_key2): Show user-id of the imported key instead
        of just the pattern.
         

1 /* wptKeyserverDlg.cpp - Keyserver dialog
2 * Copyright (C) 2000-2005 Timo Schulz
3 * Copyright (C) 2005 g10 Code GmbH
4 *
5 * This file is part of WinPT.
6 *
7 * WinPT is free software; you can redistribute it and/or modify
8 * it under the terms of the GNU General Public License as published by
9 * the Free Software Foundation; either version 2 of the License, or
10 * (at your option) any later version.
11 *
12 * WinPT is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU General Public License for more details.
16 *
17 * You should have received a copy of the GNU General Public License
18 * along with WinPT; if not, write to the Free Software Foundation,
19 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
20 */
21 #ifdef HAVE_CONFIG_H
22 #include <config.h>
23 #endif
24
25 #include <windows.h>
26 #include <commctrl.h>
27 #include <malloc.h>
28
29 #include "resource.h"
30 #include "wptKeyserver.h"
31 #include "wptErrors.h"
32 #include "wptTypes.h"
33 #include "wptCommonCtl.h"
34 #include "wptNLS.h"
35 #include "wptW32API.h"
36 #include "wptVersion.h"
37 #include "wptGPG.h"
38 #include "wptKeyManager.h"
39 #include "wptContext.h" /* for passphrase_s */
40 #include "wptDlgs.h"
41
42
43 #define MAX_KEYSIZE 70000
44
45 char* get_reg_entry_keyserver (const char *);
46 int set_reg_entry_keyserver (const char *, const char *);
47
48
49 /* Print out keyserver error and a possible Winsock error. */
50 static void
51 hkp_err_box (HWND dlg, const char *host, WORD port, int rc)
52 {
53 const char *err = kserver_strerror ();
54
55 log_box (_("Keyserver"), MB_ERR, "%s:%d: %s",
56 host, port, winpt_strerror (rc));
57 if (err)
58 msg_box (dlg, err, wsock_strerror (), MB_ERR);
59 }
60
61
62 /* Send the extracted key with keyid @pattern to the
63 keyserver @kserver (port @port).
64 Return value: 0 on success. */
65 int
66 hkp_send_key (HWND dlg, const char *kserver, WORD port, const char *pattern)
67 {
68 gpgme_ctx_t ctx;
69 gpgme_data_t keydata;
70 gpgme_error_t ec;
71 char *rawkey = NULL;
72 char msg[384];
73 size_t n;
74
75 ec = gpgme_new (&ctx);
76 if (ec)
77 BUG (NULL);
78 gpgme_set_armor (ctx, 1);
79 ec = gpgme_data_new (&keydata);
80 if (ec)
81 BUG (NULL);
82 ec = gpgme_op_export (ctx, pattern, 0, keydata);
83 if (ec) {
84 msg_box (dlg, gpgme_strerror (ec), _("Export"), MB_ERR);
85 goto leave;
86 }
87 rawkey = gpgme_data_release_and_get_mem (keydata, &n);
88 ec = kserver_sendkey (kserver, port, rawkey, n);
89 if (ec) {
90 hkp_err_box (dlg, kserver, port, ec);
91 goto leave;
92 }
93
94 _snprintf (msg, sizeof (msg) -1, _("Key '%s' successfully sent"), pattern);
95 status_box (dlg, msg, _("GnuPG status"));
96
97 leave:
98 gpgme_release (ctx);
99 if (rawkey)
100 gpgme_free (rawkey);
101 return ec? -1 : 0;
102 }
103
104
105
106 /* Show all received keys from the keyserver. */
107 static void
108 show_imported_keys (gpgme_import_result_t res)
109 {
110 gpgme_import_status_t t;
111 gpgme_key_t key;
112 gpgme_data_t msg;
113 gpgme_ctx_t ctx;
114 gpgme_error_t err;
115 const char *s;
116 char *p;
117 size_t n=0;
118
119 if (!res)
120 return;
121
122 err = gpgme_data_new (&msg);
123 if (err)
124 BUG (NULL);
125 err = gpgme_new (&ctx);
126 if (err)
127 BUG (NULL);
128 if (res->considered > 1) {
129 s = _("WARNING: multiple keys matched request.\n\n");
130 gpgme_data_write (msg, s, strlen (s));
131 }
132
133 if (res->unchanged == res->considered)
134 s = _("Key(s) successfully received but nothing was changed.");
135 else
136 s = _("Key(s) sucessfully received and imported.");
137 gpgme_data_write (msg, s, strlen (s));
138 gpgme_data_write (msg, "\n\n", 2);
139
140 for (t=res->imports; t; t = t->next) {
141 if (!gpgme_get_key (ctx, t->fpr, &key, 0)) {
142 s = key->uids->uid;
143 gpgme_data_write (msg, s, strlen (s));
144 gpgme_data_write (msg, "\n", 1);
145 gpgme_key_release (key);
146 }
147 }
148 gpgme_data_write (msg, "\0", 1);
149 p = gpgme_data_release_and_get_mem (msg, &n);
150 if (p != NULL) {
151 msg_box (NULL, p, _("Imported Keys"), MB_INFO);
152 gpgme_free (p);
153 }
154 gpgme_release (ctx);
155 }
156
157
158 /* Receive a key from the keyserver @kserver (port @port)
159 with the pattern @pattern.
160 Return value: 0 on success. */
161 int
162 hkp_recv_key2 (HWND dlg, const char *kserver, WORD port,
163 const char *pattern, int proto, int flags,
164 char **r_fpr)
165 {
166 gpgme_ctx_t ctx;
167 gpgme_data_t keydata;
168 gpgme_error_t ec;
169 gpgme_import_result_t import_res = NULL;
170 char *rawkey = NULL;
171 int rc;
172
173 /* XXX: implement dynamic buffers. */
174 rawkey = new char[MAX_KEYSIZE];
175 if (!rawkey)
176 BUG (0);
177 memset (rawkey, 0, MAX_KEYSIZE);
178 if (proto == KSPROTO_LDAP) {
179 rc = ldap_recvkey (kserver, pattern, rawkey, MAX_KEYSIZE-1);
180 if (rc) {
181 msg_box (dlg, _("LDAP key import failed.\n"
182 "Please make sure you have an online connection"
183 " and gpgkeys_ldap.exe is installed"),
184 _("Keyserver"), MB_ERR);
185 free_if_alloc (rawkey);
186 return rc;
187 }
188 }
189 else if (proto == KSPROTO_FINGER) {
190 rc = finger_recvkey (kserver, pattern, rawkey, MAX_KEYSIZE-1);
191 if (rc) {
192 log_box (_("Keyserver"), MB_ERR,
193 _("Finger key import failed: %s\n"), winpt_strerror (rc));
194 free_if_alloc (rawkey);
195 return rc;
196 }
197 }
198 else if ((rc = kserver_recvkey (kserver, port,
199 kserver_check_keyid (pattern),
200 rawkey, MAX_KEYSIZE-1))) {
201 hkp_err_box (dlg, kserver, port, rc);
202 free_if_alloc (rawkey);
203 return rc;
204 }
205 else {
206 if (!strstr (rawkey, "BEGIN PGP PUBLIC KEY BLOCK")) {
207 msg_box (dlg, _("This is not a valid OpenPGP key."),
208 _("Keyserver"), MB_ERR);
209 goto leave;
210 }
211 ec = gpgme_new (&ctx);
212 if (ec)
213 BUG (NULL);
214 gpgme_data_new_from_mem (&keydata, rawkey, strlen (rawkey), 1);
215 rc = gpgme_op_import (ctx, keydata);
216 if (rc) {
217 msg_box (dlg, gpgme_strerror ((gpgme_error_t)rc), _("Import"), MB_ERR);
218 goto leave;
219 }
220 import_res = gpgme_op_import_result (ctx);
221 if (import_res && r_fpr)
222 *r_fpr = m_strdup (import_res->imports->fpr);
223 }
224
225 /* if we use the refresh mode, a lot of keys will be fetched and thus only
226 a summarize at the end is presented and not for each key. */
227 if (!(flags & KM_KS_REFRESH)) {
228 show_imported_keys (import_res);
229 if (import_res && import_res->unchanged == import_res->considered) {
230 rc = WPTERR_GENERAL; /* no keys updated. */
231 goto leave;
232 }
233 }
234
235 leave:
236 free_if_alloc (rawkey);
237 gpgme_release (ctx);
238 gpgme_data_release (keydata);
239
240 return rc;
241 }
242
243
244 /* Alias for hkp_recv_key2 but without the ability to return
245 the fingerprint of the key. */
246 int
247 hkp_recv_key (HWND dlg, const char *kserver, WORD port,
248 const char *pattern, int proto, int flags)
249 {
250 return hkp_recv_key2 (dlg, kserver, port, pattern, proto, flags, NULL);
251 }
252
253
254 #define my_iskeychar(a) (((a) >='0' && (a) <= '9' ) || ((a) >= 'A' && (a) <= 'F'))
255
256 static int
257 check_pattern (const char *pattern)
258 {
259 int rc = 1;
260
261 /* Whitespace are not allowed! */
262 if (strchr( pattern, ' ')) {
263 rc = WPTERR_GENERAL;
264 goto leave;
265 }
266
267 if (((strstr (pattern, "0x")) && (strlen (pattern) == 10)) ||
268 (strstr(pattern, "0x")) && (strlen (pattern) == 18)) {
269 rc = 0; /* Either long or short keyid */
270 goto leave;
271 }
272
273 if( (( my_iskeychar( pattern[0] )) && ( strlen( pattern ) == 8 ) )
274 || (my_iskeychar(pattern[0])) && ( strlen( pattern ) == 16) ) {
275 rc = 0;
276 goto leave;
277 }
278
279 if( ( strchr( pattern, '@' ) ) && ( strlen( pattern ) >= 3 ) ) {
280 rc = 0;
281 goto leave;
282 }
283
284 leave:
285 return rc;
286 } /* check_pattern */
287
288
289 static void
290 set_proxy (HWND dlg)
291 {
292 char proxy[256];
293 int port = 0;
294
295 strcpy (proxy, "HTTP proxy: ");
296 if (kserver_get_proxy (&port)) {
297 char t[128];
298 const char *http = kserver_get_proxy (&port);
299 _snprintf (t, sizeof (t) - 1, "\"%s:%d\"", http, port);
300 strcat (proxy, t);
301 }
302 else
303 strcat (proxy, "none");
304 SetDlgItemText (dlg, IDC_KEYSERVER_PROXY, proxy);
305 } /* set_proxy */
306
307
308 static int inline
309 kserver_get_pos (listview_ctrl_t lv)
310 {
311 if (listview_count_items (lv, 0) == 1)
312 return 0;
313 return listview_get_curr_pos (lv);
314 }
315
316
317 static u16 inline
318 kserver_get_port (listview_ctrl_t lv)
319 {
320 char buf[16];
321
322 listview_get_item_text (lv, kserver_get_pos (lv), 3, buf, 15);
323 return (u16)strtoul (buf, NULL, 10);
324 }
325
326 static void
327 load_default_ks (listview_ctrl_t lv)
328 {
329 char * p, buf[192];
330 int i;
331
332 p = get_reg_entry_keyserver ("Default");
333 if (!p)
334 return;
335 for( i = 0; i < listview_count_items( lv, 0 ); i++ ) {
336 listview_get_item_text( lv, i, 0, buf, sizeof (buf)-1 );
337 if( !strncmp( p, buf, strlen( p ) ) ) {
338 listview_add_sub_item( lv, i, 2, "x" );
339 break;
340 }
341 }
342 free_if_alloc (p);
343 } /* load_default_ks */
344
345
346 static int
347 save_default_ks (listview_ctrl_t lv)
348 {
349 char buf[192], port[32];
350 int idx, i;
351
352 idx = listview_get_curr_pos( lv );
353 if( idx == -1 ) {
354 msg_box( NULL, _("Please select one of the servers."), _("Keyserver"), MB_ERR );
355 return -1;
356 }
357 listview_get_item_text( lv, idx, 1, buf, sizeof (buf)-1 );
358 if( *buf != 'H' ) {
359 msg_box( NULL, _("Only HTTP keyserver can be used."), _("Keyserver"), MB_ERR );
360 return -1;
361 }
362 for (i = 0; i < listview_count_items( lv, 0 ); i++)
363 listview_add_sub_item (lv, i, 2, "");
364 listview_add_sub_item (lv, idx, 2, "x");
365 listview_get_item_text (lv, idx, 0, buf, sizeof (buf)-1);
366 set_reg_entry_keyserver ("Default", buf);
367 i = kserver_get_port (lv);
368 sprintf (port, "%d", i);
369 set_reg_entry_keyserver ("Default_Port", port);
370 keyserver_set_default (buf, (u16)i);
371 return 0;
372 } /* save_default_ks */
373
374
375 int
376 keyserver_list_build (listview_ctrl_t *r_lv, HWND hwnd)
377 {
378 struct listview_column_s keyserver[] = {
379 {0, 160, (char *)_("DNS Name")},
380 {1, 52, (char *)_("Protocol")},
381 {2, 46, (char *)_("Default")},
382 {3, 46, (char *)_("Port")},
383 {0, 0, NULL}
384 };
385 listview_ctrl_t lv;
386 char buf[32];
387 int j;
388
389 listview_new (&lv);
390 lv->ctrl = hwnd;
391 for (j=0; keyserver[j].fieldname; j++)
392 listview_add_column (lv, &keyserver[j]);
393 for (j = 0; j<MAX_KEYSERVERS; j++) {
394 if (!server[j].used)
395 continue;
396 listview_add_item (lv, " ");
397 listview_add_sub_item (lv, 0, 0, server[j].name);
398 switch (server[j].proto) {
399 case KSPROTO_HTTP:
400 listview_add_sub_item( lv, 0, 1, "H" ); break;
401 case KSPROTO_LDAP:
402 listview_add_sub_item( lv, 0, 1, "L" ); break;
403 case KSPROTO_FINGER:
404 listview_add_sub_item( lv, 0, 1, "F" ); break;
405 }
406 sprintf (buf, "%d", server[j].port);
407 listview_add_sub_item (lv, 0, 3, buf);
408 }
409 load_default_ks (lv);
410 if (listview_count_items (lv, 0) == 0) {
411 listview_add_item (lv, "");
412 listview_add_sub_item (lv, 0, 0, DEF_HKP_KEYSERVER);
413 listview_add_sub_item (lv, 0, 1, "H");
414 }
415 listview_set_ext_style (lv);
416 *r_lv = lv;
417 return 0;
418 }
419
420
421 /* Dialog box procedure to access keyservers. */
422 BOOL CALLBACK
423 keyserver_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)
424 {
425 static listview_ctrl_t lv = NULL;
426 static int lv_idx = 0;
427 static struct genkey_s *key;
428 keyserver_ctx ksc;
429 char kserver[128], pattern[128];
430 char proto[16];
431 int rc, proto_nr = 0;
432
433 switch (msg) {
434 case WM_INITDIALOG:
435 if (lparam != 0)
436 key = (struct genkey_s*)lparam;
437 SetWindowText (dlg, _("Keyserver Access"));
438 SetDlgItemText (dlg, IDC_KEYSERVER_RECV, _("&Receive"));
439 SetDlgItemText (dlg, IDC_KEYSERVER_SEND,
440 _("Send key (default is receiving)"));
441 SetDlgItemText (dlg, IDC_KEYSERVER_INFO,
442 _("Please enter the key ID or email address you search for"));
443 SetDlgItemText (dlg, IDC_KEYSERVER_INDEX, _("&Search"));
444 SetDlgItemText (dlg, IDC_KEYSERVER_PROXSETT, _("C&hange"));
445 SetDlgItemText (dlg, IDC_KEYSERVER_DEFAULT, _("Set &default"));
446 SetDlgItemText (dlg, IDCANCEL, _("&Close"));
447
448 set_proxy (dlg);
449 keyserver_list_build (&lv, GetDlgItem (dlg, IDC_KEYSERVER_LIST));
450 center_window (dlg, NULL);
451 SetForegroundWindow (dlg);
452 return TRUE;
453
454 case WM_NOTIFY:
455 NMHDR *notify;
456 notify = (NMHDR *)lparam;
457 if (notify && notify->code == NM_CLICK
458 && notify->idFrom == IDC_KEYSERVER_LIST)
459 lv_idx = listview_get_curr_pos (lv);
460 return TRUE;
461
462 case WM_DESTROY:
463 if (lv) {
464 listview_release (lv);
465 lv = NULL;
466 }
467 lv_idx = 0;
468 return FALSE;
469
470 case WM_SYSCOMMAND:
471 if (LOWORD (wparam) == SC_CLOSE)
472 EndDialog (dlg, TRUE);
473 return FALSE;
474
475 case WM_COMMAND:
476 switch (LOWORD (wparam)) {
477 case IDC_KEYSERVER_PROXSETT:
478 dialog_box_param (glob_hinst, (LPCTSTR)IDD_WINPT_KEYSERVER_PROXY,
479 dlg, keyserver_proxy_dlg_proc, NULL,
480 _("Proxy Settings"), IDS_WINPT_KEYSERVER_PROXY);
481 set_proxy (dlg);
482 return TRUE;
483
484 case IDC_KEYSERVER_INDEX:
485 if (!lv_idx) {
486 lv_idx = kserver_get_pos (lv);
487 if (lv_idx == -1) {
488 msg_box (dlg, _("Please select one of the keyservers."),
489 _("Keyserver"), MB_INFO);
490 return FALSE;
491 }
492 }
493 listview_get_item_text (lv, lv_idx, 1, proto, sizeof (proto)-1);
494 if (*proto == 'L') {
495 msg_box (dlg, _("This is not implemented yet!"),
496 _("Keyserver"), MB_ERR);
497 return FALSE;
498 }
499 listview_get_item_text (lv, lv_idx, 0, kserver, sizeof (kserver)-1);
500 if (!GetDlgItemText (dlg, IDC_KEYSERVER_SEARCH, pattern, sizeof (pattern)-1)) {
501 msg_box (dlg, _("Please enter the search pattern."),
502 _("Keyserver"), MB_INFO);
503 return FALSE;
504 }
505 ksc.name = kserver;
506 ksc.pattern = pattern;
507 ksc.port = kserver_get_port (lv);
508 DialogBoxParam (glob_hinst, (LPCSTR)IDD_WINPT_HKPSEARCH, dlg,
509 hkpsearch_dlg_proc, (LPARAM) &ksc);
510 return TRUE;
511
512 case IDC_KEYSERVER_RECV:
513 memset (&kserver, 0, sizeof (kserver));
514 if (!lv_idx) {
515 lv_idx = kserver_get_pos (lv);
516 if (lv_idx == -1) {
517 msg_box (dlg, _("Please select one of the keyservers."),
518 _("Keyserver"), MB_INFO);
519 return FALSE;
520 }
521 }
522 listview_get_item_text( lv, lv_idx, 1, proto, sizeof (proto)-1 );
523 proto_nr = KSPROTO_HTTP;
524 if (*proto == 'L')
525 proto_nr = KSPROTO_LDAP;
526 else if (*proto == 'F')
527 proto_nr = KSPROTO_FINGER;
528 listview_get_item_text (lv, lv_idx, 0, kserver, sizeof (kserver)-1);
529 if( !GetDlgItemText( dlg, IDC_KEYSERVER_SEARCH, pattern, sizeof (pattern)-1)) {
530 msg_box (dlg, _("Please enter the search pattern."),
531 _("Keyserver"), MB_INFO);
532 return FALSE;
533 }
534 if (proto_nr == KSPROTO_LDAP && strchr (pattern, '@')) {
535 msg_box (dlg, _("Only keyids are allowed."), _("LDAP Keyserver"), MB_INFO);
536 return FALSE;
537 }
538 else if (proto_nr == KSPROTO_FINGER) {
539 if (strchr (pattern, '@') || strchr (pattern, ' ')) {
540 msg_box (dlg, _("Only enter the name of the user."),
541 _("FINGER Keyserver"), MB_INFO);
542 return FALSE;
543 }
544 }
545 else if (check_pattern (pattern)) {
546 msg_box (dlg, _("Only email addresses or keyids are allowed."),
547 _("HKP Keyserver"), MB_INFO);
548 return FALSE;
549 }
550 rc = hkp_recv_key2 (dlg, kserver, kserver_get_port (lv),
551 pattern, proto_nr, 0, key? &key->fpr : NULL);
552 if (!rc && key->fpr != NULL) {
553 keycache_update (0, key->fpr);
554 get_pubkey (key->fpr, &key->newkey);
555 /* we do not need the fingerprint any longer. */
556 free_if_alloc (key->fpr);
557 }
558 return TRUE;
559
560 case IDC_KEYSERVER_DEFAULT:
561 save_default_ks (lv);
562 break;
563
564 case IDCANCEL:
565 EndDialog (dlg, FALSE);
566 return FALSE;
567 }
568 break;
569 }
570
571 return FALSE;
572 }

Properties

Name Value
svn:eol-style native

[email protected]
ViewVC Help
Powered by ViewVC 1.1.26