git.sur5r.net Git - openldap/blob - servers/ldapd/kerberos.c

   1 /*
   2  * Copyright (c) 1990 Regents of the University of Michigan.
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms are permitted
   6  * provided that this notice is preserved and that due credit is given
   7  * to the University of Michigan at Ann Arbor. The name of the University
   8  * may not be used to endorse or promote products derived from this
   9  * software without specific prior written permission. This software
  10  * is provided ``as is'' without express or implied warranty.
  11  */
  12
  13 #include "portable.h"
  14
  15 #ifdef HAVE_KERBEROS
  16
  17 #include <stdio.h>
  18
  19 #include <ac/krb.h>
  20 #include <ac/socket.h>
  21
  22 #include <quipu/bind.h>
  23 #if ISODEPACKAGE == IC
  24 #include <quipu/DAS-types.h>
  25 #else
  26 #include <pepsy/DAS-types.h>
  27 #endif
  28
  29 #include "lber.h"
  30 #include "ldap.h"
  31 #include "common.h"
  32
  33 int
  34 kerberosv4_ldap_auth( char *cred, long  len )
  35 {
  36         KTEXT_ST        k;
  37         KTEXT           ktxt = &k;
  38         char            instance[INST_SZ];
  39         int             err;
  40         AUTH_DAT        ad;
  41
  42         Debug( LDAP_DEBUG_TRACE, "kerberosv4_ldap_auth\n", 0, 0, 0 );
  43
  44         SAFEMEMCPY( ktxt->dat, cred, len );
  45         ktxt->length = len;
  46
  47         strcpy( instance, "*" );
  48         if ( (err = krb_rd_req( ktxt, krb_ldap_service, instance, 0L,
  49             &ad, kerberos_keyfile )) != KSUCCESS ) {
  50                 Debug( LDAP_DEBUG_ANY, "krb_rd_req failed (%s)\n",
  51                     krb_err_txt[err], 0, 0 );
  52                 return( LDAP_INVALID_CREDENTIALS );
  53         }
  54
  55         return( LDAP_SUCCESS );
  56 }
  57
  58 int
  59 kerberosv4_bindarg(
  60     struct ds_bind_arg  *ba,
  61     DN                  dn,
  62     char                *cred,
  63     long                len,
  64     u_long              *nonce
  65 )
  66 {
  67         struct type_UNIV_EXTERNAL       *e;
  68         struct kerberos_parms           kp;
  69         PE                              pe;
  70         struct timeval                  tv;
  71         char                            realm[REALM_SZ];
  72         int                             err;
  73
  74         Debug( LDAP_DEBUG_TRACE, "kerberosv4_bindarg\n", 0, 0, 0 );
  75
  76         e = (struct type_UNIV_EXTERNAL *) calloc( 1,
  77             sizeof(struct type_UNIV_EXTERNAL) );
  78         e->encoding = (struct choice_UNIV_0 *) calloc( 1,
  79             sizeof(struct choice_UNIV_0) );
  80         ba->dba_external = e;
  81         ba->dba_version = DBA_VERSION_V1988;
  82         ba->dba_auth_type = DBA_AUTH_EXTERNAL;
  83
  84         e->indirect__reference = AUTH_TYPE_KERBEROS_V4;
  85         e->direct__reference = NULLOID;
  86         e->data__value__descriptor = str2qb( "KRBv4 client credentials",
  87             24, 1 );
  88
  89         kp.kp_dn = dn;
  90         kp.kp_version = AUTH_TYPE_KERBEROS_V4;
  91
  92         if ( (err = krb_get_lrealm( realm, 1 )) != KSUCCESS ) {
  93                 Debug( LDAP_DEBUG_ANY, "krb_get_lrealm failed (%s)\n",
  94                     krb_err_txt[err], 0, 0 );
  95                 return( LDAP_OPERATIONS_ERROR );
  96         }
  97
  98         gettimeofday( &tv, NULL );
  99         *nonce = tv.tv_sec;
 100         SAFEMEMCPY( kp.kp_ktxt.dat, cred, len );
 101         kp.kp_ktxt.length = len;
 102         if ( encode_kerberos_parms( &pe, &kp ) == NOTOK ) {
 103                 Debug( LDAP_DEBUG_ANY, "kerberos parms encoding failed\n", 0,
 104                     0, 0 );
 105                 return( LDAP_OPERATIONS_ERROR );
 106         }
 107
 108         e->encoding->offset = choice_UNIV_0_single__ASN1__type;
 109         e->encoding->un.single__ASN1__type = pe;
 110
 111         return( 0 );
 112 }
 113
 114 int
 115 kerberos_check_mutual(
 116     struct ds_bind_arg  *res,
 117     u_long              nonce
 118 )
 119 {
 120         struct type_UNIV_EXTERNAL       *e = res->dba_external;
 121         struct kerberos_parms           *kp;
 122         int                             ret;
 123
 124         Debug( LDAP_DEBUG_TRACE, "kerberos_check_mutual\n", 0, 0, 0 );
 125
 126         if ( decode_kerberos_parms( e->encoding->un.single__ASN1__type, &kp )
 127             == NOTOK )
 128                 return( NOTOK );
 129         ret = ((kp->kp_nonce == (nonce + 1)) ? OK : NOTOK );
 130
 131         Debug( LDAP_DEBUG_TRACE, "expecting %d got %d\n", nonce, kp->kp_nonce,
 132             0 );
 133
 134         pe_free( e->encoding->un.single__ASN1__type );
 135         dn_free( kp->kp_dn );
 136         free( (char *) kp );
 137
 138         return( ret );
 139 }
 140
 141 #endif