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

Diff of /trunk/Src/wptKeyserver.cpp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 73 by twoaday, Tue Nov 8 07:15:13 2005 UTC revision 180 by twoaday, Mon Mar 6 14:41:58 2006 UTC
# Line 24  Line 24 
24  #endif  #endif
25    
26  #include <windows.h>  #include <windows.h>
27    #include <shlobj.h>
28  #include <stdio.h>  #include <stdio.h>
29  #include <sys/stat.h>  #include <sys/stat.h>
30  #include <ctype.h>  #include <ctype.h>
# Line 33  Line 34 
34  #include "wptTypes.h"  #include "wptTypes.h"
35  #include "wptNLS.h"  #include "wptNLS.h"
36  #include "wptW32API.h"  #include "wptW32API.h"
 #include "wptVersion.h"  
37  #include "wptGPG.h"  #include "wptGPG.h"
38  #include "wptRegistry.h"  #include "wptRegistry.h"
39    
40    #define net_errno ((int)WSAGetLastError ())
41    
42  static char base64code[] =  static char base64code[] =
43    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
44    
45  keyserver server[MAX_KEYSERVERS] = {0};  keyserver server[MAX_KEYSERVERS] = {0};
46  static keyserver_proxy_ctx proxy = {0};  keyserver_proxy_s proxy = {0};
47  static const char * server_list[] = {  static const char *server_list[] = {
48      "hkp://wwwkeys.nl.pgp.net",      "hkp://wwwkeys.nl.pgp.net",
49      "hkp://wwwkeys.pl.pgp.net",      "hkp://wwwkeys.pl.pgp.net",
50      "hkp://wwwkeys.at.pgp.net",      "hkp://wwwkeys.at.pgp.net",
# Line 54  static const char * server_list[] = { Line 56  static const char * server_list[] = {
56      "hkp://wwwkeys.eu.pgp.net",      "hkp://wwwkeys.eu.pgp.net",
57      "hkp://wwwkeys.uk.pgp.net",      "hkp://wwwkeys.uk.pgp.net",
58      "hkp://wwwkeys.us.pgp.net",      "hkp://wwwkeys.us.pgp.net",
     "hkp://gnv.us.ks.cryptnet.net",  
59      "hkp://subkeys.pgp.net",      "hkp://subkeys.pgp.net",
60      "ldap://keyserver.pgp.com",      "ldap://keyserver.pgp.com",
61      NULL      NULL
62  };  };
 static char hkp_errmsg[1024];  
 static int hkp_err = 0;  
 static u32 conf_timestamp = 0;  
 char * default_keyserver = NULL;  
 unsigned short default_keyserver_port = 0;  
63    
64    
65    static char  hkp_errmsg[1024];  /* Holds the error message from the server */
66    static int   hkp_err = 0;       /* != 0 indicates an error occurred. */
67    static DWORD conf_timestamp = 0;/* timestamp of the configuration fiele. */
68    
69    /* Default keyserver and port. */
70    char *default_keyserver = NULL;
71    WORD default_keyserver_port = 0;
72    
73    
74    /* Basic64 encode the input @inbuf to @outbuf. */
75  static void  static void
76  base64_encode( const char *inputstr, char *outputstr, int maxlen )  base64_encode (const char *inbuf, char *outbuf)
77  {        {      
78      int index = 0, temp = 0, res = 0, i = 0, inputlen = 0, len = 0;      int index = 0, temp = 0, res = 0;
79        int i = 0, inputlen = 0, len = 0;
80            
81      inputlen = strlen (inputstr); /* fixme: check if len > maxlen */      inputlen = strlen (inbuf);
82      for (i = 0; i <inputlen; i++) {      for (i = 0; i < inputlen; i++) {
83          res = temp;          res = temp;
84          res = (res << 8) | (inputstr[i] & 0xFF);          res = (res << 8) | (inbuf[i] & 0xFF);
85          switch (index++) {          switch (index++) {
86          case 0: outputstr[len++] = base64code[res >> 2 & 0x3F]; res &= 0x3; break;                      case 0:
87          case 1: outputstr[len++] = base64code[res >> 4 & 0x3F]; res &= 0xF; break;                          outbuf[len++] = base64code[res >> 2 & 0x3F];
88          case 2: outputstr[len++] = base64code[res >> 6 & 0x3F];              res &= 0x3;
89                  outputstr[len++] = base64code[res & 0x3F]; res = index = 0; break;              break;
90            case 1:
91                outbuf[len++] = base64code[res >> 4 & 0x3F];
92                res &= 0xF;
93                break;
94            case 2:
95                outbuf[len++] = base64code[res >> 6 & 0x3F];
96                outbuf[len++] = base64code[res & 0x3F];
97                res = index = 0;
98                break;
99          }          }
100          temp = res;          temp = res;
101      }      }
102            
103      switch( index ) {      if (index == 2) {      
104      case 0: break;                  outbuf[len++] = base64code[temp << 2 & 0x3F];  
105      case 2: outputstr[len++] = base64code[temp << 2 & 0x3F];              outbuf[len++] = '=';
             outputstr[len++] = '='; break;          
     case 1: outputstr[len++] = base64code[temp << 4 & 0x3F];      
             outputstr[len++] = '=';  
             outputstr[len++] = '=';  
106      }      }
107            else if (index == 1) {
108      outputstr[len] = '\0';          outbuf[len++] = base64code[temp << 4 & 0x3F];
109  } /* base64_encode */          outbuf[len++] = '=';
110            outbuf[len++] = '=';
111        }
112    
113        outbuf[len] = '\0';
114    }
115    
116    
117  /* Skip the URL schema and return only the host part of it. */  /* Skip the URL schema and return only the host part of it. */
118  static const char *  static const char*
119  skip_type_prefix (const char * hostname)  skip_type_prefix (const char *hostname)
120  {  {
121      if (hostname && !strncmp (hostname, "http://", 7))      if (hostname && !strncmp (hostname, "http://", 7))
122          hostname += 7;          hostname += 7;
# Line 117  skip_type_prefix (const char * hostname) Line 134  skip_type_prefix (const char * hostname)
134     Return 0 on success. */     Return 0 on success. */
135  static int  static int
136  check_hkp_response (const char *resp, int recv)  check_hkp_response (const char *resp, int recv)
137  {  {    
138        char *p, *end;
139      int ec, len;      int ec, len;
     char *p, * end;  
140    
141      ec = recv ? WPTERR_WINSOCK_RECVKEY : WPTERR_WINSOCK_SENDKEY;      ec = recv ? WPTERR_WINSOCK_RECVKEY : WPTERR_WINSOCK_SENDKEY;
142      if (!strstr (resp, "HTTP/1.0 200 OK") &&      if (!strstr (resp, "HTTP/1.0 200 OK") &&
# Line 132  check_hkp_response (const char *resp, in Line 149  check_hkp_response (const char *resp, in
149          if (p && strlen (p) < sizeof (hkp_errmsg)) {          if (p && strlen (p) < sizeof (hkp_errmsg)) {
150              end = strstr (p, "</p>");              end = strstr (p, "</p>");
151              len = end? (end - p + 1) : strlen (p);              len = end? (end - p + 1) : strlen (p);
152                memset (hkp_errmsg, 0, sizeof (hkp_errmsg));
153              strncpy (hkp_errmsg, p, len);              strncpy (hkp_errmsg, p, len);
154              hkp_err = 1;              hkp_err = 1;
155          }          }
# Line 147  static int Line 165  static int
165  sock_getline (int fd, char *buf, int buflen, int *nbytes)  sock_getline (int fd, char *buf, int buflen, int *nbytes)
166  {  {
167      char ch;      char ch;
168      int count = 0;            int nread = 0;      
169            
170      if (nbytes)      if (nbytes)
171          *nbytes = 0;          *nbytes = 0;
172      *buf = 0;      *buf = 0;
173      while (recv (fd, &ch, 1, 0) > 0) {      while (recv (fd, &ch, 1, 0) > 0) {
174          *buf++ = ch;          *buf++ = ch;
175          count++;          nread++;
176          if (ch == '\n' || count == (buflen - 1)) {          if (ch == '\r')
177                continue; /* remove this char. */
178            if (ch == '\n' || nread == (buflen - 1)) {
179              *buf = 0;              *buf = 0;
180              if (nbytes)              if (nbytes)
181                  *nbytes = count;                  *nbytes = nread;
182              return 0;              return 0;
183          }          }
184      }      }
# Line 177  sock_select (int fd, int nsecs) Line 197  sock_select (int fd, int nsecs)
197    
198      FD_ZERO (&rfd);      FD_ZERO (&rfd);
199      FD_SET (fd, &rfd);      FD_SET (fd, &rfd);
200      if (select (fd + 1, &rfd, NULL, NULL, &tv) == SOCKET_ERROR)      if (select (fd + 1, &rfd, NULL, NULL, &tv) == SOCKET_ERROR) {
201            log_debug ("sock_select: select() failed ec=%d.\r\n", net_errno);
202          return SOCKET_ERROR;          return SOCKET_ERROR;
203        }
204      if (FD_ISSET (fd, &rfd))      if (FD_ISSET (fd, &rfd))
205          return 1;          return 1;
206      return 0;      return 0;
207  }  }
208    
209    
210  /* Read from a socket with a fixed timeout of 10 seconds.  /* Read from a socket @fd to buffer @buf with a fixed timeout
211       of 10 seconds. The amount of bytes which were read are
212       returned in @nbytes.
213     Return value: 0 on success. */     Return value: 0 on success. */
214  static int  static int
215  sock_read (int fd, char *buf, int buflen, int *nbytes)  sock_read (int fd, char *buf, int buflen, int *nbytes)
# Line 199  sock_read (int fd, char *buf, int buflen Line 223  sock_read (int fd, char *buf, int buflen
223              return WPTERR_WINSOCK_TIMEOUT;              return WPTERR_WINSOCK_TIMEOUT;
224          rc = sock_select (fd, 1);          rc = sock_select (fd, 1);
225          if (rc == SOCKET_ERROR)          if (rc == SOCKET_ERROR)
226              return SOCKET_ERROR;              return rc;
227          else if( !rc )          else if (!rc)
228              n++;              n++;
229          else {          else {
230              nread = recv (fd, buf, nleft, 0);              nread = recv (fd, buf, nleft, 0);
231              if (nread == SOCKET_ERROR)              if (nread == SOCKET_ERROR) {
232                    log_debug ("sock_read: recv() failed ec=%d.\r\n", net_errno);
233                  return SOCKET_ERROR;                  return SOCKET_ERROR;
234                }
235              else if (!nread)              else if (!nread)
236                  break;                  break;
237              nleft -= nread;              nleft -= nread;
# Line 218  sock_read (int fd, char *buf, int buflen Line 244  sock_read (int fd, char *buf, int buflen
244      return 0;      return 0;
245  }  }
246    
247    /* Read much data as possible from the socket @fd and
248       return the data in @buffer. Caller must free data.
249       Return value: 0 on success. */
250    int
251    sock_read_ext (int fd, char **buffer, int *r_bufferlen)
252    {
253        gpgme_data_t dh;
254        char buf[1024], *p;
255        size_t n=0;
256        int nread, rc;
257    
258        gpgme_data_new (&dh);
259        while (n < 10) {
260            rc = sock_select (fd, 1);
261            if (rc == SOCKET_ERROR) {
262                gpgme_data_release (dh);
263                return rc;
264            }
265            else if (!rc)
266                n++;
267            else {
268                nread = recv (fd, buf, sizeof (buf), 0);
269                if (nread == SOCKET_ERROR)
270                    return SOCKET_ERROR;
271                else if (!nread)
272                    break;
273                gpgme_data_write (dh, buf, nread);
274            }
275        }
276        gpg_data_putc (dh, '\0');
277        p = gpgme_data_release_and_get_mem (dh, &n);
278        *buffer = m_strdup (p);
279        if (r_bufferlen)
280            *r_bufferlen = n;
281        gpgme_free (p);
282        return 0;
283    }
284    
285    
286  /* Write @buf to a socket @fd. */  /* Write the buffer @buf with the length @buflen to a socket @fd. */
287  static int  static int
288  sock_write (int fd, const char *buf, int buflen)  sock_write (int fd, const char *buf, int buflen)
289  {  {
# Line 228  sock_write (int fd, const char *buf, int Line 292  sock_write (int fd, const char *buf, int
292    
293      while (nleft > 0) {      while (nleft > 0) {
294          nwritten = send (fd, buf, nleft, 0);          nwritten = send (fd, buf, nleft, 0);
295          if (nwritten == SOCKET_ERROR)          if (nwritten == SOCKET_ERROR) {
296                log_debug ("sock_write: send() failed ec=%d\r\n", net_errno);
297              return SOCKET_ERROR;              return SOCKET_ERROR;
298            }
299          nleft -= nwritten;          nleft -= nwritten;
300          buf += nwritten;                  buf += nwritten;
301      }      }
302    
303      return 0;      return 0;
304  }  }
305    
306    
307    /* Set the default keyserver. */
308  void  void
309  set_default_kserver (void)  set_default_kserver (void)
310  {  {
311      char * p = get_reg_entry_keyserver ("Default");      char *p = get_reg_entry_keyserver ("Default");
312      free_if_alloc (default_keyserver);      free_if_alloc (default_keyserver);
313      default_keyserver = p && *p != ' ' ? p : m_strdup (DEF_HKP_KEYSERVER);      default_keyserver = p && *p != ' ' ? p : m_strdup (DEF_HKP_KEYSERVER);
314      p = get_reg_entry_keyserver ("Default_Port");      p = get_reg_entry_keyserver ("Default_Port");
315      if (p && *p) {      if (p && *p) {
316          default_keyserver_port = (u16)strtoul (p, NULL, 10);          default_keyserver_port = (WORD)strtoul (p, NULL, 10);
317          free_if_alloc (p);          free_if_alloc (p);
318      }      }
319      else      else
# Line 260  wsock_init (void) Line 327  wsock_init (void)
327  {  {
328      WSADATA wsa;      WSADATA wsa;
329    
330      if (WSAStartup (0x202, &wsa))      if (WSAStartup (0x202, &wsa)) {
331            log_debug ("wsock_init: WSAStartup failed ec=%d\r\n", net_errno);
332          return WPTERR_WINSOCK_INIT;          return WPTERR_WINSOCK_INIT;
333        }
334      set_default_kserver ();      set_default_kserver ();
335      return 0;      return 0;
336  }  }
# Line 271  wsock_init (void) Line 340  wsock_init (void)
340  void  void
341  wsock_end (void)  wsock_end (void)
342  {  {
343        char *p;
344      int i;      int i;
345    
346        p = make_special_filename (CSIDL_APPDATA, "winpt\\keyserver.conf", NULL);
347        kserver_save_conf (p);
348        free_if_alloc (p);
349      free_if_alloc (default_keyserver);      free_if_alloc (default_keyserver);
     default_keyserver = NULL;  
350      for (i=0; i < MAX_KEYSERVERS; i++) {      for (i=0; i < MAX_KEYSERVERS; i++) {
351          if (server[i].used)          if (server[i].used)
352              free_if_alloc (server[i].name);              free_if_alloc (server[i].name);
353      }      }
354        kserver_proxy_release (&proxy);
355      WSACleanup ();      WSACleanup ();
356  }  }
357    
# Line 291  wsock_strerror (void) Line 364  wsock_strerror (void)
364      int ec = WSAGetLastError ();      int ec = WSAGetLastError ();
365            
366      switch (ec) {      switch (ec) {
367      case WSAENETDOWN:      case WSAENETDOWN:
368          return _("The network subsystem has failed");              return _("The network subsystem has failed");
369      case WSAHOST_NOT_FOUND:      case WSAHOST_NOT_FOUND:
370          return _("Authoritative Answer Host not found");          return _("Authoritative Answer Host not found");
371      case WSAETIMEDOUT:      case WSAETIMEDOUT:
372          return _("The connection has been dropped because of a network failure");          return _("The connection has been dropped because of a network failure");
373      default:      default:
374          _snprintf (buf, sizeof (buf) -1, _("Unknown Winsock error ec=%d"),ec);          _snprintf (buf, sizeof (buf) -1, _("Unknown Winsock error ec=%d"),ec);
375          return buf;          return buf;
376      }      }
# Line 318  kserver_strerror (void) Line 391  kserver_strerror (void)
391  /* Read a keyserver from the list at index @idx.  /* Read a keyserver from the list at index @idx.
392     Return value: keyserver name at the given position. */     Return value: keyserver name at the given position. */
393  const char*  const char*
394  kserver_get_hostname (int idx, int type, u16 *port)  kserver_get_hostname (int idx, int type, WORD *port)
395  {  {
396      if (type == -1) {      if (type == -1) {
397          *port = default_keyserver_port;          *port = default_keyserver_port;
# Line 347  kserver_check_inet_connection (void) Line 420  kserver_check_inet_connection (void)
420  }  }
421    
422    
423  /*  /* If the request contains the keyid, it have to be
424   * If the request contains the keyid, it have to be     always postfix with '0x'+keyid. This code checks
425   * always postfix with '0x'+keyid. This code checks     if the keyid is a decimal value and if so if it contains
426   * if the keyid is a decimal value and if so if it contains     the '0x'. If not it is inserted. */
  * the '0x'. If not it is inserted.  
  */  
427  const char*  const char*
428  kserver_check_keyid (const char *keyid)  kserver_check_keyid (const char *keyid)
429  {        {      
430      static char id[20];      static char id[21];
431    
432      if (strstr (keyid, "@"))      if (strstr (keyid, "@"))
433          return keyid; /* email address */          return keyid; /* email address */
# Line 366  kserver_check_keyid (const char *keyid) Line 437  kserver_check_keyid (const char *keyid)
437          return id;          return id;
438      }      }
439      return keyid;      return keyid;
440  } /* kserver_check_keyid */  }
441    
442    
443    /* Update the keyserver proxy user. */
444  static void  static void
445  kserver_update_proxyuser (const char *proxy_user, const char *proxy_pass)  update_proxy_user (const char *proxy_user, const char *proxy_pass)
446  {  {
447      char t[257]; /* user:pass = 127+1+127+1 = 257 */      char t[257]; /* user:pass = 127+1+127+1 = 257 */
448      int n = 0;      int n = 0;
# Line 381  kserver_update_proxyuser (const char *pr Line 453  kserver_update_proxyuser (const char *pr
453      if (!proxy.base64_user)      if (!proxy.base64_user)
454          BUG (0);          BUG (0);
455      _snprintf (t, sizeof (t)-1, "%s:%s", proxy_user, proxy_pass);      _snprintf (t, sizeof (t)-1, "%s:%s", proxy_user, proxy_pass);
456      base64_encode (t, proxy.base64_user, 257);      base64_encode (t, proxy.base64_user);
457      free_if_alloc (proxy.user);      free_if_alloc (proxy.user);
458      free_if_alloc (proxy.pass);      free_if_alloc (proxy.pass);
459      proxy.user = m_strdup (proxy_user);      proxy.user = m_strdup (proxy_user);
460      proxy.pass = m_strdup (proxy_pass);      proxy.pass = m_strdup (proxy_pass);
461  } /* kserver_update_proxyuser */  }
462    
463    
464  /* Check that the given buffer contains a valid keyserver URL. */  /* Check that the given buffer contains a valid keyserver URL. */
# Line 419  port_from_proto (int proto) Line 491  port_from_proto (int proto)
491    
492  /* Get the port number from the given URL. */  /* Get the port number from the given URL. */
493  static int  static int
494  proto_from_URL (const char * buf)  proto_from_URL (const char *buf)
495  {  {
496      if (strstr( buf, "ldap"))      if (strstr( buf, "ldap"))
497          return KSPROTO_LDAP;          return KSPROTO_LDAP;
# Line 430  proto_from_URL (const char * buf) Line 502  proto_from_URL (const char * buf)
502    
503    
504  void  void
505  keyserver_set_default (const char * hostname, u16 port)  keyserver_set_default (const char *hostname, WORD port)
506  {  {
507      if (hostname) {      if (hostname) {
508          free_if_alloc (default_keyserver);          free_if_alloc (default_keyserver);
# Line 443  keyserver_set_default (const char * host Line 515  keyserver_set_default (const char * host
515      server[0].used = 1;      server[0].used = 1;
516      server[0].port = port;      server[0].port = port;
517      server[0].proto = proto_from_URL (default_keyserver);      server[0].proto = proto_from_URL (default_keyserver);
518  } /* keyserver_set_default */  }
519    
520    
521  static const char *  /* Skip all kind of whitespace chars in @str. */
522  skip_whitespace (const char * str)  static const char*
523    skip_whitespace (const char *str)
524  {  {
525      while (str && *str)      while (str && *str) {
     {  
526          if (*str == ' ' ||          if (*str == ' ' ||
527              *str == '\t' ||              *str == '\t' ||
528              *str == '\n' ||              *str == '\n' ||
529              *str == '\r')              *str == '\r') {
         {  
530              str++;              str++;
531              continue;              continue;
532          }          }
# Line 465  skip_whitespace (const char * str) Line 536  skip_whitespace (const char * str)
536  }  }
537    
538    
539    /* Save the keyserver config file in @conf. */
540  int  int
541  kserver_load_conf (const char * conf)  kserver_save_conf (const char *conf)
542    {
543        FILE *fp;
544        int pos;
545    
546        fp = fopen (conf, "wb");
547        if (!fp) {
548            msg_box (NULL, _("Could not save keyserver.conf file"),
549                     _("Keyserver"), MB_ERR);
550            return -1;
551        }
552    
553        fprintf (fp, "# do NOT manually modify this file, it will be "
554                     "generated automatically!!\r\n");
555        for (pos = 0; pos < MAX_KEYSERVERS; pos++) {
556            if (!server[pos].used)
557                continue;
558            fprintf (fp, "%s:%d\r\n", server[pos].name, server[pos].port);
559        }
560        fclose (fp);
561        return 0;
562    }
563    
564    
565    /* Load the keyserver config file @conf. */
566    int
567    kserver_load_conf (const char *conf)
568  {  {
569      struct stat statbuf;      struct stat statbuf;
570      FILE *fp;      FILE *fp;
571      char buf[1024], * s, *p;      char buf[1024], *s, *p;
572      char *user = NULL, *pass = NULL;          char *user = NULL, *pass = NULL;    
     int pos;  
573      int no_config=0, chk_pos=0;      int no_config=0, chk_pos=0;
574        int pos;
575            
576      for (pos = 0; pos < MAX_KEYSERVERS; pos++) {      for (pos = 0; pos < MAX_KEYSERVERS; pos++) {
577          server[pos].used = 0;          server[pos].used = 0;
# Line 489  kserver_load_conf (const char * conf) Line 587  kserver_load_conf (const char * conf)
587          }          }
588          no_config=1;          no_config=1;
589      }      }
590      get_reg_proxy_prefs (&proxy.host, &proxy.port, &user, &pass);      get_reg_proxy_prefs (&proxy);
591      if (user && pass)      if (user && pass)
592          kserver_update_proxyuser (user, pass);            update_proxy_user (user, pass);
593      else if (user && !pass || !user && pass) {      else if (user && !pass || !user && pass) {
594          msg_box( NULL, _("Invalid proxy configuration."          msg_box (NULL, _("Invalid proxy configuration."
595                           "You need to set a user and a password"                           "You need to set a user and a password"
596                           "to use proxy authentication!"), _("Proxy Error"), MB_ERR );                           "to use proxy authentication!"),
597                             _("Proxy Error"), MB_ERR);
598      }      }
599      /* check if the host has a http:// prefix and skip it */      /* check if the host has a http:// prefix and skip it */
600      if( proxy.host && !strncmp( proxy.host, "http://", 7 ) ) {      if (proxy.host && !strncmp (proxy.host, "http://", 7)) {
601          char *pr = m_strdup (proxy.host+7);          char *host = m_strdup (proxy.host+7);
602          if (!pr)          if (!host)
603              BUG (NULL);              BUG (0);
604          free_if_alloc (proxy.host);          free_if_alloc (proxy.host);
605          proxy.host = pr;          proxy.host = host;
606      }      }
607      free_if_alloc (user);      free_if_alloc (user);
608      free_if_alloc (pass);      free_if_alloc (pass);
609            
610      pos = 0;      pos = 0;
611      while( fp && !feof( fp ) ) {      while (fp && !feof (fp)) {
612          s = fgets (buf, sizeof (buf)-1, fp);          s = fgets (buf, sizeof (buf)-1, fp);
613          if (!s)          if (!s)
614              break;              break;
# Line 526  kserver_load_conf (const char * conf) Line 625  kserver_load_conf (const char * conf)
625                               _("Keyserver Error"), MB_ERR);                               _("Keyserver Error"), MB_ERR);
626              continue;              continue;
627          }          }
628          chk_pos=6;          chk_pos = 6;
629          if (strstr (s, "finger"))          if (strstr (s, "finger"))
630              chk_pos = 10;              chk_pos = 10;
631          p = strchr (s+chk_pos, ':');          p = strchr (s+chk_pos, ':');
# Line 547  kserver_load_conf (const char * conf) Line 646  kserver_load_conf (const char * conf)
646          }          }
647          pos++;          pos++;
648          if (pos > MAX_KEYSERVERS) {          if (pos > MAX_KEYSERVERS) {
649              msg_box (NULL, _("The keyserver limit is exceeded"), _("Keyserver Warning"), MB_INFO);              msg_box (NULL, _("The keyserver limit is exceeded"),
650                         _("Keyserver Warning"), MB_INFO);
651              break;              break;
652          }          }
653      }      }
654      if (fp)      if (fp)
655          fclose (fp);          fclose (fp);
656      if (!pos) {      if (!pos) {
657          /* only issue an error if the config file exist but it has no valid entries. */          /* only issue an error if the config file exist but
658               it has no valid entries. */
659          keyserver_set_default (NULL, HKP_PORT);          keyserver_set_default (NULL, HKP_PORT);
660          if (!no_config)          if (!no_config)
661              return WPTERR_CONFIG_FILE;                return WPTERR_CONFIG_FILE;
662      }      }
663    
664      if (!stat (conf, &statbuf))      if (!stat (conf, &statbuf))
665          conf_timestamp = statbuf.st_mtime;          conf_timestamp = statbuf.st_mtime;
666      return 0;      return 0;
667  } /* kserver_load_conf */  }
   
   
 const char *  
 kserver_get_proxy (int * r_port)  
 {  
     if (proxy.host) {  
         if (r_port)  
             *r_port = proxy.port;  
         return proxy.host;  
     }  
     return NULL;  
 } /* kserver_get_proxy */  
   
   
 const char *  
 kserver_get_proxy_info (int id)  
 {  
     switch (id) {    
     case PROXY_USER: return proxy.user;  
     case PROXY_PASS: return proxy.pass;  
     }  
     return NULL;  
 } /* kserver_get_proxy_info */  
668    
669    
670  /* Connect to the keyserver @hostname. */  /* Connect to the keyserver @hostname (port @port).
671       Return value: 0 on success */
672  int  int
673  kserver_connect (const char *hostname, u16 port, int *conn_fd)  kserver_connect (const char *hostname, WORD port, int *conn_fd)
674  {  {
675      int rc, fd;      int rc, fd;
676      u32 iaddr;      DWORD iaddr;
677      char host[128] = {0};      char host[128] = {0};
678      struct hostent *hp;      struct hostent *hp;
679      struct sockaddr_in sock;      struct sockaddr_in sock;
# Line 625  kserver_connect (const char *hostname, u Line 704  kserver_connect (const char *hostname, u
704          memcpy (&sock.sin_addr, hp->h_addr, hp->h_length);          memcpy (&sock.sin_addr, hp->h_addr, hp->h_length);
705      }      }
706      else {      else {
707          log_debug ("gethostbyname: failed.\r\n");          log_debug ("gethostbyname: failed ec=%d.\r\n", net_errno);
708          return WPTERR_WINSOCK_RESOLVE;          return WPTERR_WINSOCK_RESOLVE;
709      }      }
710      fd = socket (AF_INET, SOCK_STREAM, 0);      fd = socket (AF_INET, SOCK_STREAM, 0);
# Line 633  kserver_connect (const char *hostname, u Line 712  kserver_connect (const char *hostname, u
712          return WPTERR_WINSOCK_SOCKET;          return WPTERR_WINSOCK_SOCKET;
713      rc = connect (fd, (struct sockaddr *) &sock, sizeof (sock));      rc = connect (fd, (struct sockaddr *) &sock, sizeof (sock));
714      if (rc == SOCKET_ERROR) {      if (rc == SOCKET_ERROR) {
715          log_debug ("connect: failed.\r\n");          log_debug ("connect: failed ec=%d.\r\n", net_errno);
716          closesocket (fd);          closesocket (fd);
717          return WPTERR_WINSOCK_CONNECT;          return WPTERR_WINSOCK_CONNECT;
718      }      }
719    
720        if (proxy.proto != PROXY_PROTO_HTTP) {
721            rc = socks_handshake (&proxy, fd, hostname, port);
722            if (rc) {
723                closesocket (fd);
724                return WPTERR_GENERAL; /* XXX: use better code. */
725            }
726        }
727    
728      if (conn_fd)      if (conn_fd)
729          *conn_fd = fd;          *conn_fd = fd;
730      WSASetLastError (0);      WSASetLastError (0);
731      return 0;      return 0;
732  } /* kserver_connect */  }
733    
734    
735  /* Perform URL-encoding on the given pubkey blob. */  static bool
736  static char*  URL_must_encoded (const char *url)
 kserver_urlencode (const char *pubkey, size_t octets, size_t *newlen)  
737  {  {
738      char *p, numbuf[5];      if (strchr (url, '.') || strchr (url, '@') || strchr (url, ' '))
739      size_t j = 0;          return true;
740      size_t i, size;      return false;
741        }
     p = new char [2*octets];  
     if (!p)  
         BUG (0);  
742    
743      for (size=0, i=0; i < octets; i++) {  
744          if (isalnum (pubkey[i]) || pubkey[i] == '-') {  /* Perform URL encoding of the given data. */
745              p[size] = pubkey[i];  static char*
746              size++;  URL_encode (const char *url, size_t ulen, size_t *ret_nlen)
747          }  {
748          else if (pubkey[i] == ' ') {      gpgme_data_t hd;
749              p[size] = '+';      char numbuf[5], *pp, *p;
750              size++;      size_t i, n;
751          }  
752        gpgme_data_new (&hd);
753        for (i=0; i < ulen; i++) {
754            if (isalnum (url[i]) || url[i] == '-')
755                gpg_data_putc (hd, url[i]);
756            else if (url[i] == ' ')
757                gpg_data_putc (hd, '+');
758          else {          else {
759              sprintf(numbuf, "%%%02X", pubkey[i]);              sprintf (numbuf, "%%%02X", url[i]);
760              for (j = 0; j<strlen(numbuf); j++) {              gpgme_data_write (hd, numbuf, strlen (numbuf));
                 p[size] = numbuf[j];  
                 size++;  
             }  
761          }          }
762      }      }
763      p[size] = '\0';      gpg_data_putc (hd, '\0');
764      *newlen = size;  
765        /* Copy memory to avoid that we need to use gpgme_free later. */
766        pp = gpgme_data_release_and_get_mem (hd, &n);
767        p = m_strdup (pp);
768        gpgme_free (pp);
769        if (ret_nlen)
770            *ret_nlen = n;
771      return p;      return p;
772  }  }
773    
774    
775  /* Format a request for the given keyid (send). */  /* Format a request for the given keyid (send). */
776  static char*  static char*
777  kserver_send_request (const char *hostname, u16 port, const char *pubkey, int octets)  kserver_send_request (const char *hostname, WORD port,
778                          const char *pubkey, int octets)
779  {  {
780      char *request = NULL, *enc_pubkey = NULL;      char *request = NULL;
781      int reqlen;      char *enc_pubkey = NULL;
782      size_t enc_octets;      size_t enc_octets;
783        int reqlen;
784    
785      log_debug ("kserver_send_request: %s:%d\n", hostname, port);      log_debug ("kserver_send_request: %s:%d\r\n", hostname, port);
786    
787      if (!port)      if (!port)
788          port = HKP_PORT;          port = HKP_PORT;
# Line 696  kserver_send_request (const char *hostna Line 790  kserver_send_request (const char *hostna
790      request = new char[reqlen];      request = new char[reqlen];
791      if (!request)      if (!request)
792          BUG (0);          BUG (0);
793      enc_pubkey = kserver_urlencode (pubkey, octets, &enc_octets);      enc_pubkey = URL_encode (pubkey, octets, &enc_octets);
794      if (!enc_pubkey || !enc_octets) {      if (!enc_pubkey || !enc_octets) {
795          free_if_alloc (request);          free_if_alloc (request);
796          return NULL;          return NULL;
797      }      }
798            
799      if (proxy.user) {      if (proxy.user && proxy.proto == PROXY_PROTO_HTTP) {
800          _snprintf (request, reqlen-1,          _snprintf (request, reqlen-1,
801                     "POST http://%s:%d/pks/add HTTP/1.0\r\n"                     "POST http://%s:%d/pks/add HTTP/1.0\r\n"
802                     "Referer: \r\n"                     "Referer: \r\n"
# Line 728  kserver_send_request (const char *hostna Line 822  kserver_send_request (const char *hostna
822                     "\r\n"                     "\r\n"
823                     "keytext=%s"                     "keytext=%s"
824                     "\n",                     "\n",
825                     skip_type_prefix (hostname), port, enc_octets+9, enc_pubkey);                     skip_type_prefix (hostname), port,
826                       enc_octets+9, enc_pubkey);
827      }      }
828      free_if_alloc (enc_pubkey);      free_if_alloc (enc_pubkey);
829    
830      log_debug ("%s\n", request);      log_debug ("%s\r\n", request);
831      return request;      return request;
832  } /* kserver_send_request */  }
833    
834    
 /* Interface receiving a public key. */  
835  int  int
836  kserver_recvkey (const char *hostname, u16 port, const char *keyid, char *key, int maxkeylen)  kserver_recvkey_ext (const char *hostname, WORD port, const char *keyid,
837  {                             char **r_key, int *r_keylen)
838      int rc, n;  {
     int conn_fd;  
839      char *request = NULL;      char *request = NULL;
840            int conn_fd;
841        int rc, n;
842    
843      if (!port)      if (!port)
844          port = HKP_PORT;          port = HKP_PORT;
845      hkp_err = 0; /* reset */          hkp_err = 0; /* reset */    
# Line 756  kserver_recvkey (const char *hostname, u Line 851  kserver_recvkey (const char *hostname, u
851      if (!request)      if (!request)
852          BUG (0);          BUG (0);
853            
854      if (proxy.host && proxy.user) {      if (proxy.host && proxy.user && proxy.proto == PROXY_PROTO_HTTP) {
855          _snprintf (request, 300,          _snprintf (request, 300,
856              "GET http://%s:%d/pks/lookup?op=get&search=%s HTTP/1.0\r\n"              "GET http://%s:%d/pks/lookup?op=get&search=%s HTTP/1.0\r\n"
857              "Proxy-Authorization: Basic %s\r\n\r\n",              "Proxy-Authorization: Basic %s\r\n\r\n",
858              skip_type_prefix (hostname), port, keyid, proxy.base64_user);              skip_type_prefix (hostname), port, keyid, proxy.base64_user);
859      }      }
860      else if (proxy.host) {      else if (proxy.host && proxy.proto == PROXY_PROTO_HTTP) {
861          _snprintf (request, 300,          _snprintf (request, 300,
862              "GET http://%s:%d/pks/lookup?op=get&search=%s HTTP/1.0\r\n\r\n",              "GET http://%s:%d/pks/lookup?op=get&search=%s HTTP/1.0\r\n\r\n",
863              skip_type_prefix (hostname), port, keyid);              skip_type_prefix (hostname), port, keyid);
# Line 780  kserver_recvkey (const char *hostname, u Line 875  kserver_recvkey (const char *hostname, u
875          goto leave;          goto leave;
876      }      }
877            
878      rc = sock_read( conn_fd, key, maxkeylen, &n );      rc = sock_read_ext (conn_fd, r_key, &n);
879      if( rc == SOCKET_ERROR ) {      if (rc == SOCKET_ERROR) {
880          rc = WPTERR_WINSOCK_RECVKEY;          rc = WPTERR_WINSOCK_RECVKEY;
881          goto leave;          goto leave;
882      }      }
883    
884      log_debug("%s\r\n", key);      if (r_keylen)
885      rc = check_hkp_response (key, 1);          *r_keylen = n;
886        log_debug("%s\r\n", *r_key);
887        rc = check_hkp_response (*r_key, 1);
888      if (rc)      if (rc)
889          goto leave;          goto leave;
890            
# Line 797  leave: Line 894  leave:
894      closesocket (conn_fd);      closesocket (conn_fd);
895      free_if_alloc (request);      free_if_alloc (request);
896      return rc;      return rc;
897  } /* kserver_recvkey */  }
898    
899    /* Interface for receiving a public key. */
900    int
901    kserver_recvkey (const char *hostname, WORD port, const char *keyid,
902                     char *key, int maxkeylen)
903    {
904        char *tmpkey;
905        int rc, nread=0;
906    
907        /* XXX: just a wrapper around the new method, replace it
908                soon as possible. */
909        rc = kserver_recvkey_ext (hostname, port, keyid, &tmpkey, &nread);
910        if (rc)
911            return rc;
912    
913        if (nread > maxkeylen) {
914            free_if_alloc (tmpkey);
915            return WPTERR_GENERAL;
916        }
917        strcpy (key, tmpkey);
918        free_if_alloc (tmpkey);
919        return 0;
920    }
921    
922    
923  /* Interface to send a public key. */  /* Interface to send a public key. */
924  int  int
925  kserver_sendkey (const char *hostname, u16 port, const char *pubkey, int len )  kserver_sendkey (const char *hostname, WORD port, const char *pubkey, int len )
926  {  {
     int n, rc;  
     int conn_fd;  
927      char *request = NULL;      char *request = NULL;
928      char log[2048];      char log[2048];
929        int conn_fd, n;
930        int rc;
931            
932      hkp_err = 0; /* reset */      hkp_err = 0; /* reset */
933      rc = kserver_connect (hostname, port, &conn_fd);      rc = kserver_connect (hostname, port, &conn_fd);
# Line 820  kserver_sendkey (const char *hostname, u Line 940  kserver_sendkey (const char *hostname, u
940          goto leave;              goto leave;    
941      }      }
942            
943      rc = sock_write( conn_fd, request, lstrlen(request) );      rc = sock_write (conn_fd, request, strlen (request));
944      if( rc == SOCKET_ERROR ) {      if (rc == SOCKET_ERROR) {
945          rc = WPTERR_WINSOCK_SENDKEY;          rc = WPTERR_WINSOCK_SENDKEY;
946          goto leave;              goto leave;    
947      }      }
948            
949      rc = sock_read( conn_fd, log, sizeof (log)-1, &n );      rc = sock_read (conn_fd, log, sizeof (log)-1, &n);
950      if( rc == SOCKET_ERROR ) {      if (rc == SOCKET_ERROR) {
951          rc = WPTERR_WINSOCK_SENDKEY;          rc = WPTERR_WINSOCK_SENDKEY;
952          goto leave;          goto leave;
953      }      }
954    
955      log_debug ("kserver_sendkey:\r\n%s\r\n", log);      log_debug ("kserver_sendkey:\r\n%s\r\n", log);
       
956      rc = check_hkp_response (log, 0);      rc = check_hkp_response (log, 0);
957      if( rc )      if (rc)
958          goto leave;          goto leave;
959            
960      WSASetLastError (0);      WSASetLastError (0);
# Line 844  leave: Line 963  leave:
963      closesocket (conn_fd);      closesocket (conn_fd);
964      free_if_alloc (request);      free_if_alloc (request);
965      return rc;      return rc;
966  } /* kserver_sendkey */  }
967    
968    
969  int  int
970  kserver_search_init (const char * hostname, u16 port, const char * keyid, int * conn_fd)  kserver_search_init (const char *hostname, WORD port,
971                         const char *keyid, int *conn_fd)
972  {  {
973        char *request = NULL;
974        char *enc_keyid = NULL;
975        int n = 0;
976      int rc, sock_fd;      int rc, sock_fd;
     int n=0;  
     char * request = NULL;  
977            
978      rc = kserver_connect (hostname, port, &sock_fd);      rc = kserver_connect (hostname, port, &sock_fd);
979      if (rc) {      if (rc) {
980          *conn_fd = 0;          *conn_fd = 0;
981          goto leave;          goto leave;
982      }      }
983        
984        enc_keyid = URL_encode (keyid, strlen (keyid), NULL);
985      n=300;      n=300;
986      request = new char[n+1];      request = new char[n+1];
987      if (!request)      if (!request)
988          BUG (0);          BUG (0);
989            
990      if (proxy.host && proxy.user) {      if (proxy.host && proxy.user && proxy.proto == PROXY_PROTO_HTTP) {
991          _snprintf (request, n,          _snprintf (request, n,
992              "GET http://%s:%d/pks/lookup?op=index&search=%s HTTP/1.0\r\n"              "GET http://%s:%d/pks/lookup?op=index&search=%s HTTP/1.0\r\n"
993              "Proxy-Authorization: Basic %s\r\n\r\n",              "Proxy-Authorization: Basic %s\r\n\r\n",
994              skip_type_prefix (hostname), port, keyid, proxy.base64_user);              skip_type_prefix (hostname), port, enc_keyid, proxy.base64_user);
995      }          }    
996      else if (proxy.host) {      else if (proxy.host && proxy.proto == PROXY_PROTO_HTTP) {
997          _snprintf (request, n,          _snprintf (request, n,
998              "GET http://%s:%d/pks/lookup?op=index&search=%s HTTP/1.0\r\n\r\n",              "GET http://%s:%d/pks/lookup?op=index&search=%s HTTP/1.0\r\n\r\n",
999              skip_type_prefix (hostname), port, keyid);              skip_type_prefix (hostname), port, enc_keyid);
1000      }      }
1001      else {      else {
1002          _snprintf (request, n,          _snprintf (request, n,
1003                     "GET /pks/lookup?op=index&search=%s HTTP/1.0\r\n\r\n", keyid);                     "GET /pks/lookup?op=index&search=%s HTTP/1.0\r\n\r\n",
1004                       enc_keyid);
1005      }      }
1006            
1007      log_debug ("kserver_search_init:\r\n%s\r\n", request);      log_debug ("kserver_search_init:\r\n%s\r\n", request);
# Line 892  kserver_search_init (const char * hostna Line 1015  kserver_search_init (const char * hostna
1015            
1016  leave:  leave:
1017      free_if_alloc (request);      free_if_alloc (request);
1018        free_if_alloc (enc_keyid);
1019      return rc;      return rc;
1020  } /* kserver_search_init */  }
1021    
1022    
1023    /* Check keyserver response. */
1024  int  int
1025  kserver_search_chkresp (int fd)  kserver_search_chkresp (int fd)
1026  {  {
# Line 912  kserver_search_chkresp (int fd) Line 1037  kserver_search_chkresp (int fd)
1037      if (strncmp (buf+(8+1), "200", 3))      if (strncmp (buf+(8+1), "200", 3))
1038          return WPTERR_KEYSERVER_NOTFOUND;          return WPTERR_KEYSERVER_NOTFOUND;
1039      return 0;      return 0;
1040  } /* kserver_search_chkresp */  }
1041    
1042    
1043    /* Convert an iso date @iso_date (YYYY-MM-DD) into the locale
1044       representation and store it into @loc_date.
1045       Return value: 0 on success. */
1046    static int
1047    parse_iso_date (const char *iso_date, char *loc_date, size_t loclen)
1048    {
1049        SYSTEMTIME st;
1050        char buf[16] = {0}, *p;
1051        int pos=0;
1052    
1053        strncpy (buf, iso_date, sizeof (buf)-1);
1054        p = strtok (buf, "-");
1055        while (p != NULL) {
1056            switch (pos) {
1057            case 0: st.wYear  = (WORD)atoi (p); pos++; break;
1058            case 1: st.wMonth = (WORD)atoi (p); pos++; break;
1059            case 2: st.wDay   = (WORD)atoi (p); pos++; break;
1060            default: break;
1061            }
1062            p = strtok (NULL, "-");
1063        }
1064        if (pos != 3)
1065            return -1;
1066        
1067        if (!GetDateFormat (LOCALE_USER_DEFAULT, DATE_SHORTDATE, &st,
1068                            NULL, loc_date, loclen))
1069            return -1;
1070        return 0;
1071    }
1072    
1073    
1074  int  int
1075  kserver_search (int fd, keyserver_key * key)  kserver_search (int fd, keyserver_key *key)
1076  {  {
1077      char buf[1024], *p;      char buf[1024], *p;
1078      int uidlen, nbytes, pos = 0;      int uidlen, nbytes, pos = 0;
1079    
1080      log_debug ("keyserver_search:\n");      log_debug ("keyserver_search:\r\n");
1081            
1082      if (sock_getline (fd, buf, sizeof (buf) - 1, &nbytes))      if (sock_getline (fd, buf, sizeof (buf) - 1, &nbytes))
1083          return WPTERR_GENERAL;          return WPTERR_GENERAL;
1084    
1085      log_debug ("%s\n", buf);      log_debug ("%s\r\n", buf);
1086            
1087      if (!strncmp (buf, "pub", 3)) {      if (!strncmp (buf, "pub", 3)) {
1088          int revoked = strstr (buf, "KEY REVOKED") != NULL? 1 : 0;          int revoked = strstr (buf, "KEY REVOKED") != NULL? 1 : 0;
# Line 943  kserver_search (int fd, keyserver_key * Line 1099  kserver_search (int fd, keyserver_key *
1099          pos = p - buf + 5;          pos = p - buf + 5;
1100          memcpy (key->date, buf + pos, 10);          memcpy (key->date, buf + pos, 10);
1101          key->date[10] = '\0';          key->date[10] = '\0';
1102            parse_iso_date (key->date, key->date, sizeof (key->date)-1);
1103          if (revoked) {          if (revoked) {
1104              strcpy (key->uid, "KEY REVOKED: not checked");              strcpy (key->uid, "KEY REVOKED: not checked");
1105              return 0;              return 0;
# Line 953  kserver_search (int fd, keyserver_key * Line 1110  kserver_search (int fd, keyserver_key *
1110              p++;              p++;
1111          p++;          p++;
1112          uidlen = strlen (p) - 10;          uidlen = strlen (p) - 10;
1113            if (!strstr (p, "&lt;") && !strstr (p, "&gt;")) {
1114                pos=0;
1115                while (p && *p && pos < sizeof (key->uid)-1) {
1116                    if (*p == '<')
1117                        break;
1118                    key->uid[pos++] = *p++;
1119                }
1120                key->uid[pos] ='\0';
1121                return 0;
1122            }
1123    
1124            if (uidlen > sizeof (key->uid)-1)
1125                uidlen = sizeof (key->uid)-1;
1126          memcpy (key->uid, p, uidlen);          memcpy (key->uid, p, uidlen);
1127          key->uid[uidlen] = '\0';          key->uid[uidlen] = '\0';
1128          strcat (key->uid, ">");          strcat (key->uid, ">");
1129          p = strchr (key->uid, '&');          p = strchr (key->uid, '&');
1130          if (p) {          if (p) {
1131              key->uid[(p-key->uid)] = '<';              key->uid[(p-key->uid)] = '<';
1132              memmove (key->uid+(p-key->uid)+1, key->uid+(p-key->uid)+4, strlen (key->uid)-3);              memmove (key->uid+(p-key->uid)+1, key->uid+(p-key->uid)+4,
1133                         strlen (key->uid)-3);
1134          }          }
1135          return 0;          return 0;
1136      }      }
# Line 968  fail: Line 1139  fail:
1139      key->bits = 0;      key->bits = 0;
1140      memset (key, 0, sizeof *key);      memset (key, 0, sizeof *key);
1141      return 0;      return 0;
1142  } /* kserver_search */  }
   
   
 static int  
 add_node( keyserver_cfgfile *cfg, const char *entry )  
 {  
     keyserver_node *node;  
     char *p = NULL;  
       
     p = strchr( entry, '=' );  
     if( p == NULL )  
         return WPTERR_GENERAL;    
     node = new keyserver_node;  
     if( !node )  
         BUG( NULL );  
       
     memset( node, 0, sizeof *node );  
     node->used = 1;  
       
     node->host.used = 1;  
     node->host.proto = proto_from_URL( entry );  
     memcpy( node->host.name, entry+7, p-entry-7 );  
     node->next = cfg->list;  
     cfg->list = node;  
       
     return 0;  
 } /* add_node */  
1143    
1144    
1145    /* Release mbmers in the proxy context @ctx. */
1146  void  void
1147  kserver_change_proxy( keyserver_proxy_ctx *ctx )  kserver_proxy_release (keyserver_proxy_t ctx)
 {      
     proxy.port = ctx->port;  
     free_if_alloc (proxy.host);  
     proxy.host = ctx->host? m_strdup( ctx->host ) : NULL;  
     free_if_alloc( proxy.pass );  
     proxy.pass = ctx->pass? m_strdup( ctx->pass ) : NULL;  
     free_if_alloc( proxy.user );  
     proxy.user = ctx->user? m_strdup( ctx->user ) : NULL;  
     set_reg_proxy_prefs( proxy.host, proxy.port, proxy.user, proxy.pass );  
 } /* kserver_change_proxy */  
   
   
 int  
 kserver_read_config( const char *fname, keyserver_cfgfile **ret_cfg )  
1148  {  {
1149      FILE *fp;      free_if_alloc (ctx->host);
1150      keyserver_cfgfile *cfg;      free_if_alloc (ctx->pass);
1151      char buf[256];      free_if_alloc (ctx->user);
1152      int rc = 0;  }
       
     *ret_cfg = NULL;  
     fp = fopen( fname, "rb" );  
     if( fp == NULL )  
         return WPTERR_FILE_OPEN;  
       
     cfg = new keyserver_cfgfile;  
     if ( !cfg )  
         BUG( NULL );  
     memset( cfg, 0, sizeof *cfg );  
       
     while ( !feof( fp ) ) {  
         if ( fgets( buf, sizeof(buf)-1, fp ) == NULL )  
             break;  
         if ( *buf == '\r' || *buf == '\n' || *buf == '#' )  
             continue;  
         buf[strlen(buf) -2] = '\0';  
         if ( !strncmp( buf, "use_proxy=", 10 ) ) {  
             char *p = strchr(buf, ':');  
             if (!p)  
                 continue;  
             cfg->proxy.port = atol( buf+(p-buf+1) );  
             buf[p-buf] = '\0';  
             cfg->proxy.host = m_strdup( buf+10 );  
         }  
         else if ( !strncmp( buf, "proxy_user=", 11 ) )  
             cfg->proxy.user = m_strdup( buf+11 );  
         else if ( !strncmp( buf, "proxy_pass=", 11 ) )  
             cfg->proxy.pass = m_strdup( buf+11 );  
         if ( !strncmp( buf, "http://", 7 )  
             || !strncmp( buf, "hkp://", 6 )  
             || !strncmp( buf, "ldap://", 7 ) ) {  
             add_node( cfg, buf );  
             cfg->nlist++;  
         }  
     }  
       
     fclose( fp );  
     *ret_cfg = cfg;  
       
     return rc;  
 } /* kserver_read_config */  
1153    
1154    
1155  int  /* Spawn a process given by @cmdl. */
1156  kserver_write_config( const char * fname, keyserver_cfgfile * cfg )  static int
1157    spawn_application (char *cmdl)
1158  {  {
1159            STARTUPINFO si;
1160      return 0;      PROCESS_INFORMATION pi;
1161  }      int rc = 0;
   
1162    
1163  void      memset (&si, 0, sizeof (si));
1164  kserver_cfgfile_release( keyserver_cfgfile *cfg )      si.cb = sizeof (si);
1165  {            si.dwFlags = STARTF_USESHOWWINDOW;
1166      keyserver_node *k, *k2;      si.wShowWindow = SW_HIDE;
1167        memset (&pi, 0, sizeof (pi));
1168    
1169      proxy_release( &cfg->proxy );      if (!CreateProcess (NULL, cmdl, NULL, NULL, FALSE, 0,
1170      for( k = cfg->list; cfg->nlist--; k = k2 ) {                          NULL, NULL, &si, &pi)) {
1171          k2 = k->next;          log_box ("Keyserver Plugin", MB_ERR, "Could not spawn helper process");
1172          free_if_alloc( k );              rc = -1;
1173      }      }
     free_if_alloc( cfg );  
 } /* kserver_cfgfile_release */  
   
1174    
1175  void      CloseHandle (pi.hThread);
1176  proxy_release( keyserver_proxy_ctx *ctx )      WaitForSingleObject (pi.hProcess, INFINITE);
1177  {      CloseHandle (pi.hProcess);
1178      free_if_alloc( ctx->host );      return rc;
1179      free_if_alloc( ctx->pass );  }
     free_if_alloc( ctx->user );  
 } /* proxy_release */  
1180    
1181    
1182  int  /* Receive an key via LDAP from host @host with the keyid @keyid.
1183  ldap_recvkey (const char * host, const char * keyid, char * key, int maxkeylen)     @key contains the key on success. */
1184  {  int
1185    ldap_recvkey (const char *host, const char *keyid, char *key, int maxkeylen)
1186    {    
1187        FILE *fp;
1188      const char *s;      const char *s;
1189      char *ksprg = NULL, *p = NULL;      char *ksprg = NULL, *p = NULL, *sep;
1190      char temp[512], outf[512];      char inf[256], outf[256], buf[512];
1191      FILE * inp;      DWORD n;
1192      int rc, start_key = 0;      int start_key = 0, failed = 0;
1193      STARTUPINFO si;      int rc = 0;
     PROCESS_INFORMATION pi;  
1194    
1195      p = get_gnupg_path ();      p = get_gnupg_prog ();
1196      ksprg = new char[strlen (p) + 1 + 128];      n = strlen (p) + 1 + 128;
1197        ksprg = new char[n+1];
1198      if (!ksprg)      if (!ksprg)
1199          BUG (0);          BUG (0);
1200      strcpy (ksprg, p);      sep = strrchr (p, '\\');
1201      strcat (ksprg, "\\");      if (sep != NULL)
1202      strcat (ksprg, "gpgkeys_ldap.exe");          p[(sep-p)] = 0;
1203    
1204        _snprintf (ksprg, n, "%s\\gpgkeys_ldap.exe", p);
1205      free_if_alloc (p);      free_if_alloc (p);
1206      if (file_exist_check (ksprg)) {      if (file_exist_check (ksprg)) {
1207          log_box ( "LDAP Keyserver Plugin", MB_ERR, "Could not find LDAP keyserver module!");          log_box ("LDAP Keyserver Plugin", MB_ERR,
1208          rc = -1;                   "%s: could not find LDAP keyserver module!", ksprg);
1209            rc = -1;
1210          goto leave;          goto leave;
1211      }      }
1212      GetTempPath (sizeof (temp)-1, temp);      get_temp_name (outf, sizeof (outf)-1, keyid);
1213      strcpy (outf, temp);      get_temp_name (inf, sizeof (inf)-1, NULL);
1214      strcat (outf, keyid);      fp = fopen (inf, "w+b");
1215      strcat (outf, ".out");      if (!fp) {
1216      strcat (temp, keyid);          log_box ("LDAP Keyserver Plugin", MB_ERR, "%s: %s", inf,
     inp = fopen (temp, "w+b");  
     if( !inp ) {  
         log_box ("LDAP Keyserver Plugin", MB_ERR, "%s: %s", temp,  
1217                   winpt_strerror (WPTERR_FILE_OPEN));                   winpt_strerror (WPTERR_FILE_OPEN));
1218          rc = -1;          rc = -1;
1219          goto leave;          goto leave;
1220      }      }
1221      fprintf (inp,      fprintf (fp,
1222          "VERSION 0\n"          "VERSION 1\n"
1223            "PROGRAM 1.4.3-cvs\n"
1224            "SCHEME ldap\n"
1225          "HOST %s\n"          "HOST %s\n"
         "OPTION verbose\n"  
1226          "COMMAND GET\n"          "COMMAND GET\n"
1227          "\n"          "\n"
1228          "%s\n", host? skip_type_prefix (host): "64.94.85.200", keyid);          "%s\n",
1229      fclose (inp);          host? skip_type_prefix (host): "64.94.85.200", keyid);
1230        fclose (fp);
1231    
1232      memset (&si, 0, sizeof (si));      p = new char[strlen (ksprg) + strlen (inf) + strlen (outf) + 32];
1233      si.cb = sizeof (si);      if (!p)
1234      si.dwFlags = STARTF_USESHOWWINDOW;          BUG (NULL);
1235      si.wShowWindow = SW_HIDE;      sprintf (p, "%s -o %s %s", ksprg, outf, inf);
1236      memset (&pi, 0, sizeof (pi));      if (spawn_application (p)) {
     p = new char[strlen (ksprg) + strlen (temp) + strlen (outf) + 32];  
     sprintf (p, "%s -o %s %s", ksprg, outf, temp);  
     rc = CreateProcess (NULL, p, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);  
     if (!rc) {  
         log_box ("LDAP Keyserver Plugin", MB_ERR, "Could not spawn process");  
1237          rc = -1;          rc = -1;
1238          goto leave;          goto leave;
1239      }      }
     CloseHandle (pi.hThread);  
     WaitForSingleObject (pi.hProcess, INFINITE);  
     CloseHandle (pi.hProcess);  
1240    
1241      inp = fopen (outf, "rb");      fp = fopen (outf, "rb");
1242      if (!inp) {      if (!fp) {
1243          log_box ("LDAP Keyserver Plugin", MB_ERR, "%s: %s", outf,          log_box ("LDAP Keyserver Plugin", MB_ERR, "%s: %s", outf,
1244                   winpt_strerror (WPTERR_FILE_OPEN));                   winpt_strerror (WPTERR_FILE_OPEN));
1245          rc = -1;          rc = -1;
1246          goto leave;          goto leave;
1247      }      }
1248      memset (key, 0, maxkeylen);      memset (key, 0, maxkeylen);
1249      while( !feof( inp ) ) {      while (!feof (fp)) {
1250          s = fgets( temp, sizeof (temp)-1, inp );          s = fgets (buf, sizeof (buf)-1, fp);
1251          if( !s )          if (!s)
1252              break;              break;
1253          if( !start_key && strstr( s, "KEY" ) && strstr( s, "BEGIN" ) ) {          if (strstr (s, "KEY") && strstr (s, "FAILED")) {
1254                failed = 1;
1255                break;
1256            }
1257            if (!start_key && strstr (s, "KEY") && strstr (s, "BEGIN")) {
1258              start_key = 1;              start_key = 1;
1259              continue;              continue;
1260          }                }      
1261          if( !start_key )          if (!start_key)
1262              continue;              continue;
1263          strcat( key, temp );          strcat (key, buf);
1264          maxkeylen -= strlen( temp );          maxkeylen -= strlen (buf);
1265          if( maxkeylen < 0 || (strstr( s, "KEY" ) && strstr( s, "END" )) )                    if (maxkeylen < 0 || (strstr (s, "KEY") && strstr (s, "END")))
1266              break;              break;
1267      }      }
1268      fclose( inp );          fclose (fp);
1269    
1270  leave:  leave:
1271      if( !strlen( key ) )      if (failed || !strlen (key))
1272          rc = WPTERR_WINSOCK_RECVKEY;          rc = WPTERR_WINSOCK_RECVKEY;
1273      free_if_alloc( p );      DeleteFile (inf);
1274      free_if_alloc( ksprg );      DeleteFile (outf);
1275        free_if_alloc (p);
1276        free_if_alloc (ksprg);
1277      return rc;      return rc;
 } /* ldap_recvkey */  
   
   
 static int  
 finger_readline (int fd, char * buf, int nbytes)  
 {  
     char c = 0;  
     int n, pos = 0;  
       
     while (nbytes > 0) {  
         n = recv (fd, &c, 1, 0);  
         if (n <= 0)  
             break;  
         if (c == '\n')  
             break;  
         buf[pos++] = c;  
         nbytes--;  
     }  
     if (nbytes > 0)  
         buf[pos++] = '\0';  
     if (n <= 0)  
         pos = n;  
     return pos;  
1278  }  }
1279    
1280    
1281    /* Receive an key via FINGER from host @host with the user @user.
1282       On success @key contains the key. */
1283  int  int
1284  finger_recvkey (const char * host, const char * user, char * key, int maxkeylen)  finger_recvkey (const char *host, const char *user, char *key, int maxkeylen)
1285  {  {
     struct hostent * hp;  
     struct sockaddr_in saddr;  
1286      char buf[128];      char buf[128];
1287      int fd, nread;      int fd, nread;
1288      int start_key = 0;      int start_key = 0;
1289      int rc=0;      int rc=0;
1290    
1291      fd = socket (PF_INET, SOCK_STREAM, 0);      rc = kserver_connect (host, FINGER_PORT, &fd);
1292      if (fd == -1)      if (rc)
1293          return WPTERR_WINSOCK_SOCKET;          return rc;
     hp = gethostbyname (skip_type_prefix (host));  
     if (!hp) {  
         closesocket (fd);  
         return WPTERR_WINSOCK_RESOLVE;  
     }  
1294    
1295      memset (&saddr, 0, sizeof (saddr));      sock_write (fd, user, strlen (user));
1296      saddr.sin_family = AF_INET;      sock_write (fd, "\r\n", 2);
     saddr.sin_port = htons (FINGER_PORT);  
     saddr.sin_addr = *(struct in_addr *)hp->h_addr;  
     if (connect (fd, (struct sockaddr *)&saddr, sizeof (saddr))) {  
         closesocket (fd);  
         return WPTERR_WINSOCK_CONNECT;  
     }  
     send (fd, user, strlen (user), 0);  
     send (fd, "\r\n", 2, 0);  
1297    
1298      memset (key, 0, maxkeylen);      memset (key, 0, maxkeylen);
1299      while (maxkeylen > 0) {      while (maxkeylen > 0) {
1300          nread = finger_readline (fd, buf, sizeof (buf)-1);          if (sock_getline (fd, buf, sizeof (buf), &nread))
1301          if (nread <= 0)              break;
             break;  
1302          strcat (buf, "\n");          strcat (buf, "\n");
1303          if (strstr (buf, "BEGIN PGP PUBLIC KEY BLOCK")) {          if (strstr (buf, "BEGIN PGP PUBLIC KEY BLOCK")) {
1304              strcat (key, buf);              strcat (key, buf);
# Line 1271  finger_recvkey (const char * host, const Line 1323  finger_recvkey (const char * host, const
1323  }  }
1324    
1325    
1326    /* Check if the given name @name is a valid hostname. */
1327  int  int
1328  check_IP_or_hostname (const char *name)  check_IP_or_hostname (const char *name)
1329  {  {

Legend:
Removed from v.73  
changed lines
  Added in v.180

[email protected]
ViewVC Help
Powered by ViewVC 1.1.26