www.project-moonshot.org Git - mech_eap.orig/blob - mech_eap/util_name.c

   1 /*
   2  * Copyright (c) 2011, JANET(UK)
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  *
   9  * 1. Redistributions of source code must retain the above copyright
  10  *    notice, this list of conditions and the following disclaimer.
  11  *
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * 3. Neither the name of JANET(UK) nor the names of its contributors
  17  *    may be used to endorse or promote products derived from this software
  18  *    without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  21  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  23  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
  24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  30  * SUCH DAMAGE.
  31  */
  32 /*
  33  * Portions Copyright 2009 by the Massachusetts Institute of Technology.
  34  * All Rights Reserved.
  35  *
  36  * Export of this software from the United States of America may
  37  *   require a specific license from the United States Government.
  38  *   It is the responsibility of any person or organization contemplating
  39  *   export to obtain such a license before exporting.
  40  *
  41  * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
  42  * distribute this software and its documentation for any purpose and
  43  * without fee is hereby granted, provided that the above copyright
  44  * notice appear in all copies and that both that copyright notice and
  45  * this permission notice appear in supporting documentation, and that
  46  * the name of M.I.T. not be used in advertising or publicity pertaining
  47  * to distribution of the software without specific, written prior
  48  * permission.  Furthermore if you modify this software you must label
  49  * your software as modified software and not distribute it in such a
  50  * fashion that it might be confused with the original M.I.T. software.
  51  * M.I.T. makes no representations about the suitability of
  52  * this software for any purpose.  It is provided "as is" without express
  53  * or implied warranty.
  54  */
  55
  56 /*
  57  * Name utility routines.
  58  */
  59
  60 #include "gssapiP_eap.h"
  61
  62 static gss_OID_desc gssEapNtEapName = {
  63     /* 1.3.6.1.4.1.5322.22.2.1  */
  64     10, "\x2B\x06\x01\x04\x01\xA9\x4A\x16\x02\x01"
  65 };
  66
  67 gss_OID GSS_EAP_NT_EAP_NAME = &gssEapNtEapName;
  68
  69 OM_uint32
  70 gssEapAllocName(OM_uint32 *minor, gss_name_t *pName)
  71 {
  72     OM_uint32 tmpMinor;
  73     gss_name_t name;
  74
  75     *pName = GSS_C_NO_NAME;
  76
  77     name = (gss_name_t)GSSEAP_CALLOC(1, sizeof(*name));
  78     if (name == NULL) {
  79         *minor = ENOMEM;
  80         return GSS_S_FAILURE;
  81     }
  82
  83     if (GSSEAP_MUTEX_INIT(&name->mutex) != 0) {
  84         *minor = GSSEAP_GET_LAST_ERROR();
  85         gssEapReleaseName(&tmpMinor, &name);
  86         return GSS_S_FAILURE;
  87     }
  88
  89     *pName = name;
  90
  91     return GSS_S_COMPLETE;
  92 }
  93
  94 OM_uint32
  95 gssEapReleaseName(OM_uint32 *minor, gss_name_t *pName)
  96 {
  97     gss_name_t name;
  98     krb5_context krbContext = NULL;
  99     OM_uint32 tmpMinor;
 100
 101     *minor = 0;
 102
 103     if (pName == NULL) {
 104         return GSS_S_COMPLETE;
 105     }
 106
 107     name = *pName;
 108     if (name == GSS_C_NO_NAME) {
 109         return GSS_S_COMPLETE;
 110     }
 111
 112     GSSEAP_KRB_INIT(&krbContext);
 113     krb5_free_principal(krbContext, name->krbPrincipal);
 114     gssEapReleaseOid(&tmpMinor, &name->mechanismUsed);
 115 #ifdef GSSEAP_ENABLE_ACCEPTOR
 116     gssEapReleaseAttrContext(&tmpMinor, name);
 117 #endif
 118
 119     GSSEAP_MUTEX_DESTROY(&name->mutex);
 120     GSSEAP_FREE(name);
 121     *pName = NULL;
 122
 123     return GSS_S_COMPLETE;
 124 }
 125
 126 static OM_uint32
 127 krbPrincipalToName(OM_uint32 *minor,
 128                    krb5_principal *principal,
 129                    gss_name_t *pName)
 130 {
 131     OM_uint32 major;
 132     gss_name_t name;
 133
 134     major = gssEapAllocName(minor, &name);
 135     if (GSS_ERROR(major))
 136         return major;
 137
 138     name->krbPrincipal = *principal;
 139     *principal = NULL;
 140
 141     if (KRB_PRINC_LENGTH(name->krbPrincipal) > 1) {
 142         name->flags |= NAME_FLAG_SERVICE;
 143     } else {
 144         name->flags |= NAME_FLAG_NAI;
 145     }
 146
 147     *pName = name;
 148     *minor = 0;
 149
 150     return GSS_S_COMPLETE;
 151 }
 152
 153 static char *
 154 gssEapGetDefaultRealm(krb5_context krbContext)
 155 {
 156     char *defaultRealm = NULL;
 157
 158     krb5_appdefault_string(krbContext, "eap_gss",
 159                            NULL, "default_realm", "", &defaultRealm);
 160
 161     return defaultRealm;
 162 }
 163
 164 static OM_uint32
 165 importServiceName(OM_uint32 *minor,
 166                   const gss_buffer_t nameBuffer,
 167                   gss_name_t *pName)
 168 {
 169     OM_uint32 major;
 170     krb5_error_code code;
 171     krb5_context krbContext;
 172     krb5_principal krbPrinc;
 173     char *service, *host, *realm = NULL;
 174
 175     GSSEAP_KRB_INIT(&krbContext);
 176
 177     major = bufferToString(minor, nameBuffer, &service);
 178     if (GSS_ERROR(major))
 179         return major;
 180
 181     host = strchr(service, '@');
 182     if (host != NULL) {
 183         *host = '\0';
 184         host++;
 185     }
 186
 187     realm = gssEapGetDefaultRealm(krbContext);
 188
 189     code = krb5_build_principal(krbContext,
 190                                 &krbPrinc,
 191                                 realm != NULL ? strlen(realm) : 0,
 192                                 realm != NULL ? realm : "",
 193                                 service,
 194                                 host,
 195                                 NULL);
 196
 197     if (code == 0) {
 198         KRB_PRINC_TYPE(krbPrinc) = KRB5_NT_SRV_HST;
 199
 200         major = krbPrincipalToName(minor, &krbPrinc, pName);
 201         if (GSS_ERROR(major))
 202             krb5_free_principal(krbContext, krbPrinc);
 203     } else {
 204         major = GSS_S_FAILURE;
 205         *minor = GSSEAP_BAD_SERVICE_NAME;
 206     }
 207
 208     if (realm != NULL)
 209         krb5_free_default_realm(krbContext, realm);
 210     GSSEAP_FREE(service);
 211
 212     return major;
 213 }
 214
 215 #define IMPORT_FLAG_DEFAULT_REALM           0x1
 216
 217 /*
 218  * Import an EAP name, possibly appending the default GSS EAP realm,
 219  */
 220 static OM_uint32
 221 importEapNameFlags(OM_uint32 *minor,
 222                    const gss_buffer_t nameBuffer,
 223                    OM_uint32 importFlags,
 224                    gss_name_t *pName)
 225 {
 226     OM_uint32 major;
 227     krb5_context krbContext;
 228     krb5_principal krbPrinc = NULL;
 229     krb5_error_code code;
 230     char *nameString;
 231
 232     GSSEAP_KRB_INIT(&krbContext);
 233
 234     if (nameBuffer == GSS_C_NO_BUFFER) {
 235         nameString = "";
 236         code = KRB5_PARSE_MALFORMED;
 237     } else {
 238         major = bufferToString(minor, nameBuffer, &nameString);
 239         if (GSS_ERROR(major))
 240             return major;
 241
 242         /*
 243          * First, attempt to parse the name on the assumption that it includes
 244          * a qualifying realm. This allows us to avoid accidentally appending
 245          * the default Kerberos realm to an unqualified name. (A bug in MIT
 246          * Kerberos prevents the default realm being set to an empty value.)
 247          */
 248         code = krb5_parse_name_flags(krbContext, nameString,
 249                                      KRB5_PRINCIPAL_PARSE_REQUIRE_REALM, &krbPrinc);
 250     }
 251
 252     if (code == KRB5_PARSE_MALFORMED) {
 253         char *defaultRealm = NULL;
 254         int parseFlags = 0;
 255
 256         /* Possibly append the default EAP realm if required */
 257         if (importFlags & IMPORT_FLAG_DEFAULT_REALM)
 258             defaultRealm = gssEapGetDefaultRealm(krbContext);
 259
 260         /* If no default realm, leave the realm empty in the parsed name */
 261         if (defaultRealm == NULL || defaultRealm[0] == '\0')
 262             parseFlags |= KRB5_PRINCIPAL_PARSE_NO_REALM;
 263
 264         code = krb5_parse_name_flags(krbContext, nameString, parseFlags, &krbPrinc);
 265
 266 #ifdef HAVE_HEIMDAL_VERSION
 267         if (code == 0 && KRB_PRINC_REALM(krbPrinc) == NULL) {
 268             KRB_PRINC_REALM(krbPrinc) = GSSEAP_CALLOC(1, sizeof(char));
 269             if (KRB_PRINC_REALM(krbPrinc) == NULL)
 270                 code = ENOMEM;
 271         }
 272 #endif
 273
 274         if (defaultRealm != NULL)
 275             krb5_free_default_realm(krbContext, defaultRealm);
 276     }
 277
 278     if (nameBuffer != GSS_C_NO_BUFFER)
 279         GSSEAP_FREE(nameString);
 280
 281     if (code != 0) {
 282         *minor = code;
 283         return GSS_S_FAILURE;
 284     }
 285
 286     GSSEAP_ASSERT(krbPrinc != NULL);
 287
 288     major = krbPrincipalToName(minor, &krbPrinc, pName);
 289     if (GSS_ERROR(major))
 290         krb5_free_principal(krbContext, krbPrinc);
 291
 292     return major;
 293 }
 294
 295 static OM_uint32
 296 importEapName(OM_uint32 *minor,
 297               const gss_buffer_t nameBuffer,
 298               gss_name_t *pName)
 299 {
 300     return importEapNameFlags(minor, nameBuffer, 0, pName);
 301 }
 302
 303 static OM_uint32
 304 importUserName(OM_uint32 *minor,
 305                const gss_buffer_t nameBuffer,
 306                gss_name_t *pName)
 307 {
 308     return importEapNameFlags(minor, nameBuffer, IMPORT_FLAG_DEFAULT_REALM, pName);
 309 }
 310
 311 static OM_uint32
 312 importAnonymousName(OM_uint32 *minor,
 313                     const gss_buffer_t nameBuffer GSSEAP_UNUSED,
 314                     gss_name_t *pName)
 315 {
 316     return importEapNameFlags(minor, GSS_C_NO_BUFFER, 0, pName);
 317 }
 318
 319 #define UPDATE_REMAIN(n)    do {            \
 320         p += (n);                           \
 321         remain -= (n);                      \
 322     } while (0)
 323
 324 #define CHECK_REMAIN(n)     do {        \
 325         if (remain < (n)) {             \
 326             major = GSS_S_BAD_NAME;     \
 327             *minor = GSSEAP_TOK_TRUNC;  \
 328             goto cleanup;               \
 329         }                               \
 330     } while (0)
 331
 332 OM_uint32
 333 gssEapImportNameInternal(OM_uint32 *minor,
 334                          const gss_buffer_t nameBuffer,
 335                          gss_name_t *pName,
 336                          OM_uint32 flags)
 337 {
 338     OM_uint32 major, tmpMinor;
 339     krb5_context krbContext;
 340     unsigned char *p;
 341     size_t len, remain;
 342     gss_buffer_desc buf;
 343     gss_name_t name = GSS_C_NO_NAME;
 344     gss_OID mechanismUsed = GSS_C_NO_OID;
 345
 346     GSSEAP_KRB_INIT(&krbContext);
 347
 348     p = (unsigned char *)nameBuffer->value;
 349     remain = nameBuffer->length;
 350
 351     if (flags & EXPORT_NAME_FLAG_OID) {
 352         gss_OID_desc mech;
 353         enum gss_eap_token_type tokType;
 354         uint16_t wireTokType;
 355
 356         /* TOK_ID || MECH_OID_LEN || MECH_OID */
 357         if (remain < 6) {
 358             *minor = GSSEAP_BAD_NAME_TOKEN;
 359             return GSS_S_BAD_NAME;
 360         }
 361
 362         if (flags & EXPORT_NAME_FLAG_COMPOSITE)
 363             tokType = TOK_TYPE_EXPORT_NAME_COMPOSITE;
 364         else
 365             tokType = TOK_TYPE_EXPORT_NAME;
 366
 367         /* TOK_ID */
 368         wireTokType = load_uint16_be(p);
 369
 370         if ((flags & EXPORT_NAME_FLAG_ALLOW_COMPOSITE) &&
 371             wireTokType == TOK_TYPE_EXPORT_NAME_COMPOSITE) {
 372             tokType = TOK_TYPE_EXPORT_NAME_COMPOSITE;
 373             flags |= EXPORT_NAME_FLAG_COMPOSITE;
 374         }
 375
 376         if (wireTokType != tokType) {
 377             *minor = GSSEAP_WRONG_TOK_ID;
 378             return GSS_S_BAD_NAME;
 379         }
 380         UPDATE_REMAIN(2);
 381
 382         /* MECH_OID_LEN */
 383         len = load_uint16_be(p);
 384         if (len < 2) {
 385             *minor = GSSEAP_BAD_NAME_TOKEN;
 386             return GSS_S_BAD_NAME;
 387         }
 388         UPDATE_REMAIN(2);
 389
 390         /* MECH_OID */
 391         if (p[0] != 0x06) {
 392             *minor = GSSEAP_BAD_NAME_TOKEN;
 393             return GSS_S_BAD_NAME;
 394         }
 395
 396         mech.length = p[1];
 397         mech.elements = &p[2];
 398
 399         CHECK_REMAIN(mech.length);
 400
 401         major = gssEapCanonicalizeOid(minor,
 402                                       &mech,
 403                                       OID_FLAG_FAMILY_MECH_VALID |
 404                                         OID_FLAG_MAP_FAMILY_MECH_TO_NULL,
 405                                       &mechanismUsed);
 406         if (GSS_ERROR(major))
 407             goto cleanup;
 408
 409         UPDATE_REMAIN(2 + mech.length);
 410     }
 411
 412     /* NAME_LEN */
 413     CHECK_REMAIN(4);
 414     len = load_uint32_be(p);
 415     UPDATE_REMAIN(4);
 416
 417     /* NAME */
 418     CHECK_REMAIN(len);
 419     buf.length = len;
 420     buf.value = p;
 421     UPDATE_REMAIN(len);
 422
 423     major = importEapNameFlags(minor, &buf, 0, &name);
 424     if (GSS_ERROR(major))
 425         goto cleanup;
 426
 427     name->mechanismUsed = mechanismUsed;
 428     mechanismUsed = GSS_C_NO_OID;
 429
 430 #ifdef GSSEAP_ENABLE_ACCEPTOR
 431     if (flags & EXPORT_NAME_FLAG_COMPOSITE) {
 432         gss_buffer_desc buf;
 433
 434         buf.length = remain;
 435         buf.value = p;
 436
 437         major = gssEapImportAttrContext(minor, &buf, name);
 438         if (GSS_ERROR(major))
 439             goto cleanup;
 440     }
 441 #endif
 442
 443     major = GSS_S_COMPLETE;
 444     *minor = 0;
 445
 446 cleanup:
 447     if (GSS_ERROR(major)) {
 448         gssEapReleaseOid(&tmpMinor, &mechanismUsed);
 449         gssEapReleaseName(&tmpMinor, &name);
 450     } else {
 451         *pName = name;
 452     }
 453
 454     return major;
 455 }
 456
 457 static OM_uint32
 458 importExportName(OM_uint32 *minor,
 459                  const gss_buffer_t nameBuffer,
 460                  gss_name_t *name)
 461 {
 462     return gssEapImportNameInternal(minor, nameBuffer, name,
 463                                     EXPORT_NAME_FLAG_OID |
 464                                     EXPORT_NAME_FLAG_ALLOW_COMPOSITE);
 465 }
 466
 467 #ifdef HAVE_GSS_C_NT_COMPOSITE_EXPORT
 468 static OM_uint32
 469 importCompositeExportName(OM_uint32 *minor,
 470                           const gss_buffer_t nameBuffer,
 471                           gss_name_t *name)
 472 {
 473     return gssEapImportNameInternal(minor, nameBuffer, name,
 474                                     EXPORT_NAME_FLAG_OID |
 475                                     EXPORT_NAME_FLAG_COMPOSITE);
 476 }
 477 #endif
 478
 479 struct gss_eap_name_import_provider {
 480     gss_const_OID oid;
 481     OM_uint32 (*import)(OM_uint32 *, const gss_buffer_t, gss_name_t *);
 482 };
 483
 484 OM_uint32
 485 gssEapImportName(OM_uint32 *minor,
 486                  const gss_buffer_t nameBuffer,
 487                  const gss_OID nameType,
 488                  const gss_OID mechType,
 489                  gss_name_t *pName)
 490 {
 491     struct gss_eap_name_import_provider nameTypes[] = {
 492         { GSS_EAP_NT_EAP_NAME,              importEapName               },
 493         { GSS_C_NT_USER_NAME,               importUserName              },
 494         { GSS_C_NT_HOSTBASED_SERVICE,       importServiceName           },
 495         { GSS_C_NT_HOSTBASED_SERVICE_X,     importServiceName           },
 496         { GSS_C_NT_ANONYMOUS,               importAnonymousName         },
 497         { GSS_C_NT_EXPORT_NAME,             importExportName            },
 498         { GSS_KRB5_NT_PRINCIPAL_NAME,       importUserName              },
 499 #ifdef HAVE_GSS_C_NT_COMPOSITE_EXPORT
 500         { GSS_C_NT_COMPOSITE_EXPORT,        importCompositeExportName   },
 501 #endif
 502     };
 503     size_t i;
 504     OM_uint32 major = GSS_S_BAD_NAMETYPE;
 505     OM_uint32 tmpMinor;
 506     gss_name_t name = GSS_C_NO_NAME;
 507
 508     for (i = 0; i < sizeof(nameTypes) / sizeof(nameTypes[0]); i++) {
 509         if (oidEqual(nameTypes[i].oid,
 510                      nameType == GSS_C_NO_OID ? GSS_EAP_NT_EAP_NAME : nameType)) {
 511             major = nameTypes[i].import(minor, nameBuffer, &name);
 512             break;
 513         }
 514     }
 515
 516     if (major == GSS_S_COMPLETE &&
 517         mechType != GSS_C_NO_OID) {
 518         GSSEAP_ASSERT(gssEapIsConcreteMechanismOid(mechType));
 519         GSSEAP_ASSERT(name->mechanismUsed == GSS_C_NO_OID);
 520
 521         major = gssEapCanonicalizeOid(minor, mechType, 0, &name->mechanismUsed);
 522     }
 523
 524     if (GSS_ERROR(major))
 525         gssEapReleaseName(&tmpMinor, &name);
 526     else
 527         *pName = name;
 528
 529     return major;
 530 }
 531
 532 OM_uint32
 533 gssEapExportName(OM_uint32 *minor,
 534                  const gss_name_t name,
 535                  gss_buffer_t exportedName)
 536 {
 537     return gssEapExportNameInternal(minor, name, exportedName,
 538                                     EXPORT_NAME_FLAG_OID);
 539 }
 540
 541 OM_uint32
 542 gssEapExportNameInternal(OM_uint32 *minor,
 543                          const gss_name_t name,
 544                          gss_buffer_t exportedName,
 545                          OM_uint32 flags)
 546 {
 547     OM_uint32 major = GSS_S_FAILURE, tmpMinor;
 548     gss_buffer_desc nameBuf = GSS_C_EMPTY_BUFFER;
 549     size_t exportedNameLen;
 550     unsigned char *p;
 551     gss_buffer_desc attrs = GSS_C_EMPTY_BUFFER;
 552     gss_OID mech;
 553
 554     exportedName->length = 0;
 555     exportedName->value = NULL;
 556
 557     if (name->mechanismUsed != GSS_C_NO_OID)
 558         mech = name->mechanismUsed;
 559     else
 560         mech = GSS_EAP_MECHANISM;
 561
 562     major = gssEapDisplayName(minor, name, &nameBuf, NULL);
 563     if (GSS_ERROR(major))
 564         goto cleanup;
 565
 566     exportedNameLen = 0;
 567     if (flags & EXPORT_NAME_FLAG_OID) {
 568         exportedNameLen += 6 + mech->length;
 569     }
 570     exportedNameLen += 4 + nameBuf.length;
 571 #ifdef GSSEAP_ENABLE_ACCEPTOR
 572     if (flags & EXPORT_NAME_FLAG_COMPOSITE) {
 573         major = gssEapExportAttrContext(minor, name, &attrs);
 574         if (GSS_ERROR(major))
 575             goto cleanup;
 576         exportedNameLen += attrs.length;
 577     }
 578 #endif
 579
 580     exportedName->value = GSSEAP_MALLOC(exportedNameLen);
 581     if (exportedName->value == NULL) {
 582         major = GSS_S_FAILURE;
 583         *minor = ENOMEM;
 584         goto cleanup;
 585     }
 586     exportedName->length = exportedNameLen;
 587
 588     p = (unsigned char *)exportedName->value;
 589
 590     if (flags & EXPORT_NAME_FLAG_OID) {
 591         /* TOK | MECH_OID_LEN */
 592         store_uint16_be((flags & EXPORT_NAME_FLAG_COMPOSITE)
 593                         ? TOK_TYPE_EXPORT_NAME_COMPOSITE
 594                         : TOK_TYPE_EXPORT_NAME,
 595                         p);
 596         p += 2;
 597         store_uint16_be(mech->length + 2, p);
 598         p += 2;
 599
 600         /* MECH_OID */
 601         *p++ = 0x06;
 602         *p++ = mech->length & 0xff;
 603         memcpy(p, mech->elements, mech->length);
 604         p += mech->length;
 605     }
 606
 607     /* NAME_LEN */
 608     store_uint32_be(nameBuf.length, p);
 609     p += 4;
 610
 611     /* NAME */
 612     memcpy(p, nameBuf.value, nameBuf.length);
 613     p += nameBuf.length;
 614
 615     if (flags & EXPORT_NAME_FLAG_COMPOSITE) {
 616         memcpy(p, attrs.value, attrs.length);
 617         p += attrs.length;
 618     }
 619
 620     GSSEAP_ASSERT(p == (unsigned char *)exportedName->value + exportedNameLen);
 621
 622     major = GSS_S_COMPLETE;
 623     *minor = 0;
 624
 625 cleanup:
 626     gss_release_buffer(&tmpMinor, &attrs);
 627     gss_release_buffer(&tmpMinor, &nameBuf);
 628     if (GSS_ERROR(major))
 629         gss_release_buffer(&tmpMinor, exportedName);
 630
 631     return major;
 632 }
 633
 634 OM_uint32
 635 gssEapCanonicalizeName(OM_uint32 *minor,
 636                        const gss_name_t input_name,
 637                        const gss_OID mech_type,
 638                        gss_name_t *dest_name)
 639 {
 640     OM_uint32 major, tmpMinor;
 641     krb5_context krbContext;
 642     gss_name_t name;
 643     gss_OID mech_used;
 644
 645     if (input_name == GSS_C_NO_NAME) {
 646         *minor = EINVAL;
 647         return GSS_S_CALL_INACCESSIBLE_READ | GSS_S_BAD_NAME;
 648     }
 649
 650     GSSEAP_KRB_INIT(&krbContext);
 651
 652     major = gssEapAllocName(minor, &name);
 653     if (GSS_ERROR(major)) {
 654         return major;
 655     }
 656
 657     if (mech_type != GSS_C_NO_OID)
 658         mech_used = mech_type;
 659     else
 660         mech_used = input_name->mechanismUsed;
 661
 662     major = gssEapCanonicalizeOid(minor,
 663                                   mech_used,
 664                                   OID_FLAG_NULL_VALID,
 665                                   &name->mechanismUsed);
 666     if (GSS_ERROR(major))
 667         goto cleanup;
 668
 669     name->flags = input_name->flags;
 670
 671     *minor = krb5_copy_principal(krbContext, input_name->krbPrincipal,
 672                                  &name->krbPrincipal);
 673     if (*minor != 0) {
 674         major = GSS_S_FAILURE;
 675         goto cleanup;
 676     }
 677
 678 #ifdef GSSEAP_ENABLE_ACCEPTOR
 679     if (input_name->attrCtx != NULL) {
 680         major = gssEapDuplicateAttrContext(minor, input_name, name);
 681         if (GSS_ERROR(major))
 682             goto cleanup;
 683     }
 684 #endif
 685
 686     *dest_name = name;
 687
 688 cleanup:
 689     if (GSS_ERROR(major)) {
 690         gssEapReleaseName(&tmpMinor, &name);
 691     }
 692
 693     return major;
 694 }
 695
 696 OM_uint32
 697 gssEapDuplicateName(OM_uint32 *minor,
 698                     const gss_name_t input_name,
 699                     gss_name_t *dest_name)
 700 {
 701     return gssEapCanonicalizeName(minor, input_name,
 702                                   GSS_C_NO_OID, dest_name);
 703 }
 704
 705 OM_uint32
 706 gssEapDisplayName(OM_uint32 *minor,
 707                   gss_name_t name,
 708                   gss_buffer_t output_name_buffer,
 709                   gss_OID *output_name_type)
 710 {
 711     OM_uint32 major;
 712     krb5_context krbContext;
 713     char *krbName;
 714     gss_OID name_type;
 715     int flags = 0;
 716
 717     GSSEAP_KRB_INIT(&krbContext);
 718
 719     output_name_buffer->length = 0;
 720     output_name_buffer->value = NULL;
 721
 722     if (name == GSS_C_NO_NAME) {
 723         *minor = EINVAL;
 724         return GSS_S_CALL_INACCESSIBLE_READ | GSS_S_BAD_NAME;
 725     }
 726
 727     /*
 728      * According to draft-ietf-abfab-gss-eap-01, when the realm is
 729      * absent the trailing '@' is not included.
 730      */
 731 #ifdef HAVE_HEIMDAL_VERSION
 732     if (KRB_PRINC_REALM(name->krbPrincipal) == NULL ||
 733         KRB_PRINC_REALM(name->krbPrincipal)[0] == '\0')
 734 #else
 735     if (KRB_PRINC_REALM(name->krbPrincipal)->length == 0)
 736 #endif
 737         flags |= KRB5_PRINCIPAL_UNPARSE_NO_REALM;
 738
 739     *minor = krb5_unparse_name_flags(krbContext, name->krbPrincipal,
 740                                      flags, &krbName);
 741     if (*minor != 0) {
 742         return GSS_S_FAILURE;
 743     }
 744
 745     major = makeStringBuffer(minor, krbName, output_name_buffer);
 746     if (GSS_ERROR(major)) {
 747         krb5_free_unparsed_name(krbContext, krbName);
 748         return major;
 749     }
 750
 751     krb5_free_unparsed_name(krbContext, krbName);
 752
 753     if (output_name_buffer->length == 0) {
 754         name_type = GSS_C_NT_ANONYMOUS;
 755     } else if (name->flags & NAME_FLAG_NAI) {
 756         name_type = GSS_C_NT_USER_NAME;
 757     } else {
 758         name_type = GSS_EAP_NT_EAP_NAME;
 759     }
 760
 761     if (output_name_type != NULL)
 762         *output_name_type = name_type;
 763
 764     return GSS_S_COMPLETE;
 765 }
 766
 767 OM_uint32
 768 gssEapCompareName(OM_uint32 *minor,
 769                   gss_name_t name1,
 770                   gss_name_t name2,
 771                   int *name_equal)
 772 {
 773     krb5_context krbContext;
 774
 775     *minor = 0;
 776
 777     if (name1 == GSS_C_NO_NAME && name2 == GSS_C_NO_NAME) {
 778         *name_equal = 1;
 779     } else if (name1 != GSS_C_NO_NAME && name2 != GSS_C_NO_NAME) {
 780         GSSEAP_KRB_INIT(&krbContext);
 781
 782         /* krbPrincipal is immutable, so lock not required */
 783         *name_equal = krb5_principal_compare(krbContext,
 784                                              name1->krbPrincipal,
 785                                              name2->krbPrincipal);
 786     }
 787
 788     return GSS_S_COMPLETE;
 789 }