Diff for /libraries/libldap/tls_o.c between versions 1.4 and 1.5.2.9

version 1.4, 2009/01/26 01:06:45 version 1.5.2.9, 2009/10/30 17:48:17
Line 1 Line 1
 /* tls_o.c - Handle tls/ssl using SSLeay or OpenSSL */  /* tls_o.c - Handle tls/ssl using OpenSSL */
 /* $OpenLDAP: pkg/ldap/libraries/libldap/tls_o.c,v 1.3 2009/01/21 23:40:22 kurt Exp $ */  /* $OpenLDAP$ */
 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.  /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
  *   *
  * Copyright 2008-2009 The OpenLDAP Foundation.   * Copyright 2008-2009 The OpenLDAP Foundation.
Line 77  static int tlso_seed_PRNG( const char *r Line 77  static int tlso_seed_PRNG( const char *r
   
 #ifdef LDAP_R_COMPILE  #ifdef LDAP_R_COMPILE
 /*  /*
  * provide mutexes for the SSLeay library.   * provide mutexes for the OpenSSL library.
  */   */
 static ldap_pvt_thread_mutex_t  tlso_mutexes[CRYPTO_NUM_LOCKS];  static ldap_pvt_thread_mutex_t  tlso_mutexes[CRYPTO_NUM_LOCKS];
 static ldap_pvt_thread_mutex_t  tlso_dh_mutex;  static ldap_pvt_thread_mutex_t  tlso_dh_mutex;
Line 162  tlso_init( void ) Line 162  tlso_init( void )
 #endif  #endif
   
         SSL_load_error_strings();          SSL_load_error_strings();
         SSLeay_add_ssl_algorithms();          SSL_library_init();
           OpenSSL_add_all_digests();
   
         /* FIXME: mod_ssl does this */          /* FIXME: mod_ssl does this */
         X509V3_add_standard_extensions();          X509V3_add_standard_extensions();
Line 222  tlso_ctx_init( struct ldapoptions *lo, s Line 223  tlso_ctx_init( struct ldapoptions *lo, s
                         (const unsigned char *) "OpenLDAP", sizeof("OpenLDAP")-1 );                          (const unsigned char *) "OpenLDAP", sizeof("OpenLDAP")-1 );
         }          }
   
           if ( lo->ldo_tls_protocol_min > LDAP_OPT_X_TLS_PROTOCOL_SSL3 )
                   SSL_CTX_set_options( ctx, SSL_OP_NO_SSLv2 | SSL_OP_NO_SSLv3 );
           else if ( lo->ldo_tls_protocol_min > LDAP_OPT_X_TLS_PROTOCOL_SSL2 )
                   SSL_CTX_set_options( ctx, SSL_OP_NO_SSLv2 );
   
         if ( lo->ldo_tls_ciphersuite &&          if ( lo->ldo_tls_ciphersuite &&
                 !SSL_CTX_set_cipher_list( ctx, lt->lt_ciphersuite ) )                  !SSL_CTX_set_cipher_list( ctx, lt->lt_ciphersuite ) )
         {          {
Line 392  tlso_session_upflags( Sockbuf *sb, tls_s Line 398  tlso_session_upflags( Sockbuf *sb, tls_s
 }  }
   
 static char *  static char *
 tlso_session_errmsg( int rc, char *buf, size_t len )  tlso_session_errmsg( tls_session *sess, int rc, char *buf, size_t len )
 {  {
           char err[256] = "";
           const char *certerr=NULL;
           tlso_session *s = (tlso_session *)sess;
   
         rc = ERR_peek_error();          rc = ERR_peek_error();
         if ( rc ) {          if ( rc ) {
                 ERR_error_string_n( rc, buf, len );                  ERR_error_string_n( rc, err, sizeof(err) );
                   if ( ( ERR_GET_LIB(rc) == ERR_LIB_SSL ) && 
                                   ( ERR_GET_REASON(rc) == SSL_R_CERTIFICATE_VERIFY_FAILED ) ) {
                           int certrc = SSL_get_verify_result(s);
                           certerr = (char *)X509_verify_cert_error_string(certrc);
                   }
                   snprintf(buf, len, "%s%s%s%s", err, certerr ? " (" :"", 
                                   certerr ? certerr : "", certerr ?  ")" : "" );
                 return buf;                  return buf;
         }          }
         return NULL;          return NULL;
Line 416  tlso_session_my_dn( tls_session *sess, s Line 433  tlso_session_my_dn( tls_session *sess, s
         xn = X509_get_subject_name(x);          xn = X509_get_subject_name(x);
         der_dn->bv_len = i2d_X509_NAME( xn, NULL );          der_dn->bv_len = i2d_X509_NAME( xn, NULL );
         der_dn->bv_val = xn->bytes->data;          der_dn->bv_val = xn->bytes->data;
         X509_free(x);          /* Don't X509_free, the session is still using it */
         return 0;          return 0;
 }  }
   
Line 460  tlso_session_chkhost( LDAP *ld, tls_sess Line 477  tlso_session_chkhost( LDAP *ld, tls_sess
         X509 *x;          X509 *x;
         const char *name;          const char *name;
         char *ptr;          char *ptr;
         int ntype = IS_DNS;          int ntype = IS_DNS, nlen;
 #ifdef LDAP_PF_INET6  #ifdef LDAP_PF_INET6
         struct in6_addr addr;          struct in6_addr addr;
 #else  #else
Line 474  tlso_session_chkhost( LDAP *ld, tls_sess Line 491  tlso_session_chkhost( LDAP *ld, tls_sess
         } else {          } else {
                 name = name_in;                  name = name_in;
         }          }
           nlen = strlen(name);
   
         x = tlso_get_cert(s);          x = tlso_get_cert(s);
         if (!x) {          if (!x) {
Line 489  tlso_session_chkhost( LDAP *ld, tls_sess Line 507  tlso_session_chkhost( LDAP *ld, tls_sess
 #ifdef LDAP_PF_INET6  #ifdef LDAP_PF_INET6
         if (name[0] == '[' && strchr(name, ']')) {          if (name[0] == '[' && strchr(name, ']')) {
                 char *n2 = ldap_strdup(name+1);                  char *n2 = ldap_strdup(name+1);
                 *strchr(n2, ']') = 2;                  *strchr(n2, ']') = 0;
                 if (inet_pton(AF_INET6, n2, &addr))                  if (inet_pton(AF_INET6, n2, &addr))
                         ntype = IS_IP6;                          ntype = IS_IP6;
                 LDAP_FREE(n2);                  LDAP_FREE(n2);
Line 507  tlso_session_chkhost( LDAP *ld, tls_sess Line 525  tlso_session_chkhost( LDAP *ld, tls_sess
                 ex = X509_get_ext(x, i);                  ex = X509_get_ext(x, i);
                 alt = X509V3_EXT_d2i(ex);                  alt = X509V3_EXT_d2i(ex);
                 if (alt) {                  if (alt) {
                         int n, len1 = 0, len2 = 0;                          int n, len2 = 0;
                         char *domain = NULL;                          char *domain = NULL;
                         GENERAL_NAME *gn;                          GENERAL_NAME *gn;
   
                         if (ntype == IS_DNS) {                          if (ntype == IS_DNS) {
                                 len1 = strlen(name);  
                                 domain = strchr(name, '.');                                  domain = strchr(name, '.');
                                 if (domain) {                                  if (domain) {
                                         len2 = len1 - (domain-name);                                          len2 = nlen - (domain-name);
                                 }                                  }
                         }                          }
                         n = sk_GENERAL_NAME_num(alt);                          n = sk_GENERAL_NAME_num(alt);
Line 533  tlso_session_chkhost( LDAP *ld, tls_sess Line 550  tlso_session_chkhost( LDAP *ld, tls_sess
                                         if (sl == 0) continue;                                          if (sl == 0) continue;
   
                                         /* Is this an exact match? */                                          /* Is this an exact match? */
                                         if ((len1 == sl) && !strncasecmp(name, sn, len1)) {                                          if ((nlen == sl) && !strncasecmp(name, sn, nlen)) {
                                                 break;                                                  break;
                                         }                                          }
   
Line 573  tlso_session_chkhost( LDAP *ld, tls_sess Line 590  tlso_session_chkhost( LDAP *ld, tls_sess
   
         if (ret != LDAP_SUCCESS) {          if (ret != LDAP_SUCCESS) {
                 X509_NAME *xn;                  X509_NAME *xn;
                 char buf[2048];                  X509_NAME_ENTRY *ne;
                 buf[0] = '\0';                  ASN1_OBJECT *obj;
                   ASN1_STRING *cn = NULL;
                   int navas;
   
                   /* find the last CN */
                   obj = OBJ_nid2obj( NID_commonName );
                   if ( !obj ) goto no_cn; /* should never happen */
   
                 xn = X509_get_subject_name(x);                  xn = X509_get_subject_name(x);
                 if( X509_NAME_get_text_by_NID( xn, NID_commonName,                  navas = X509_NAME_entry_count( xn );
                         buf, sizeof(buf)) == -1)                  for ( i=navas-1; i>=0; i-- ) {
                           ne = X509_NAME_get_entry( xn, i );
                           if ( !OBJ_cmp( ne->object, obj )) {
                                   cn = X509_NAME_ENTRY_get_data( ne );
                                   break;
                           }
                   }
   
                   if( !cn )
                 {                  {
   no_cn:
                         Debug( LDAP_DEBUG_ANY,                          Debug( LDAP_DEBUG_ANY,
                                 "TLS: unable to get common name from peer certificate.\n",                                  "TLS: unable to get common name from peer certificate.\n",
                                 0, 0, 0 );                                  0, 0, 0 );
Line 590  tlso_session_chkhost( LDAP *ld, tls_sess Line 622  tlso_session_chkhost( LDAP *ld, tls_sess
                         ld->ld_error = LDAP_STRDUP(                          ld->ld_error = LDAP_STRDUP(
                                 _("TLS: unable to get CN from peer certificate"));                                  _("TLS: unable to get CN from peer certificate"));
   
                 } else if (strcasecmp(name, buf) == 0 ) {                  } else if ( cn->length == nlen &&
                           strncasecmp( name, (char *) cn->data, nlen ) == 0 ) {
                         ret = LDAP_SUCCESS;                          ret = LDAP_SUCCESS;
   
                 } else if (( buf[0] == '*' ) && ( buf[1] == '.' )) {                  } else if (( cn->data[0] == '*' ) && ( cn->data[1] == '.' )) {
                         char *domain = strchr(name, '.');                          char *domain = strchr(name, '.');
                         if( domain ) {                          if( domain ) {
                                 size_t dlen = 0;                                  int dlen;
                                 size_t sl;  
   
                                 sl = strlen(name);                                  dlen = nlen - (domain-name);
                                 dlen = sl - (domain-name);  
                                 sl = strlen(buf);  
   
                                 /* Is this a wildcard match? */                                  /* Is this a wildcard match? */
                                 if ((dlen == sl-1) && !strncasecmp(domain, &buf[1], dlen)) {                                  if ((dlen == cn->length-1) &&
                                           !strncasecmp(domain, (char *) &cn->data[1], dlen)) {
                                         ret = LDAP_SUCCESS;                                          ret = LDAP_SUCCESS;
                                 }                                  }
                         }                          }
Line 612  tlso_session_chkhost( LDAP *ld, tls_sess Line 643  tlso_session_chkhost( LDAP *ld, tls_sess
   
                 if( ret == LDAP_LOCAL_ERROR ) {                  if( ret == LDAP_LOCAL_ERROR ) {
                         Debug( LDAP_DEBUG_ANY, "TLS: hostname (%s) does not match "                          Debug( LDAP_DEBUG_ANY, "TLS: hostname (%s) does not match "
                                 "common name in certificate (%s).\n",                                   "common name in certificate (%.*s).\n", 
                                 name, buf, 0 );                                  name, cn->length, cn->data );
                         ret = LDAP_CONNECT_ERROR;                          ret = LDAP_CONNECT_ERROR;
                         if ( ld->ld_error ) {                          if ( ld->ld_error ) {
                                 LDAP_FREE( ld->ld_error );                                  LDAP_FREE( ld->ld_error );
Line 1046  static RSA * Line 1077  static RSA *
 tlso_tmp_rsa_cb( SSL *ssl, int is_export, int key_length )  tlso_tmp_rsa_cb( SSL *ssl, int is_export, int key_length )
 {  {
         RSA *tmp_rsa;          RSA *tmp_rsa;
   
         /* FIXME:  Pregenerate the key on startup */          /* FIXME:  Pregenerate the key on startup */
         /* FIXME:  Who frees the key? */          /* FIXME:  Who frees the key? */
   #if OPENSSL_VERSION_NUMBER > 0x00908000
           BIGNUM *bn = BN_new();
           if ( bn ) {
                   if ( BN_set_word( bn, RSA_F4 )) {
                           tmp_rsa = RSA_new();
                           if ( tmp_rsa && !RSA_generate_key_ex( tmp_rsa, key_length, bn, NULL )) {
                                   RSA_free( tmp_rsa );
                                   tmp_rsa = NULL;
                           }
                   }
                   BN_free( bn );
           } else {
                   tmp_rsa = NULL;
           }
   #else
         tmp_rsa = RSA_generate_key( key_length, RSA_F4, NULL, NULL );          tmp_rsa = RSA_generate_key( key_length, RSA_F4, NULL, NULL );
   #endif
   
         if ( !tmp_rsa ) {          if ( !tmp_rsa ) {
                 Debug( LDAP_DEBUG_ANY,                  Debug( LDAP_DEBUG_ANY,

Removed from v.1.4  
changed lines
  Added in v.1.5.2.9


______________
© Copyright 1998-2020, OpenLDAP Foundation, info@OpenLDAP.org