X-Git-Url: http://sjero.net/git/?a=blobdiff_plain;f=src%2Fgen_sslfunc.c;h=98e75a1dba6258d77b840a1b05b093aae79b3010;hb=d9fea91a0a319e348adb504bd3edff148ff3d8a0;hp=be5e31e20801e2c41fe7f5b0ad3c60673aebd273;hpb=0b056d17201d2bae32857dbec4c8f7a95578cdf9;p=wget diff --git a/src/gen_sslfunc.c b/src/gen_sslfunc.c index be5e31e2..98e75a1d 100644 --- a/src/gen_sslfunc.c +++ b/src/gen_sslfunc.c @@ -16,14 +16,30 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License along with Wget; if not, write to the Free Software -Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ +Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. -#include +In addition, as a special exception, the Free Software Foundation +gives permission to link the code of its release of Wget with the +OpenSSL project's "OpenSSL" library (or with modified versions of it +that use the same license as the "OpenSSL" library), and distribute +the linked executables. You must obey the GNU General Public License +in all respects for all of the code used other than "OpenSSL". If you +modify this file, you may extend this exception to your version of the +file, but you are not obligated to do so. If you do not wish to do +so, delete this exception statement from your version. */ -#ifdef HAVE_SSL +#include #include #include +#ifdef HAVE_UNISTD_H +# include +#endif +#ifdef HAVE_STRING_H +# include +#else +# include +#endif #include #include @@ -31,75 +47,75 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include #include +#include #include "wget.h" +#include "utils.h" #include "connect.h" +#include "url.h" #ifndef errno extern int errno; #endif -static int verify_callback PARAMS ((int, X509_STORE_CTX *)); +SSL_CTX *ssl_ctx; -/* Creates a SSL Context and sets some defaults for it */ -uerr_t -init_ssl (SSL_CTX **ctx) +static void +ssl_init_prng (void) { - SSL_METHOD *meth = NULL; - int verify = SSL_VERIFY_NONE; - SSL_library_init (); - SSL_load_error_strings (); - SSLeay_add_all_algorithms (); - SSLeay_add_ssl_algorithms (); - meth = SSLv23_client_method (); - *ctx = SSL_CTX_new (meth); - SSL_CTX_set_verify (*ctx, verify, verify_callback); - if (*ctx == NULL) return SSLERRCTXCREATE; - if (opt.sslcertfile) - { - if (SSL_CTX_use_certificate_file (*ctx, opt.sslcertfile, - SSL_FILETYPE_PEM) <= 0) - return SSLERRCERTFILE; - if (opt.sslcertkey == NULL) - opt.sslcertkey=opt.sslcertfile; - if (SSL_CTX_use_PrivateKey_file (*ctx, opt.sslcertkey, - SSL_FILETYPE_PEM) <= 0) - return SSLERRCERTKEY; - } - return 0; /* Succeded */ -} + /* It is likely that older versions of OpenSSL will fail on + non-Linux machines because this code is unable to seed the PRNG + on older versions of the library. */ -/* Sets up a SSL structure and performs the handshake on fd - Returns 0 if everything went right - Returns 1 if something went wrong ----- TODO: More exit codes -*/ -int -connect_ssl (SSL **con, SSL_CTX *ctx, int fd) -{ - *con = (SSL *)SSL_new (ctx); - SSL_set_fd (*con, fd); - SSL_set_connect_state (*con); - SSL_connect (*con); - if ((*con)->state != SSL_ST_OK) - return 1; - return 0; -} +#if SSLEAY_VERSION_NUMBER >= 0x00905100 + char rand_file[256]; + int maxrand = 500; -void -shutdown_ssl (SSL* con) -{ - SSL_shutdown (con); - if (con != NULL) - SSL_free (con); -} + /* First, seed from a file specified by the user. This will be + $RANDFILE, if set, or ~/.rnd. */ + RAND_file_name (rand_file, sizeof (rand_file)); + if (rand_file) + /* Seed at most 16k (value borrowed from curl) from random file. */ + RAND_load_file (rand_file, 16384); -void -free_ssl_ctx (SSL_CTX * ctx) -{ - SSL_CTX_free (ctx); + if (RAND_status ()) + return; + + /* Get random data from EGD if opt.sslegdsock was set. */ + if (opt.sslegdsock && *opt.sslegdsock) + RAND_egd (opt.sslegdsock); + + if (RAND_status ()) + return; + +#ifdef WINDOWS + /* Under Windows, we can try to seed the PRNG using screen content. + This may or may not work, depending on whether we'll calling Wget + interactively. */ + + RAND_screen (); + if (RAND_status ()) + return; +#endif + + /* Still not enough randomness, most likely because neither + /dev/random nor EGD were available. Resort to a simple and + stupid method -- seed OpenSSL's PRNG with libc PRNG. This is + cryptographically weak, but people who care about strong + cryptography should install /dev/random (default on Linux) or + specify their own source of randomness anyway. */ + + logprintf (LOG_VERBOSE, _("Warning: using a weak random seed.\n")); + + while (RAND_status () == 0 && maxrand-- > 0) + { + unsigned char rnd = random_number (256); + RAND_seed (&rnd, sizeof (rnd)); + } +#endif /* SSLEAY_VERSION_NUMBER >= 0x00905100 */ } -int +static int verify_callback (int ok, X509_STORE_CTX *ctx) { char *s, buf[256]; @@ -108,116 +124,240 @@ verify_callback (int ok, X509_STORE_CTX *ctx) switch (ctx->error) { case X509_V_ERR_CERT_NOT_YET_VALID: case X509_V_ERR_CERT_HAS_EXPIRED: + /* This mean the CERT is not valid !!! */ + ok = 0; + break; case X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT: + /* Unsure if we should handle that this way */ ok = 1; + break; } } return ok; } -/* pass all ssl errors to DEBUGP - returns the number of printed errors */ -int -ssl_printerrors (void) +/* Print SSL errors. */ + +void +ssl_print_errors (void) { - int ocerr = 0; unsigned long curerr = 0; char errbuff[1024]; - memset(errbuff, 0, sizeof(errbuff)); - for (curerr = ERR_get_error (); curerr; curerr = ERR_get_error ()) - { - DEBUGP (("OpenSSL: %s\n", ERR_error_string (curerr, errbuff))); - ++ocerr; - } - return ocerr; + xzero (errbuff); + while ((curerr = ERR_get_error ()) != 0) + logprintf (LOG_NOTQUIET, "OpenSSL: %s\n", + ERR_error_string (curerr, errbuff)); } -/* SSL version of iread. Only exchanged read for SSL_read - Read at most LEN bytes from FD, storing them to BUF. This is - virtually the same as read(), but takes care of EINTR braindamage - and uses select() to timeout the stale connections (a connection is - stale if more than OPT.TIMEOUT time is spent in select() or - read()). */ -int -ssl_iread (SSL *con, char *buf, int len) +/* Creates a SSL Context and sets some defaults for it */ +uerr_t +ssl_init () { - int res; - int fd; - BIO_get_fd (con->rbio, &fd); - do + SSL_METHOD *meth = NULL; + int verify; + int can_validate; + + if (ssl_ctx) + return 0; + + /* Init the PRNG. If that fails, bail out. */ + ssl_init_prng (); + if (RAND_status () == 0) + { + logprintf (LOG_NOTQUIET, + _("Could not seed OpenSSL PRNG; disabling SSL.\n")); + scheme_disable (SCHEME_HTTPS); + return SSLERRCTXCREATE; + } + + SSL_library_init (); + SSL_load_error_strings (); + SSLeay_add_all_algorithms (); + SSLeay_add_ssl_algorithms (); + switch (opt.sslprotocol) + { + default: + meth = SSLv23_client_method (); + break; + case 1 : + meth = SSLv2_client_method (); + break; + case 2 : + meth = SSLv3_client_method (); + break; + case 3 : + meth = TLSv1_client_method (); + break; + } + if (meth == NULL) { -#ifdef HAVE_SELECT - if (opt.timeout) + ssl_print_errors (); + return SSLERRCTXCREATE; + } + + ssl_ctx = SSL_CTX_new (meth); + if (meth == NULL) + { + ssl_print_errors (); + return SSLERRCTXCREATE; + } + /* Can we validate the server Cert ? */ + if (opt.sslcadir != NULL || opt.sslcafile != NULL) + { + SSL_CTX_load_verify_locations (ssl_ctx, opt.sslcafile, opt.sslcadir); + can_validate = 1; + } + else + { + can_validate = 0; + } + + if (!opt.sslcheckcert) + { + /* check cert but ignore error, do not break handshake on error */ + verify = SSL_VERIFY_NONE; + } + else + { + if (!can_validate) { - - do - { - res = select_fd (fd, opt.timeout, 0); - } - while (res == -1 && errno == EINTR); - if (res <= 0) - { - /* Set errno to ETIMEDOUT on timeout. */ - if (res == 0) - /* #### Potentially evil! */ - errno = ETIMEDOUT; - return -1; - } + logprintf (LOG_NOTQUIET, "Warrining validation of Server Cert not possible!\n"); + verify = SSL_VERIFY_NONE; + } + else + { + /* break handshake if server cert is not valid but allow NO-Cert mode */ + verify = SSL_VERIFY_PEER; } -#endif - res = SSL_read (con, buf, len); } - while (res == -1 && errno == EINTR); - return res; -} + SSL_CTX_set_verify (ssl_ctx, verify, verify_callback); -/* SSL version of iwrite. Only exchanged write for SSL_write - Write LEN bytes from BUF to FD. This is similar to iread(), but - doesn't bother with select(). Unlike iread(), it makes sure that - all of BUF is actually written to FD, so callers needn't bother - with checking that the return value equals to LEN. Instead, you - should simply check for -1. */ -int -ssl_iwrite (SSL *con, char *buf, int len) -{ - int res = 0; - int fd; - BIO_get_fd (con->rbio, &fd); - /* `write' may write less than LEN bytes, thus the outward loop - keeps trying it until all was written, or an error occurred. The - inner loop is reserved for the usual EINTR f*kage, and the - innermost loop deals with the same during select(). */ - while (len > 0) + if (opt.sslcertfile != NULL || opt.sslcertkey != NULL) { - do + int ssl_cert_type; + if (!opt.sslcerttype) + ssl_cert_type = SSL_FILETYPE_PEM; + else + ssl_cert_type = SSL_FILETYPE_ASN1; + + if (opt.sslcertkey == NULL) + opt.sslcertkey = opt.sslcertfile; + if (opt.sslcertfile == NULL) + opt.sslcertfile = opt.sslcertkey; + + if (SSL_CTX_use_certificate_file (ssl_ctx, opt.sslcertfile, + ssl_cert_type) <= 0) { -#ifdef HAVE_SELECT - if (opt.timeout) - { - do - { - res = select_fd (fd, opt.timeout, 1); - } - while (res == -1 && errno == EINTR); - if (res <= 0) - { - /* Set errno to ETIMEDOUT on timeout. */ - if (res == 0) - /* #### Potentially evil! */ - errno = ETIMEDOUT; - return -1; - } - } -#endif - res = SSL_write (con, buf, len); + ssl_print_errors (); + return SSLERRCERTFILE; + } + if (SSL_CTX_use_PrivateKey_file (ssl_ctx, opt.sslcertkey, + ssl_cert_type) <= 0) + { + ssl_print_errors (); + return SSLERRCERTKEY; } - while (res == -1 && errno == EINTR); - if (res <= 0) - break; - buf += res; - len -= res; } - return res; + + return 0; /* Succeded */ +} + +static int +ssl_read (int fd, char *buf, int bufsize, void *ctx) +{ + int ret; + SSL *ssl = (SSL *) ctx; + do + ret = SSL_read (ssl, buf, bufsize); + while (ret == -1 + && SSL_get_error (ssl, ret) == SSL_ERROR_SYSCALL + && errno == EINTR); + return ret; +} + +static int +ssl_write (int fd, char *buf, int bufsize, void *ctx) +{ + int ret = 0; + SSL *ssl = (SSL *) ctx; + do + ret = SSL_write (ssl, buf, bufsize); + while (ret == -1 + && SSL_get_error (ssl, ret) == SSL_ERROR_SYSCALL + && errno == EINTR); + return ret; +} + +static int +ssl_poll (int fd, double timeout, int wait_for, void *ctx) +{ + SSL *ssl = (SSL *) ctx; + if (timeout == 0) + return 1; + if (SSL_pending (ssl)) + return 1; + return select_fd (fd, timeout, wait_for); +} + +static int +ssl_peek (int fd, char *buf, int bufsize, void *ctx) +{ + int ret; + SSL *ssl = (SSL *) ctx; + do + ret = SSL_peek (ssl, buf, bufsize); + while (ret == -1 + && SSL_get_error (ssl, ret) == SSL_ERROR_SYSCALL + && errno == EINTR); + return ret; +} + +static void +ssl_close (int fd, void *ctx) +{ + SSL *ssl = (SSL *) ctx; + SSL_shutdown (ssl); + SSL_free (ssl); + +#ifdef WINDOWS + closesocket (fd); +#else + close (fd); +#endif + + DEBUGP (("Closed %d/SSL 0x%0lx\n", fd, (unsigned long) ssl)); +} + +/* Sets up a SSL structure and performs the handshake on fd. */ + +SSL * +ssl_connect (int fd) +{ + SSL *ssl; + + assert (ssl_ctx != NULL); + ssl = SSL_new (ssl_ctx); + if (!ssl) + goto err; + if (!SSL_set_fd (ssl, fd)) + goto err; + SSL_set_connect_state (ssl); + if (SSL_connect (ssl) <= 0 || ssl->state != SSL_ST_OK) + goto err; + + /* Register FD with Wget's transport layer, i.e. arrange that + SSL-enabled functions are used for reading, writing, and polling. + That way the rest of Wget can keep using xread, xwrite, and + friends and not care what happens underneath. */ + fd_register_transport (fd, ssl_read, ssl_write, ssl_poll, ssl_peek, + ssl_close, ssl); + DEBUGP (("Connected %d to SSL 0x%0lx\n", fd, (unsigned long) ssl)); + return ssl; + + err: + ssl_print_errors (); + if (ssl) + SSL_free (ssl); + return NULL; } -#endif /* HAVE_SSL */