trunk/Src/wptKeyserverDlg.cpp

/* wptKeyserverDlg.cpp - Keyserver dialog
 *      Copyright (C) 2000-2005 Timo Schulz
 *      Copyright (C) 2005 g10 Code GmbH
 *
 * This file is part of WinPT.
 *
 * WinPT is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 * 
 * WinPT is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with WinPT; if not, write to the Free Software Foundation, 
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
 */
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <windows.h>
#include <commctrl.h>
#include <malloc.h>

#include "resource.h"
#include "wptKeyserver.h"
#include "wptErrors.h"
#include "wptTypes.h"
#include "wptCommonCtl.h"
#include "wptNLS.h"
#include "wptW32API.h"
#include "wptVersion.h"
#include "wptGPG.h"
#include "wptKeyManager.h"
#include "wptContext.h" /* for passphrase_s */
#include "wptDlgs.h"


#define MAX_KEYSIZE 70000

char* get_reg_entry_keyserver (const char *);
int set_reg_entry_keyserver (const char *, const char *);


/* Print out keyserver error and a possible Winsock error. */
static void
hkp_err_box (HWND dlg, const char *host, WORD port, int rc)
{
    const char *err = kserver_strerror ();

    log_box (_("Keyserver"), MB_ERR, "%s:%d: %s", 
             host, port, winpt_strerror (rc));
    if (err)
        msg_box (dlg, err, wsock_strerror (), MB_ERR);
}


/* Send the extracted key with keyid @pattern to the 
   keyserver @kserver (port @port).
   Return value: 0 on success. */
int
hkp_send_key (HWND dlg, const char *kserver, WORD port, const char *pattern)
{
    gpgme_ctx_t ctx;
    gpgme_data_t keydata;
    gpgme_error_t ec;
    char *rawkey = NULL;
    char msg[384];
    size_t n;
    
    ec = gpgme_new (&ctx);
    if (ec)
        BUG (NULL);
    gpgme_set_armor (ctx, 1);
    ec = gpgme_data_new (&keydata);
    if (ec)
        BUG (NULL);
    ec = gpgme_op_export (ctx, pattern, 0, keydata);
    if (ec) {
        msg_box (dlg, gpgme_strerror (ec), _("Export"), MB_ERR);
        goto leave;
    }
    rawkey = gpgme_data_release_and_get_mem (keydata, &n);
    ec = kserver_sendkey (kserver, port, rawkey, n);
    if (ec) {
        hkp_err_box (dlg, kserver, port, ec);
        goto leave;
    }
    
    _snprintf (msg, sizeof (msg) -1, _("Key '%s' successfully sent"), pattern);
    status_box (dlg, msg, _("GnuPG status"));
    
leave:
    gpgme_release (ctx);
    if (rawkey)
        gpgme_free (rawkey);
    return ec? -1 : 0;
}


/* Show all received keys from the keyserver. */
static void
show_imported_keys (gpgme_import_result_t res)
{
    gpgme_import_status_t t;
    gpgme_key_t key;
    gpgme_data_t msg;
    gpgme_ctx_t ctx;
    gpgme_error_t err;
    const char *s;
    char *p;
    size_t n=0;

    if (!res)
        return;

    err = gpgme_data_new (&msg);
    if (err)
        BUG (NULL);
    err = gpgme_new (&ctx);
    if (err)
        BUG (NULL);
    if (res->considered > 1) {
        s = _("WARNING: multiple keys matched request.\n\n");
        gpgme_data_write (msg, s, strlen (s));
    }

    if (res->unchanged == res->considered)
        s = _("Key(s) successfully received but nothing was changed.");
    else
        s = _("Key(s) sucessfully received and imported.");
    gpgme_data_write (msg, s, strlen (s));
    gpgme_data_write (msg, "\n\n", 2);

    for (t=res->imports; t; t = t->next) {
        if (!gpgme_get_key (ctx, t->fpr, &key, 0)) {
            s = key->uids->uid;
            gpgme_data_write (msg, s, strlen (s));
            gpgme_data_write (msg, "\n", 1);
            gpgme_key_release (key);
        }
    }
    gpgme_data_write (msg, "\0", 1);
    p = gpgme_data_release_and_get_mem (msg, &n);
    if (p != NULL) {
        msg_box (NULL, p, _("Imported Keys"), MB_INFO);
        gpgme_free (p);
    }
    gpgme_release (ctx);
}


/* Receive a key from the keyserver @kserver (port @port)
   with the pattern @pattern.
   Return value: 0 on success. */
int
hkp_recv_key2 (HWND dlg, const char *kserver, WORD port,
               const char *pattern, int proto, int flags,
               char **r_fpr)
{
    gpgme_ctx_t ctx;
    gpgme_data_t keydata;
    gpgme_error_t ec;
    gpgme_import_result_t import_res = NULL;    
    char *rawkey = NULL;
    int rc;
    
    /* XXX: implement dynamic buffers. */
    rawkey = new char[MAX_KEYSIZE];
    if (!rawkey)
        BUG (0);
    memset (rawkey, 0, MAX_KEYSIZE);
    if (proto == KSPROTO_LDAP) {
        rc = ldap_recvkey (kserver, pattern, rawkey, MAX_KEYSIZE-1);
        if (rc) {
            msg_box (dlg, _("LDAP key import failed.\n"
                            "Please make sure you have an online connection"
                            " and gpgkeys_ldap.exe is installed"),
                            _("Keyserver"), MB_ERR);
            free_if_alloc (rawkey);
            return rc;
        }
    }
    else if (proto == KSPROTO_FINGER) {
        rc = finger_recvkey (kserver, pattern, rawkey, MAX_KEYSIZE-1);
        if (rc) {
            log_box (_("Keyserver"), MB_ERR, 
                     _("Finger key import failed: %s\n"), winpt_strerror (rc));
            free_if_alloc (rawkey);
            return rc;
        }
    }
    else if ((rc = kserver_recvkey (kserver, port, 
                                    kserver_check_keyid (pattern),
                                    rawkey, MAX_KEYSIZE-1))) {
        hkp_err_box (dlg, kserver, port, rc);
        free_if_alloc (rawkey);
        return rc;
    }
    else {
        if (!strstr (rawkey, "BEGIN PGP PUBLIC KEY BLOCK")) {
            msg_box (dlg, _("This is not a valid OpenPGP key."), 
                     _("Keyserver"), MB_ERR);
            goto leave;
        }
        ec = gpgme_new (&ctx);
        if (ec)
            BUG (NULL);
        gpgme_data_new_from_mem (&keydata, rawkey, strlen (rawkey), 1);
        rc = gpgme_op_import (ctx, keydata);
        if (rc) {
            msg_box (dlg, gpgme_strerror ((gpgme_error_t)rc), _("Import"), MB_ERR);
            goto leave;
        }
        import_res = gpgme_op_import_result (ctx);
        if (import_res && r_fpr)
            *r_fpr = m_strdup (import_res->imports->fpr);
    }
    
    /* if we use the refresh mode, a lot of keys will be fetched and thus only
       a summarize at the end is presented and not for each key. */
    if (!(flags & KM_KS_REFRESH)) {
        show_imported_keys (import_res);
        if (import_res && import_res->unchanged == import_res->considered) {
            rc = WPTERR_GENERAL; /* no keys updated. */
            goto leave;
        }
    }

leave:
    free_if_alloc (rawkey);
    gpgme_release (ctx);
    gpgme_data_release (keydata);

    return rc;
}


/* Alias for hkp_recv_key2 but without the ability to return 
   the fingerprint of the key. */
int
hkp_recv_key (HWND dlg, const char *kserver, WORD port,
              const char *pattern, int proto, int flags)
{
    return hkp_recv_key2 (dlg, kserver, port, pattern, proto, flags, NULL);
}


#define my_iskeychar(a) (((a) >='0' && (a) <= '9' ) || ((a) >= 'A' && (a) <= 'F'))

static int
check_pattern (const char *pattern)
{
    int rc = 1;
    
    /* Whitespace are not allowed! */
    if (strchr( pattern, ' ')) {
        rc = WPTERR_GENERAL;
        goto leave;
    }
    
    if (((strstr (pattern, "0x")) && (strlen (pattern) == 10)) ||
         (strstr(pattern, "0x")) && (strlen (pattern)  == 18)) {
        rc = 0; /* Either long or short keyid */
        goto leave;
    }
    
    if( (( my_iskeychar( pattern[0] )) && ( strlen( pattern )  == 8 ) )
         || (my_iskeychar(pattern[0])) && ( strlen( pattern ) == 16) ) {
        rc = 0;
        goto leave;
    }
    
    if( ( strchr( pattern, '@' ) ) && ( strlen( pattern ) >= 3 ) ) {
        rc = 0;
        goto leave;
    }
    
leave:
    return rc;
} /* check_pattern */


static void
set_proxy (HWND dlg)
{
    char proxy[256];
    int port = 0;
    
    strcpy (proxy, "HTTP proxy: ");
    if (kserver_get_proxy (&port)) {
        char t[128];
        const char *http = kserver_get_proxy (&port);
        _snprintf (t, sizeof (t) - 1, "\"%s:%d\"", http, port);
        strcat (proxy, t);
    }
    else
        strcat (proxy, "none");
    SetDlgItemText (dlg, IDC_KEYSERVER_PROXY, proxy);
} /* set_proxy */


static int inline
kserver_get_pos (listview_ctrl_t lv)
{
    if (listview_count_items (lv, 0) == 1)
        return 0;
    return listview_get_curr_pos (lv);
}


static u16 inline
kserver_get_port (listview_ctrl_t lv)
{
    char buf[16];

    listview_get_item_text (lv, kserver_get_pos (lv), 3, buf, 15);
    return (u16)strtoul (buf, NULL, 10);
}

static void
load_default_ks (listview_ctrl_t lv)
{
    char * p, buf[192];
    int i;

    p = get_reg_entry_keyserver ("Default");
    if (!p)
        return;
    for( i = 0; i < listview_count_items( lv, 0 ); i++ ) {
        listview_get_item_text( lv, i, 0, buf, sizeof (buf)-1 );
        if( !strncmp( p, buf, strlen( p ) ) ) {
            listview_add_sub_item( lv, i, 2, "x" );
            break;
        }
    }
    free_if_alloc (p);
} /* load_default_ks */


static int
save_default_ks (listview_ctrl_t lv)
{
    char buf[192], port[32];
    int idx, i;   

    idx = listview_get_curr_pos( lv );
    if( idx == -1 ) {
        msg_box( NULL, _("Please select one of the servers."), _("Keyserver"), MB_ERR );
        return -1;
    }
    listview_get_item_text( lv, idx, 1, buf, sizeof (buf)-1 );
    if( *buf != 'H' ) {
        msg_box( NULL, _("Only HTTP keyserver can be used."), _("Keyserver"), MB_ERR );
        return -1;
    }
    for (i = 0; i < listview_count_items( lv, 0 ); i++)
        listview_add_sub_item (lv, i, 2, "");
    listview_add_sub_item (lv, idx, 2, "x");
    listview_get_item_text (lv, idx, 0, buf, sizeof (buf)-1);
    set_reg_entry_keyserver ("Default", buf);
    i = kserver_get_port (lv);
    sprintf (port, "%d", i);
    set_reg_entry_keyserver ("Default_Port", port);
    keyserver_set_default (buf, (u16)i);
    return 0;
} /* save_default_ks */


int
keyserver_list_build (listview_ctrl_t *r_lv, HWND hwnd)
{
    struct listview_column_s keyserver[] = {
        {0, 160, (char *)_("DNS Name")},        
        {1,  52, (char *)_("Protocol")},
        {2,  46, (char *)_("Default")},
        {3,  46, (char *)_("Port")},
        {0,   0, NULL}
    };
    listview_ctrl_t lv;
    char buf[32];
    int j;

    listview_new (&lv);    
    lv->ctrl = hwnd;       
    for (j=0; keyserver[j].fieldname; j++)
        listview_add_column (lv, &keyserver[j]);        
    for (j = 0; j<MAX_KEYSERVERS; j++) {
        if (!server[j].used)
            continue;
        listview_add_item (lv, " ");
        listview_add_sub_item (lv, 0, 0, server[j].name);
        switch (server[j].proto) {
        case KSPROTO_HTTP:
            listview_add_sub_item( lv, 0, 1, "H" ); break;
        case KSPROTO_LDAP:
            listview_add_sub_item( lv, 0, 1, "L" ); break;
        case KSPROTO_FINGER:
            listview_add_sub_item( lv, 0, 1, "F" ); break;
        }
        sprintf (buf, "%d", server[j].port);
        listview_add_sub_item (lv, 0, 3, buf);
    }
    load_default_ks (lv);
    if (listview_count_items (lv, 0) == 0) {
        listview_add_item (lv, "");
        listview_add_sub_item (lv, 0, 0, DEF_HKP_KEYSERVER);
        listview_add_sub_item (lv, 0, 1, "H");
    }
    listview_set_ext_style (lv);
    *r_lv = lv;
    return 0;
}


/* Dialog box procedure to access keyservers. */
BOOL CALLBACK
keyserver_dlg_proc (HWND dlg, UINT msg, WPARAM wparam, LPARAM lparam)
{
    static listview_ctrl_t lv = NULL;
    static int lv_idx = 0;
    static struct genkey_s *key;
    keyserver_ctx ksc;
    char kserver[128], pattern[128];
    char proto[16];
    int rc, proto_nr = 0;
    
    switch (msg) {
    case WM_INITDIALOG:
        if (lparam != 0)
            key = (struct genkey_s*)lparam;
        SetWindowText (dlg, _("Keyserver Access"));
        SetDlgItemText (dlg, IDC_KEYSERVER_RECV, _("&Receive"));
        SetDlgItemText (dlg, IDC_KEYSERVER_SEND, 
                        _("Send key (default is receiving)"));
        SetDlgItemText (dlg, IDC_KEYSERVER_INFO,
                        _("Please enter the key ID or email address you search for"));
        SetDlgItemText (dlg, IDC_KEYSERVER_INDEX, _("&Search"));
        SetDlgItemText (dlg, IDC_KEYSERVER_PROXSETT, _("C&hange"));
        SetDlgItemText (dlg, IDC_KEYSERVER_DEFAULT, _("Set &default"));
        SetDlgItemText (dlg, IDCANCEL, _("&Close"));

        set_proxy (dlg);
        keyserver_list_build (&lv, GetDlgItem (dlg, IDC_KEYSERVER_LIST));
        center_window (dlg, NULL);
        SetForegroundWindow (dlg);
        return TRUE;
        
    case WM_NOTIFY:
        NMHDR *notify;
        notify = (NMHDR *)lparam;
        if (notify && notify->code == NM_CLICK
            && notify->idFrom == IDC_KEYSERVER_LIST)
            lv_idx = listview_get_curr_pos (lv);
        return TRUE;
        
    case WM_DESTROY:
        if (lv) {
            listview_release (lv);
            lv = NULL;
        }
        lv_idx = 0;
        return FALSE;
        
    case WM_SYSCOMMAND:
        if (LOWORD (wparam) == SC_CLOSE)
            EndDialog (dlg, TRUE);
        return FALSE;
        
    case WM_COMMAND:
        switch (LOWORD (wparam)) {
        case IDC_KEYSERVER_PROXSETT:
            dialog_box_param (glob_hinst, (LPCTSTR)IDD_WINPT_KEYSERVER_PROXY, 
                              dlg, keyserver_proxy_dlg_proc, NULL,
                              _("Proxy Settings"), IDS_WINPT_KEYSERVER_PROXY);
            set_proxy (dlg);
            return TRUE;
            
        case IDC_KEYSERVER_INDEX:
            if (!lv_idx) {
                lv_idx = kserver_get_pos (lv);
                if (lv_idx == -1) {
                    msg_box (dlg, _("Please select one of the keyservers."), 
                             _("Keyserver"), MB_INFO);
                    return FALSE;
                }
            }
            listview_get_item_text (lv, lv_idx, 1, proto, sizeof (proto)-1);
            if (*proto == 'L') {
                msg_box (dlg, _("This is not implemented yet!"), 
                         _("Keyserver"), MB_ERR);
                return FALSE;
            }
            listview_get_item_text (lv, lv_idx, 0, kserver, sizeof (kserver)-1);
            if (!GetDlgItemText (dlg, IDC_KEYSERVER_SEARCH, pattern, sizeof (pattern)-1)) {
                msg_box (dlg, _("Please enter the search pattern."), 
                         _("Keyserver"), MB_INFO);
                return FALSE;
            }
            ksc.name = kserver;
            ksc.pattern = pattern;
            ksc.port = kserver_get_port (lv);
            DialogBoxParam (glob_hinst, (LPCSTR)IDD_WINPT_HKPSEARCH, dlg,
                            hkpsearch_dlg_proc, (LPARAM) &ksc);
            return TRUE;
            
        case IDC_KEYSERVER_RECV:
            memset (&kserver, 0, sizeof (kserver));
            if (!lv_idx) {
                lv_idx = kserver_get_pos (lv);
                if (lv_idx == -1) {
                    msg_box (dlg, _("Please select one of the keyservers."), 
                            _("Keyserver"), MB_INFO);
                    return FALSE;
                }
            }
            listview_get_item_text( lv, lv_idx, 1, proto, sizeof (proto)-1 );
            proto_nr = KSPROTO_HTTP;
            if (*proto == 'L')
                proto_nr = KSPROTO_LDAP;
            else if (*proto == 'F')
                proto_nr = KSPROTO_FINGER;
            listview_get_item_text (lv, lv_idx, 0, kserver, sizeof (kserver)-1);
            if( !GetDlgItemText( dlg, IDC_KEYSERVER_SEARCH, pattern, sizeof (pattern)-1)) {
                msg_box (dlg, _("Please enter the search pattern."),
                         _("Keyserver"), MB_INFO);
                return FALSE;
            }
            if (proto_nr == KSPROTO_LDAP && strchr (pattern, '@')) {
                msg_box (dlg, _("Only keyids are allowed."), _("LDAP Keyserver"), MB_INFO);
                return FALSE;
            }
            else if (proto_nr == KSPROTO_FINGER) {
                if (strchr (pattern, '@') || strchr (pattern, ' ')) {
                    msg_box (dlg, _("Only enter the name of the user."), 
                             _("FINGER Keyserver"), MB_INFO);
                    return FALSE;
                }
            }
            else if (check_pattern (pattern)) {
                msg_box (dlg, _("Only email addresses or keyids are allowed."),
                        _("HKP Keyserver"), MB_INFO);
                return FALSE;
            }
            rc = hkp_recv_key2 (dlg, kserver, kserver_get_port (lv),
                                pattern, proto_nr, 0, key? &key->fpr : NULL);
            if (!rc && key->fpr != NULL) {
                keycache_update (0, key->fpr);
                get_pubkey (key->fpr, &key->newkey);
                /* we do not need the fingerprint any longer. */
                free_if_alloc (key->fpr);
            }
            return TRUE;

        case IDC_KEYSERVER_DEFAULT:
            save_default_ks (lv);
            break;
            
        case IDCANCEL:
            EndDialog (dlg, FALSE);
            return FALSE;
        }
        break;
    }
    
    return FALSE;
}
1	werner	36	/* wptKeyserverDlg.cpp - Keyserver dialog
2			* Copyright (C) 2000-2005 Timo Schulz
3	twoaday	115	* Copyright (C) 2005 g10 Code GmbH
4	werner	36	*
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	werner	42	#ifdef HAVE_CONFIG_H
22			#include <config.h>
23			#endif
24
25	werner	36	#include <windows.h>
26			#include <commctrl.h>
27			#include <malloc.h>
28
29	werner	47	#include "resource.h"
30	werner	36	#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	twoaday	109	char* get_reg_entry_keyserver (const char *);
46	werner	36	int set_reg_entry_keyserver (const char , const char );
47
48
49	twoaday	109	/* Print out keyserver error and a possible Winsock error. */
50	werner	36	static void
51	twoaday	109	hkp_err_box (HWND dlg, const char *host, WORD port, int rc)
52	werner	36	{
53	twoaday	109	const char *err = kserver_strerror ();
54	werner	36
55	twoaday	109	log_box (_("Keyserver"), MB_ERR, "%s:%d: %s",
56			host, port, winpt_strerror (rc));
57	werner	36	if (err)
58			msg_box (dlg, err, wsock_strerror (), MB_ERR);
59	twoaday	109	}
60	werner	36
61
62	twoaday	109	/* Send the extracted key with keyid @pattern to the
63			keyserver @kserver (port @port).
64			Return value: 0 on success. */
65	werner	36	int
66	twoaday	109	hkp_send_key (HWND dlg, const char kserver, WORD port, const char pattern)
67	werner	36	{
68	twoaday	109	gpgme_ctx_t ctx;
69	werner	36	gpgme_data_t keydata;
70			gpgme_error_t ec;
71	twoaday	109	char *rawkey = NULL;
72			char msg[384];
73	werner	36	size_t n;
74
75	twoaday	109	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	werner	36	goto leave;
86			}
87			rawkey = gpgme_data_release_and_get_mem (keydata, &n);
88	twoaday	109	ec = kserver_sendkey (kserver, port, rawkey, n);
89			if (ec) {
90			hkp_err_box (dlg, kserver, port, ec);
91	werner	36	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	twoaday	109	gpgme_release (ctx);
99	werner	36	if (rawkey)
100			gpgme_free (rawkey);
101	twoaday	109	return ec? -1 : 0;
102			}
103	werner	36
104
105	twoaday	117
106	twoaday	118	/* Show all received keys from the keyserver. */
107	twoaday	117	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	twoaday	118	if (!res)
120			return;
121
122	twoaday	117	err = gpgme_data_new (&msg);
123			if (err)
124			BUG (NULL);
125			err = gpgme_new (&ctx);
126			if (err)
127			BUG (NULL);
128	twoaday	118	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	twoaday	117	gpgme_data_write (msg, s, strlen (s));
138	twoaday	118	gpgme_data_write (msg, "\n\n", 2);
139
140	twoaday	117	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	twoaday	109	/* Receive a key from the keyserver @kserver (port @port)
159			with the pattern @pattern.
160			Return value: 0 on success. */
161	werner	36	int
162	twoaday	115	hkp_recv_key2 (HWND dlg, const char *kserver, WORD port,
163			const char *pattern, int proto, int flags,
164			char **r_fpr)
165	werner	36	{
166			gpgme_ctx_t ctx;
167			gpgme_data_t keydata;
168			gpgme_error_t ec;
169	twoaday	115	gpgme_import_result_t import_res = NULL;
170	twoaday	109	char *rawkey = NULL;
171	twoaday	115	int rc;
172	werner	36
173	twoaday	115	/* XXX: implement dynamic buffers. */
174	werner	36	rawkey = new char[MAX_KEYSIZE];
175			if (!rawkey)
176			BUG (0);
177			memset (rawkey, 0, MAX_KEYSIZE);
178	twoaday	109	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	werner	36	"Please make sure you have an online connection"
183			" and gpgkeys_ldap.exe is installed"),
184	twoaday	109	_("Keyserver"), MB_ERR);
185			free_if_alloc (rawkey);
186	werner	36	return rc;
187			}
188			}
189			else if (proto == KSPROTO_FINGER) {
190			rc = finger_recvkey (kserver, pattern, rawkey, MAX_KEYSIZE-1);
191			if (rc) {
192	twoaday	109	log_box (_("Keyserver"), MB_ERR,
193			_("Finger key import failed: %s\n"), winpt_strerror (rc));
194	werner	36	free_if_alloc (rawkey);
195			return rc;
196			}
197			}
198	twoaday	109	else if ((rc = kserver_recvkey (kserver, port,
199			kserver_check_keyid (pattern),
200			rawkey, MAX_KEYSIZE-1))) {
201	werner	36	hkp_err_box (dlg, kserver, port, rc);
202			free_if_alloc (rawkey);
203			return rc;
204			}
205			else {
206	twoaday	109	if (!strstr (rawkey, "BEGIN PGP PUBLIC KEY BLOCK")) {
207			msg_box (dlg, _("This is not a valid OpenPGP key."),
208			_("Keyserver"), MB_ERR);
209	werner	36	goto leave;
210			}
211	twoaday	109	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	werner	36	goto leave;
219			}
220			import_res = gpgme_op_import_result (ctx);
221	twoaday	117	if (import_res && r_fpr)
222	twoaday	115	*r_fpr = m_strdup (import_res->imports->fpr);
223	werner	36	}
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	twoaday	118	show_imported_keys (import_res);
229	twoaday	117	if (import_res && import_res->unchanged == import_res->considered) {
230	twoaday	118	rc = WPTERR_GENERAL; /* no keys updated. */
231	werner	36	goto leave;
232			}
233			}
234	twoaday	118
235	werner	36	leave:
236			free_if_alloc (rawkey);
237			gpgme_release (ctx);
238			gpgme_data_release (keydata);
239
240			return rc;
241	twoaday	109	}
242	werner	36
243
244	twoaday	115	/* 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	twoaday	109	#define my_iskeychar(a) (((a) >='0' && (a) <= '9' ) \|\| ((a) >= 'A' && (a) <= 'F'))
255	werner	36
256			static int
257	twoaday	109	check_pattern (const char *pattern)
258	werner	36	{
259			int rc = 1;
260
261			/* Whitespace are not allowed! */
262	twoaday	109	if (strchr( pattern, ' ')) {
263	werner	36	rc = WPTERR_GENERAL;
264			goto leave;
265			}
266
267	twoaday	109	if (((strstr (pattern, "0x")) && (strlen (pattern) == 10)) \|\|
268			(strstr(pattern, "0x")) && (strlen (pattern) == 18)) {
269			rc = 0; /* Either long or short keyid */
270	werner	36	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	twoaday	109	char proxy[256];
293	werner	36	int port = 0;
294
295			strcpy (proxy, "HTTP proxy: ");
296			if (kserver_get_proxy (&port)) {
297	twoaday	109	char t[128];
298	werner	36	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	twoaday	109	strcat (proxy, "none");
304			SetDlgItemText (dlg, IDC_KEYSERVER_PROXY, proxy);
305	werner	36	} /* 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	twoaday	109	/* Dialog box procedure to access keyservers. */
422	werner	36	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	twoaday	115	static struct genkey_s *key;
428			keyserver_ctx ksc;
429			char kserver[128], pattern[128];
430			char proto[16];
431	werner	36	int rc, proto_nr = 0;
432
433	twoaday	115	switch (msg) {
434	werner	36	case WM_INITDIALOG:
435	twoaday	115	if (lparam != 0)
436			key = (struct genkey_s*)lparam;
437	werner	36	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	twoaday	117	SetDlgItemText (dlg, IDCANCEL, _("&Close"));
447	twoaday	101
448	werner	36	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	twoaday	115	if (notify && notify->code == NM_CLICK
458			&& notify->idFrom == IDC_KEYSERVER_LIST)
459			lv_idx = listview_get_curr_pos (lv);
460	werner	36	return TRUE;
461
462			case WM_DESTROY:
463	twoaday	115	if (lv) {
464			listview_release (lv);
465	werner	36	lv = NULL;
466			}
467			lv_idx = 0;
468			return FALSE;
469
470			case WM_SYSCOMMAND:
471	twoaday	115	if (LOWORD (wparam) == SC_CLOSE)
472			EndDialog (dlg, TRUE);
473	werner	36	return FALSE;
474
475			case WM_COMMAND:
476	twoaday	115	switch (LOWORD (wparam)) {
477	werner	36	case IDC_KEYSERVER_PROXSETT:
478	twoaday	115	dialog_box_param (glob_hinst, (LPCTSTR)IDD_WINPT_KEYSERVER_PROXY,
479	twoaday	117	dlg, keyserver_proxy_dlg_proc, NULL,
480	twoaday	115	_("Proxy Settings"), IDS_WINPT_KEYSERVER_PROXY);
481			set_proxy (dlg);
482	werner	36	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	twoaday	109	msg_box (dlg, _("Please select one of the keyservers."),
489			_("Keyserver"), MB_INFO);
490	werner	36	return FALSE;
491			}
492			}
493			listview_get_item_text (lv, lv_idx, 1, proto, sizeof (proto)-1);
494			if (*proto == 'L') {
495	twoaday	115	msg_box (dlg, _("This is not implemented yet!"),
496			_("Keyserver"), MB_ERR);
497	werner	36	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	twoaday	115	msg_box (dlg, _("Please enter the search pattern."),
502			_("Keyserver"), MB_INFO);
503	werner	36	return FALSE;
504			}
505			ksc.name = kserver;
506			ksc.pattern = pattern;
507			ksc.port = kserver_get_port (lv);
508	twoaday	115	DialogBoxParam (glob_hinst, (LPCSTR)IDD_WINPT_HKPSEARCH, dlg,
509			hkpsearch_dlg_proc, (LPARAM) &ksc);
510	werner	36	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	twoaday	109	msg_box (dlg, _("Please select one of the keyservers."),
518			_("Keyserver"), MB_INFO);
519	werner	36	return FALSE;
520			}
521			}
522			listview_get_item_text( lv, lv_idx, 1, proto, sizeof (proto)-1 );
523			proto_nr = KSPROTO_HTTP;
524	twoaday	115	if (*proto == 'L')
525	werner	36	proto_nr = KSPROTO_LDAP;
526	twoaday	115	else if (*proto == 'F')
527	werner	36	proto_nr = KSPROTO_FINGER;
528	twoaday	115	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	werner	36	return FALSE;
533			}
534	twoaday	115	if (proto_nr == KSPROTO_LDAP && strchr (pattern, '@')) {
535			msg_box (dlg, _("Only keyids are allowed."), _("LDAP Keyserver"), MB_INFO);
536	werner	36	return FALSE;
537			}
538			else if (proto_nr == KSPROTO_FINGER) {
539			if (strchr (pattern, '@') \|\| strchr (pattern, ' ')) {
540	twoaday	115	msg_box (dlg, _("Only enter the name of the user."),
541			_("FINGER Keyserver"), MB_INFO);
542	werner	36	return FALSE;
543			}
544			}
545	twoaday	115	else if (check_pattern (pattern)) {
546			msg_box (dlg, _("Only email addresses or keyids are allowed."),
547			_("HKP Keyserver"), MB_INFO);
548	werner	36	return FALSE;
549			}
550	twoaday	115	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	werner	36	return TRUE;
559
560			case IDC_KEYSERVER_DEFAULT:
561	twoaday	109	save_default_ks (lv);
562	werner	36	break;
563
564			case IDCANCEL:
565	twoaday	109	EndDialog (dlg, FALSE);
566	werner	36	return FALSE;
567			}
568			break;
569			}
570
571			return FALSE;
572	twoaday	109	}