fix some build errors
[mech_eap.orig] / util_mech.c
1 /*
2  * Copyright (c) 2010, 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 #include "gssapiP_eap.h"
34
35 /*
36  * 1.3.6.1.4.1.5322(padl)
37  *      gssEap(21)
38  *       mechanisms(1)
39  *        eap-aes128-cts-hmac-sha1-96(17)
40  *        eap-aes256-cts-hmac-sha1-96(18)
41  *       nameTypes(2)
42  *       apiExtensions(3)
43  *        inquireSecContextByOid(1)
44  *        inquireCredByOid(2)
45  *        setSecContextOption(3)
46  *        setCredOption(4)
47  *        mechInvoke(5)
48  */
49
50 static gss_OID_desc gssEapConcreteMechs[] = {
51     /* 1.3.6.1.4.1.5322.21.1  */
52     { 9, "\x2B\x06\x01\x04\x01\xA9\x4A\x15\x01" },
53     /* 1.3.6.1.4.1.5322.21.1.17 */
54     { 10, "\x2B\x06\x01\x04\x01\xA9\x4A\x15\x01\x11" },
55     /* 1.3.6.1.4.1.5322.21.1.18 */
56     { 10, "\x2B\x06\x01\x04\x01\xA9\x4A\x15\x01\x12" }
57 };
58
59 gss_OID GSS_EAP_MECHANISM                            = &gssEapConcreteMechs[0];
60 gss_OID GSS_EAP_AES128_CTS_HMAC_SHA1_96_MECHANISM    = &gssEapConcreteMechs[1];
61 gss_OID GSS_EAP_AES256_CTS_HMAC_SHA1_96_MECHANISM    = &gssEapConcreteMechs[2];
62
63 int
64 gssEapIsConcreteMechanismOid(const gss_OID oid)
65 {
66     return oid->length > GSS_EAP_MECHANISM->length &&
67            memcmp(oid->elements, GSS_EAP_MECHANISM->elements,
68                   GSS_EAP_MECHANISM->length) == 0;
69 }
70
71 int
72 gssEapIsMechanismOid(const gss_OID oid)
73 {
74     return oid == GSS_C_NO_OID ||
75            oidEqual(oid, GSS_EAP_MECHANISM) ||
76            gssEapIsConcreteMechanismOid(oid);
77 }
78
79 OM_uint32
80 gssEapValidateMechs(OM_uint32 *minor,
81                     const gss_OID_set mechs)
82 {
83     int i;
84
85     *minor = 0;
86
87     if (mechs == GSS_C_NO_OID_SET) {
88         return GSS_S_COMPLETE;
89     }
90
91     for (i = 0; i < mechs->count; i++) {
92         gss_OID oid = &mechs->elements[i];
93
94         if (!gssEapIsMechanismOid(oid))
95             return GSS_S_BAD_MECH;
96     }
97
98     return GSS_S_COMPLETE;
99 }
100
101 OM_uint32
102 gssEapOidToEnctype(OM_uint32 *minor,
103                    const gss_OID oid,
104                    krb5_enctype *enctype)
105 {
106     OM_uint32 major;
107     int suffix;
108
109     major = decomposeOid(minor,
110                          GSS_EAP_MECHANISM->elements,
111                          GSS_EAP_MECHANISM->length,
112                          oid,
113                          &suffix);
114     if (major == GSS_S_COMPLETE)
115         *enctype = suffix;
116
117     return major;
118 }
119
120 OM_uint32
121 gssEapEnctypeToOid(OM_uint32 *minor,
122                    krb5_enctype enctype,
123                    gss_OID *pOid)
124 {
125     OM_uint32 major;
126     gss_OID oid;
127
128     *pOid = NULL;
129
130     oid = (gss_OID)GSSEAP_MALLOC(sizeof(*oid));
131     if (oid == NULL) {
132         *minor = ENOMEM;
133         return GSS_S_FAILURE;
134     }
135
136     oid->elements = GSSEAP_MALLOC(GSS_EAP_MECHANISM->length + 1);
137     if (oid->elements == NULL) {
138         *minor = ENOMEM;
139         free(oid);
140         return GSS_S_FAILURE;
141     }
142
143     major = composeOid(minor,
144                        GSS_EAP_MECHANISM->elements,
145                        GSS_EAP_MECHANISM->length,
146                        enctype,
147                        oid);
148     if (major == GSS_S_COMPLETE) {
149         gssEapInternalizeOid(oid, pOid);
150         *pOid = oid;
151     } else {
152         free(oid->elements);
153         free(oid);
154     }
155
156     return major;
157 }
158
159 OM_uint32
160 gssEapIndicateMechs(OM_uint32 *minor,
161                     gss_OID_set *mechs)
162 {
163     krb5_context krbContext;
164     OM_uint32 major, tmpMinor;
165     krb5_enctype *etypes;
166     int i;
167
168     GSSEAP_KRB_INIT(&krbContext);
169
170     *minor = krb5_get_permitted_enctypes(krbContext, &etypes);
171     if (*minor != 0) {
172         return GSS_S_FAILURE;
173     }
174
175     major = gss_create_empty_oid_set(minor, mechs);
176     if (GSS_ERROR(major)) {
177         GSSEAP_FREE(etypes); /* XXX */
178         return major;
179     }
180
181     for (i = 0; etypes[i] != ENCTYPE_NULL; i++) {
182         gss_OID mechOid;
183
184         /* XXX currently we aren't equipped to encode these enctypes */
185         if (etypes[i] < 0 || etypes[i] > 127)
186             continue;
187
188         major = gssEapEnctypeToOid(minor, etypes[i], &mechOid);
189         if (GSS_ERROR(major))
190             break;
191
192         major = gss_add_oid_set_member(minor, mechOid, mechs);
193         if (GSS_ERROR(major))
194             break;
195
196         gss_release_oid(&tmpMinor, &mechOid);
197     }
198
199     GSSEAP_FREE(etypes); /* XXX */
200
201     return major;
202 }
203
204 OM_uint32
205 gssEapDefaultMech(OM_uint32 *minor,
206                   gss_OID *oid)
207 {
208     gss_OID_set mechs;
209     OM_uint32 major, tmpMinor;
210
211     major = gssEapIndicateMechs(minor, &mechs);
212     if (GSS_ERROR(major)) {
213         return major;
214     }
215
216     if (mechs->count == 0) {
217         gss_release_oid_set(&tmpMinor, &mechs);
218         return GSS_S_BAD_MECH;
219     }
220
221     if (!gssEapInternalizeOid(&mechs->elements[0], oid)) {
222         /* don't double-free if we didn't internalize it */
223         mechs->elements[0].length = 0;
224         mechs->elements[0].elements = NULL;
225     }
226
227     gss_release_oid_set(&tmpMinor, &mechs);
228
229     *minor = 0;
230     return GSS_S_COMPLETE;
231 }
232
233 int
234 gssEapInternalizeOid(const gss_OID oid,
235                      gss_OID *const pInternalizedOid)
236 {
237     int i;
238
239     *pInternalizedOid = GSS_C_NO_OID;
240
241     for (i = 0;
242          i < sizeof(gssEapConcreteMechs) / sizeof(gssEapConcreteMechs[0]);
243          i++) {
244         if (oidEqual(oid, &gssEapConcreteMechs[i])) {
245             *pInternalizedOid = (const gss_OID)&gssEapConcreteMechs[i];
246             break;
247         }
248     }
249
250     if (*pInternalizedOid == GSS_C_NO_OID) {
251         if (oidEqual(oid, GSS_EAP_NT_PRINCIPAL_NAME))
252             *pInternalizedOid = (const gss_OID)GSS_EAP_NT_PRINCIPAL_NAME;
253     }
254
255     if (*pInternalizedOid == GSS_C_NO_OID) {
256         *pInternalizedOid = oid;
257         return 0;
258     }
259
260     return 1;
261 }