document default_realm appdefault
[mech_eap.orig] / 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 gssEapNtPrincipalName = {
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_PRINCIPAL_NAME = &gssEapNtPrincipalName;
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 = errno;
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
116     gssEapReleaseAttrContext(&tmpMinor, name);
117
118     GSSEAP_MUTEX_DESTROY(&name->mutex);
119     GSSEAP_FREE(name);
120     *pName = NULL;
121
122     return GSS_S_COMPLETE;
123 }
124
125 static OM_uint32
126 krbPrincipalToName(OM_uint32 *minor,
127                    krb5_principal *principal,
128                    gss_name_t *pName)
129 {
130     OM_uint32 major;
131     gss_name_t name;
132
133     major = gssEapAllocName(minor, &name);
134     if (GSS_ERROR(major))
135         return major;
136
137     name->krbPrincipal = *principal;
138     *principal = NULL;
139
140     if (KRB_PRINC_LENGTH(name->krbPrincipal) > 1) {
141         name->flags |= NAME_FLAG_SERVICE;
142     } else {
143         name->flags |= NAME_FLAG_NAI;
144     }
145
146     *pName = name;
147     *minor = 0;
148
149     return GSS_S_COMPLETE;
150 }
151
152 static OM_uint32
153 importServiceName(OM_uint32 *minor,
154                   const gss_buffer_t nameBuffer,
155                   gss_name_t *pName)
156 {
157     OM_uint32 major;
158     krb5_context krbContext;
159     krb5_principal krbPrinc;
160     char *service, *host;
161
162     GSSEAP_KRB_INIT(&krbContext);
163
164     major = bufferToString(minor, nameBuffer, &service);
165     if (GSS_ERROR(major))
166         return major;
167
168     host = strchr(service, '@');
169     if (host != NULL) {
170         *host = '\0';
171         host++;
172     }
173
174     /* XXX this is probably NOT what we want to be doing */
175     if (krb5_sname_to_principal(krbContext, host, service,
176                                 KRB5_NT_SRV_HST, &krbPrinc) != 0) {
177         GSSEAP_FREE(service);
178         *minor = GSSEAP_BAD_SERVICE_NAME;
179         return GSS_S_FAILURE;
180     }
181
182     major = krbPrincipalToName(minor, &krbPrinc, pName);
183     if (GSS_ERROR(major)) {
184         krb5_free_principal(krbContext, krbPrinc);
185     }
186
187     GSSEAP_FREE(service);
188     return major;
189 }
190
191 static OM_uint32
192 importUserName(OM_uint32 *minor,
193                const gss_buffer_t nameBuffer,
194                gss_name_t *pName)
195 {
196     OM_uint32 major;
197     krb5_context krbContext;
198     krb5_principal krbPrinc;
199     char *nameString, *realm = NULL;
200     int flags = 0;
201     krb5_error_code code;
202
203     GSSEAP_KRB_INIT(&krbContext);
204
205     code = krb5_get_default_realm(krbContext, &realm);
206     if (code != 0 || realm == NULL)
207         flags |= KRB5_PRINCIPAL_PARSE_REQUIRE_REALM;
208     else
209         krb5_free_default_realm(krbContext, realm);
210
211     if (nameBuffer == GSS_C_NO_BUFFER) {
212         *minor = krb5_copy_principal(krbContext,
213                                      krbAnonymousPrincipal(), &krbPrinc);
214         if (*minor != 0)
215             return GSS_S_FAILURE;
216     } else {
217         major = bufferToString(minor, nameBuffer, &nameString);
218         if (GSS_ERROR(major))
219             return major;
220
221         *minor = krb5_parse_name_flags(krbContext, nameString, flags, &krbPrinc);
222         if (*minor != 0) {
223             GSSEAP_FREE(nameString);
224             return GSS_S_FAILURE;
225         }
226     }
227
228     major = krbPrincipalToName(minor, &krbPrinc, pName);
229     if (GSS_ERROR(major)) {
230         krb5_free_principal(krbContext, krbPrinc);
231     }
232
233     GSSEAP_FREE(nameString);
234     return major;
235 }
236
237 static OM_uint32
238 importAnonymousName(OM_uint32 *minor,
239                     const gss_buffer_t nameBuffer GSSEAP_UNUSED,
240                     gss_name_t *pName)
241 {
242     OM_uint32 major;
243     krb5_context krbContext;
244     krb5_principal krbPrinc;
245
246     GSSEAP_KRB_INIT(&krbContext);
247
248     *minor = krb5_copy_principal(krbContext, krbAnonymousPrincipal(),
249                                  &krbPrinc);
250     if (*minor != 0)
251         return GSS_S_FAILURE;
252
253     major = krbPrincipalToName(minor, &krbPrinc, pName);
254     if (GSS_ERROR(major)) {
255         krb5_free_principal(krbContext, krbPrinc);
256     }
257
258     return major;
259 }
260
261 #define UPDATE_REMAIN(n)    do {            \
262         p += (n);                           \
263         remain -= (n);                      \
264     } while (0)
265
266 #define CHECK_REMAIN(n)     do {        \
267         if (remain < (n)) {             \
268             major = GSS_S_BAD_NAME;     \
269             *minor = GSSEAP_TOK_TRUNC;  \
270             goto cleanup;               \
271         }                               \
272     } while (0)
273
274 OM_uint32
275 gssEapImportNameInternal(OM_uint32 *minor,
276                          const gss_buffer_t nameBuffer,
277                          gss_name_t *pName,
278                          unsigned int flags)
279 {
280     OM_uint32 major, tmpMinor;
281     krb5_context krbContext;
282     unsigned char *p;
283     size_t len, remain;
284     gss_buffer_desc buf;
285     enum gss_eap_token_type tokType;
286     gss_name_t name = GSS_C_NO_NAME;
287     gss_OID mechanismUsed = GSS_C_NO_OID;
288
289     GSSEAP_KRB_INIT(&krbContext);
290
291     p = (unsigned char *)nameBuffer->value;
292     remain = nameBuffer->length;
293
294     if (flags & EXPORT_NAME_FLAG_OID) {
295         gss_OID_desc mech;
296
297         /* TOK_ID || MECH_OID_LEN || MECH_OID */
298         if (remain < 6)
299             return GSS_S_BAD_NAME;
300
301         if (flags & EXPORT_NAME_FLAG_COMPOSITE)
302             tokType = TOK_TYPE_EXPORT_NAME_COMPOSITE;
303         else
304             tokType = TOK_TYPE_EXPORT_NAME;
305
306         /* TOK_ID */
307         if (load_uint16_be(p) != tokType)
308             return GSS_S_BAD_NAME;
309         UPDATE_REMAIN(2);
310
311         /* MECH_OID_LEN */
312         len = load_uint16_be(p);
313         if (len < 2)
314             return GSS_S_BAD_NAME;
315         UPDATE_REMAIN(2);
316
317         /* MECH_OID */
318         if (p[0] != 0x06)
319             return GSS_S_BAD_NAME;
320
321         mech.length = p[1];
322         mech.elements = &p[2];
323
324         CHECK_REMAIN(mech.length);
325
326         major = gssEapCanonicalizeOid(minor,
327                                       &mech,
328                                       OID_FLAG_FAMILY_MECH_VALID |
329                                         OID_FLAG_MAP_FAMILY_MECH_TO_NULL,
330                                       &mechanismUsed);
331         if (GSS_ERROR(major))
332             goto cleanup;
333
334         UPDATE_REMAIN(2 + mech.length);
335     }
336
337     /* NAME_LEN */
338     CHECK_REMAIN(4);
339     len = load_uint32_be(p);
340     UPDATE_REMAIN(4);
341
342     /* NAME */
343     CHECK_REMAIN(len);
344     buf.length = len;
345     buf.value = p;
346     UPDATE_REMAIN(len);
347
348     major = importUserName(minor, &buf, &name);
349     if (GSS_ERROR(major))
350         goto cleanup;
351
352     name->mechanismUsed = mechanismUsed;
353     mechanismUsed = GSS_C_NO_OID;
354
355     if (flags & EXPORT_NAME_FLAG_COMPOSITE) {
356         gss_buffer_desc buf;
357
358         buf.length = remain;
359         buf.value = p;
360
361         major = gssEapImportAttrContext(minor, &buf, name);
362         if (GSS_ERROR(major))
363             goto cleanup;
364     }
365
366     major = GSS_S_COMPLETE;
367     *minor = 0;
368
369 cleanup:
370     if (GSS_ERROR(major)) {
371         gssEapReleaseOid(&tmpMinor, &mechanismUsed);
372         gssEapReleaseName(&tmpMinor, &name);
373     } else {
374         *pName = name;
375     }
376
377     return major;
378 }
379
380 static OM_uint32
381 importExportName(OM_uint32 *minor,
382                  const gss_buffer_t nameBuffer,
383                  gss_name_t *name)
384 {
385     return gssEapImportNameInternal(minor, nameBuffer, name,
386                                     EXPORT_NAME_FLAG_OID);
387 }
388
389 #ifdef HAVE_GSS_C_NT_COMPOSITE_EXPORT
390 static OM_uint32
391 importCompositeExportName(OM_uint32 *minor,
392                           const gss_buffer_t nameBuffer,
393                           gss_name_t *name)
394 {
395     return gssEapImportNameInternal(minor, nameBuffer, name,
396                                     EXPORT_NAME_FLAG_OID |
397                                     EXPORT_NAME_FLAG_COMPOSITE);
398 }
399 #endif
400
401 struct gss_eap_name_import_provider {
402     gss_OID oid;
403     OM_uint32 (*import)(OM_uint32 *, const gss_buffer_t, gss_name_t *);
404 };
405
406 OM_uint32
407 gssEapImportName(OM_uint32 *minor,
408                  const gss_buffer_t nameBuffer,
409                  gss_OID nameType,
410                  gss_OID mechType,
411                  gss_name_t *pName)
412 {
413     struct gss_eap_name_import_provider nameTypes[] = {
414         { GSS_C_NT_USER_NAME,               importUserName              },
415         { GSS_EAP_NT_PRINCIPAL_NAME,        importUserName              },
416         { GSS_C_NT_HOSTBASED_SERVICE,       importServiceName           },
417         { GSS_C_NT_HOSTBASED_SERVICE_X,     importServiceName           },
418         { GSS_C_NT_ANONYMOUS,               importAnonymousName         },
419         { GSS_C_NT_EXPORT_NAME,             importExportName            },
420 #ifdef HAVE_GSS_C_NT_COMPOSITE_EXPORT
421         { GSS_C_NT_COMPOSITE_EXPORT,        importCompositeExportName   },
422 #endif
423     };
424     size_t i;
425     OM_uint32 major = GSS_S_BAD_NAMETYPE;
426     OM_uint32 tmpMinor;
427     gss_name_t name = GSS_C_NO_NAME;
428
429     if (nameType == GSS_C_NO_OID)
430         nameType = nameTypes[0].oid;
431
432     for (i = 0; i < sizeof(nameTypes) / sizeof(nameTypes[0]); i++) {
433         if (oidEqual(nameTypes[i].oid, nameType)) {
434             major = nameTypes[i].import(minor, nameBuffer, &name);
435             break;
436         }
437     }
438
439     if (major == GSS_S_COMPLETE &&
440         mechType != GSS_C_NO_OID) {
441         assert(gssEapIsConcreteMechanismOid(mechType));
442         assert(name->mechanismUsed == GSS_C_NO_OID);
443
444         major = gssEapCanonicalizeOid(minor, mechType, 0, &name->mechanismUsed);
445     }
446
447     if (GSS_ERROR(major))
448         gssEapReleaseName(&tmpMinor, &name);
449     else
450         *pName = name;
451
452     return major;
453 }
454
455 OM_uint32
456 gssEapExportName(OM_uint32 *minor,
457                  const gss_name_t name,
458                  gss_buffer_t exportedName)
459 {
460     return gssEapExportNameInternal(minor, name, exportedName,
461                                     EXPORT_NAME_FLAG_OID);
462 }
463
464 OM_uint32
465 gssEapExportNameInternal(OM_uint32 *minor,
466                          const gss_name_t name,
467                          gss_buffer_t exportedName,
468                          unsigned int flags)
469 {
470     OM_uint32 major = GSS_S_FAILURE, tmpMinor;
471     krb5_context krbContext;
472     char *krbName = NULL;
473     size_t krbNameLen, exportedNameLen;
474     unsigned char *p;
475     gss_buffer_desc attrs = GSS_C_EMPTY_BUFFER;
476     gss_OID mech;
477
478     exportedName->length = 0;
479     exportedName->value = NULL;
480
481     if (name->mechanismUsed != GSS_C_NO_OID)
482         mech = name->mechanismUsed;
483     else
484         mech = GSS_EAP_MECHANISM;
485
486     GSSEAP_KRB_INIT(&krbContext);
487
488     *minor = krb5_unparse_name(krbContext, name->krbPrincipal, &krbName);
489     if (*minor != 0) {
490         major = GSS_S_FAILURE;
491         goto cleanup;
492     }
493     krbNameLen = strlen(krbName);
494
495     exportedNameLen = 0;
496     if (flags & EXPORT_NAME_FLAG_OID) {
497         exportedNameLen += 6 + mech->length;
498     }
499     exportedNameLen += 4 + krbNameLen;
500     if (flags & EXPORT_NAME_FLAG_COMPOSITE) {
501         major = gssEapExportAttrContext(minor, name, &attrs);
502         if (GSS_ERROR(major))
503             goto cleanup;
504         exportedNameLen += attrs.length;
505     }
506
507     exportedName->value = GSSEAP_MALLOC(exportedNameLen);
508     if (exportedName->value == NULL) {
509         major = GSS_S_FAILURE;
510         *minor = ENOMEM;
511         goto cleanup;
512     }
513     exportedName->length = exportedNameLen;
514
515     p = (unsigned char *)exportedName->value;
516
517     if (flags & EXPORT_NAME_FLAG_OID) {
518         /* TOK | MECH_OID_LEN */
519         store_uint16_be((flags & EXPORT_NAME_FLAG_COMPOSITE)
520                         ? TOK_TYPE_EXPORT_NAME_COMPOSITE
521                         : TOK_TYPE_EXPORT_NAME,
522                         p);
523         p += 2;
524         store_uint16_be(mech->length + 2, p);
525         p += 2;
526
527         /* MECH_OID */
528         *p++ = 0x06;
529         *p++ = mech->length & 0xff;
530         memcpy(p, mech->elements, mech->length);
531         p += mech->length;
532     }
533
534     /* NAME_LEN */
535     store_uint32_be(krbNameLen, p);
536     p += 4;
537
538     /* NAME */
539     memcpy(p, krbName, krbNameLen);
540     p += krbNameLen;
541
542     if (flags & EXPORT_NAME_FLAG_COMPOSITE) {
543         memcpy(p, attrs.value, attrs.length);
544         p += attrs.length;
545     }
546
547     assert(p == (unsigned char *)exportedName->value + exportedNameLen);
548
549     major = GSS_S_COMPLETE;
550     *minor = 0;
551
552 cleanup:
553     gss_release_buffer(&tmpMinor, &attrs);
554     if (GSS_ERROR(major))
555         gss_release_buffer(&tmpMinor, exportedName);
556     krb5_free_unparsed_name(krbContext, krbName);
557
558     return major;
559 }
560
561 OM_uint32
562 gssEapCanonicalizeName(OM_uint32 *minor,
563                        const gss_name_t input_name,
564                        const gss_OID mech_type,
565                        gss_name_t *dest_name)
566 {
567     OM_uint32 major, tmpMinor;
568     krb5_context krbContext;
569     gss_name_t name;
570     gss_OID mech_used;
571
572     if (input_name == GSS_C_NO_NAME) {
573         *minor = EINVAL;
574         return GSS_S_CALL_INACCESSIBLE_READ | GSS_S_BAD_NAME;
575     }
576
577     GSSEAP_KRB_INIT(&krbContext);
578
579     major = gssEapAllocName(minor, &name);
580     if (GSS_ERROR(major)) {
581         return major;
582     }
583
584     if (mech_type != GSS_C_NO_OID)
585         mech_used = mech_type;
586     else
587         mech_used = input_name->mechanismUsed;
588
589     major = gssEapCanonicalizeOid(minor,
590                                   mech_used,
591                                   OID_FLAG_NULL_VALID,
592                                   &name->mechanismUsed);
593     if (GSS_ERROR(major))
594         goto cleanup;
595
596     name->flags = input_name->flags;
597
598     *minor = krb5_copy_principal(krbContext, input_name->krbPrincipal,
599                                  &name->krbPrincipal);
600     if (*minor != 0) {
601         major = GSS_S_FAILURE;
602         goto cleanup;
603     }
604
605     if (input_name->attrCtx != NULL) {
606         major = gssEapDuplicateAttrContext(minor, input_name, name);
607         if (GSS_ERROR(major))
608             goto cleanup;
609     }
610
611     *dest_name = name;
612
613 cleanup:
614     if (GSS_ERROR(major)) {
615         gssEapReleaseName(&tmpMinor, &name);
616     }
617
618     return major;
619 }
620
621 OM_uint32
622 gssEapDuplicateName(OM_uint32 *minor,
623                     const gss_name_t input_name,
624                     gss_name_t *dest_name)
625 {
626     return gssEapCanonicalizeName(minor, input_name,
627                                   GSS_C_NO_OID, dest_name);
628 }
629
630 OM_uint32
631 gssEapDisplayName(OM_uint32 *minor,
632                   gss_name_t name,
633                   gss_buffer_t output_name_buffer,
634                   gss_OID *output_name_type)
635 {
636     OM_uint32 major;
637     krb5_context krbContext;
638     char *krbName;
639     gss_OID name_type;
640
641     GSSEAP_KRB_INIT(&krbContext);
642
643     output_name_buffer->length = 0;
644     output_name_buffer->value = NULL;
645
646     if (name == GSS_C_NO_NAME) {
647         *minor = EINVAL;
648         return GSS_S_CALL_INACCESSIBLE_READ | GSS_S_BAD_NAME;
649     }
650
651     *minor = krb5_unparse_name(krbContext, name->krbPrincipal, &krbName);
652     if (*minor != 0) {
653         return GSS_S_FAILURE;
654     }
655
656     major = makeStringBuffer(minor, krbName, output_name_buffer);
657     if (GSS_ERROR(major)) {
658         krb5_free_unparsed_name(krbContext, krbName);
659         return major;
660     }
661
662     krb5_free_unparsed_name(krbContext, krbName);
663
664     if (KRB_PRINC_TYPE(name->krbPrincipal) == KRB5_NT_WELLKNOWN &&
665         krb5_principal_compare(krbContext,
666                                name->krbPrincipal, krbAnonymousPrincipal())) {
667         name_type = GSS_C_NT_ANONYMOUS;
668     } else {
669         name_type = GSS_EAP_NT_PRINCIPAL_NAME;
670     }
671
672     if (output_name_type != NULL)
673         *output_name_type = name_type;
674
675     return GSS_S_COMPLETE;
676 }