Support for libradius
[mech_eap.orig] / util_context.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 OM_uint32
36 gssEapAllocContext(OM_uint32 *minor,
37                    gss_ctx_id_t *pCtx)
38 {
39     OM_uint32 tmpMinor;
40     gss_ctx_id_t ctx;
41
42     assert(*pCtx == GSS_C_NO_CONTEXT);
43
44     ctx = (gss_ctx_id_t)GSSEAP_CALLOC(1, sizeof(*ctx));
45     if (ctx == NULL) {
46         *minor = ENOMEM;
47         return GSS_S_FAILURE;
48     }
49
50     if (GSSEAP_MUTEX_INIT(&ctx->mutex) != 0) {
51         *minor = errno;
52         gssEapReleaseContext(&tmpMinor, &ctx);
53         return GSS_S_FAILURE;
54     }
55
56     ctx->state = EAP_STATE_AUTHENTICATE;
57
58     /*
59      * Integrity, confidentiality, sequencing and replay detection are
60      * always available.  Regardless of what flags are requested in
61      * GSS_Init_sec_context, implementations MUST set the flag corresponding
62      * to these services in the output of GSS_Init_sec_context and
63      * GSS_Accept_sec_context.
64     */
65     ctx->gssFlags = GSS_C_TRANS_FLAG    |   /* exporting contexts */
66                     GSS_C_INTEG_FLAG    |   /* integrity */
67                     GSS_C_CONF_FLAG     |   /* confidentiality */
68                     GSS_C_SEQUENCE_FLAG |   /* sequencing */
69                     GSS_C_REPLAY_FLAG;      /* replay detection */
70
71     *pCtx = ctx;
72
73     return GSS_S_COMPLETE;
74 }
75
76 static void
77 releaseInitiatorContext(struct gss_eap_initiator_ctx *ctx)
78 {
79     eap_peer_sm_deinit(ctx->eap);
80 }
81
82 static void
83 releaseAcceptorContext(struct gss_eap_acceptor_ctx *ctx)
84 {
85     if (ctx->avps != NULL)
86         rc_avpair_free(ctx->avps);
87     if (ctx->radHandle != NULL)
88         rc_config_free(ctx->radHandle);
89 }
90
91 OM_uint32
92 gssEapReleaseContext(OM_uint32 *minor,
93                      gss_ctx_id_t *pCtx)
94 {
95     OM_uint32 tmpMinor;
96     gss_ctx_id_t ctx = *pCtx;
97     krb5_context krbContext = NULL;
98
99     if (ctx == GSS_C_NO_CONTEXT) {
100         return GSS_S_COMPLETE;
101     }
102
103     gssEapKerberosInit(&tmpMinor, &krbContext);
104
105     if (CTX_IS_INITIATOR(ctx)) {
106         releaseInitiatorContext(&ctx->initiatorCtx);
107     } else {
108         releaseAcceptorContext(&ctx->acceptorCtx);
109     }
110
111     krb5_free_keyblock_contents(krbContext, &ctx->rfc3961Key);
112     gssEapReleaseName(&tmpMinor, &ctx->initiatorName);
113     gssEapReleaseName(&tmpMinor, &ctx->acceptorName);
114     gss_release_oid(&tmpMinor, &ctx->mechanismUsed);
115     sequenceFree(&tmpMinor, &ctx->seqState);
116
117     GSSEAP_MUTEX_DESTROY(&ctx->mutex);
118
119     memset(ctx, 0, sizeof(*ctx));
120     GSSEAP_FREE(ctx);
121     *pCtx = GSS_C_NO_CONTEXT;
122
123     *minor = 0;
124     return GSS_S_COMPLETE;
125 }
126
127 OM_uint32
128 gssEapMakeToken(OM_uint32 *minor,
129                 gss_ctx_id_t ctx,
130                 const gss_buffer_t innerToken,
131                 enum gss_eap_token_type tokenType,
132                 gss_buffer_t outputToken)
133 {
134     unsigned char *p;
135
136     outputToken->length = tokenSize(ctx->mechanismUsed, innerToken->length);
137     outputToken->value = GSSEAP_MALLOC(outputToken->length);
138     if (outputToken->value == NULL) {
139         *minor = ENOMEM;
140         return GSS_S_FAILURE;
141     }
142
143     p = (unsigned char *)outputToken->value;
144     makeTokenHeader(ctx->mechanismUsed, innerToken->length, &p, tokenType);
145     memcpy(p, innerToken->value, innerToken->length);
146
147     *minor = 0;
148     return GSS_S_COMPLETE;
149 }
150
151 OM_uint32
152 gssEapVerifyToken(OM_uint32 *minor,
153                   gss_ctx_id_t ctx,
154                   const gss_buffer_t inputToken,
155                   enum gss_eap_token_type tokenType,
156                   gss_buffer_t innerInputToken)
157 {
158     OM_uint32 major;
159     size_t bodySize;
160     unsigned char *p = (unsigned char *)inputToken->value;
161     gss_OID_desc oidBuf;
162     gss_OID oid;
163
164     if (ctx->mechanismUsed != GSS_C_NO_OID) {
165         oid = ctx->mechanismUsed;
166     } else {
167         oidBuf.elements = NULL;
168         oidBuf.length = 0;
169         oid = &oidBuf;
170     }
171
172     major = verifyTokenHeader(minor, oid, &bodySize, &p,
173                               inputToken->length, tokenType);
174     if (GSS_ERROR(major))
175         return GSS_S_DEFECTIVE_TOKEN;
176
177     if (ctx->mechanismUsed == GSS_C_NO_OID) {
178         if (!gssEapIsConcreteMechanismOid(oid))
179             return GSS_S_BAD_MECH;
180
181         if (!gssEapInternalizeOid(oid, &ctx->mechanismUsed)) {
182             major = duplicateOid(minor, oid, &ctx->mechanismUsed);
183             if (GSS_ERROR(major))
184                 return major;
185         }
186     }
187
188     innerInputToken->length = bodySize;
189     innerInputToken->value = p;
190
191     *minor = 0;
192     return GSS_S_COMPLETE;
193 }