Diff for /libraries/libldap/tls_o.c between versions 1.7 and 1.18

version 1.7, 2009/03/02 16:43:38 version 1.18, 2010/12/06 10:31:59
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.6 2009/02/10 12:27:22 hyc Exp $ */  /* $OpenLDAP: pkg/ldap/libraries/libldap/tls_o.c,v 1.17 2010/04/13 20:17:57 kurt Exp $ */
 /* 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-2010 The OpenLDAP Foundation.
  * All rights reserved.   * All rights reserved.
  *   *
  * Redistribution and use in source and binary forms, with or without   * Redistribution and use in source and binary forms, with or without
Line 37 Line 37
 #include "ldap-int.h"  #include "ldap-int.h"
 #include "ldap-tls.h"  #include "ldap-tls.h"
   
 #ifdef LDAP_R_COMPILE  
 #include <ldap_pvt_thread.h>  
 #endif  
   
 #ifdef HAVE_OPENSSL_SSL_H  #ifdef HAVE_OPENSSL_SSL_H
 #include <openssl/ssl.h>  #include <openssl/ssl.h>
 #include <openssl/x509v3.h>  #include <openssl/x509v3.h>
Line 77  static int tlso_seed_PRNG( const char *r Line 73  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 158  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 397  tlso_session_upflags( Sockbuf *sb, tls_s Line 394  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 465  tlso_session_chkhost( LDAP *ld, tls_sess Line 473  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 479  tlso_session_chkhost( LDAP *ld, tls_sess Line 487  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 512  tlso_session_chkhost( LDAP *ld, tls_sess Line 521  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 538  tlso_session_chkhost( LDAP *ld, tls_sess Line 546  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 578  tlso_session_chkhost( LDAP *ld, tls_sess Line 586  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 595  tlso_session_chkhost( LDAP *ld, tls_sess Line 618  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 617  tlso_session_chkhost( LDAP *ld, tls_sess Line 639  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 1051  static RSA * Line 1073  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();
           tmp_rsa = NULL;
           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 = 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,
                         "TLS: Failed to generate temporary %d-bit %s RSA key\n",                          "TLS: Failed to generate temporary %d-bit %s RSA key\n",
                         key_length, is_export ? "export" : "domestic", 0 );                          key_length, is_export ? "export" : "domestic", 0 );
                 return NULL;  
         }          }
         return tmp_rsa;          return tmp_rsa;
 }  }
Line 1175  tlso_tmp_dh_cb( SSL *ssl, int is_export, Line 1210  tlso_tmp_dh_cb( SSL *ssl, int is_export,
         int i;          int i;
   
         /* Do we have params of this length already? */          /* Do we have params of this length already? */
 #ifdef LDAP_R_COMPILE          LDAP_MUTEX_LOCK( &tlso_dh_mutex );
         ldap_pvt_thread_mutex_lock( &tlso_dh_mutex );  
 #endif  
         for ( p = tlso_dhparams; p; p=p->next ) {          for ( p = tlso_dhparams; p; p=p->next ) {
                 if ( p->keylength == key_length ) {                  if ( p->keylength == key_length ) {
 #ifdef LDAP_R_COMPILE                          LDAP_MUTEX_UNLOCK( &tlso_dh_mutex );
                         ldap_pvt_thread_mutex_unlock( &tlso_dh_mutex );  
 #endif  
                         return p->param;                          return p->param;
                 }                  }
         }          }
Line 1215  tlso_tmp_dh_cb( SSL *ssl, int is_export, Line 1246  tlso_tmp_dh_cb( SSL *ssl, int is_export,
                 }                  }
         }          }
   
 #ifdef LDAP_R_COMPILE          LDAP_MUTEX_UNLOCK( &tlso_dh_mutex );
         ldap_pvt_thread_mutex_unlock( &tlso_dh_mutex );  
 #endif  
         return dh;          return dh;
 }  }
   

Removed from v.1.7  
changed lines
  Added in v.1.18


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