Refactor
[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_INTEG_FLAG    |
66                     GSS_C_CONF_FLAG     |
67                     GSS_C_SEQUENCE_FLAG |
68                     GSS_C_REPLAY_FLAG;
69
70     *pCtx = ctx;
71
72     return GSS_S_COMPLETE;
73 }
74
75 static void
76 releaseInitiatorContext(struct eap_gss_initiator_ctx *ctx)
77 {
78     eap_peer_sm_deinit(ctx->eap);
79     wpabuf_free(ctx->eapReqData);
80 }
81
82 static void
83 releaseAcceptorContext(struct eap_gss_acceptor_ctx *ctx)
84 {
85 }
86
87 OM_uint32
88 gssEapReleaseContext(OM_uint32 *minor,
89                      gss_ctx_id_t *pCtx)
90 {
91     OM_uint32 tmpMinor;
92     gss_ctx_id_t ctx = *pCtx;
93     krb5_context krbContext = NULL;
94
95     if (ctx == GSS_C_NO_CONTEXT) {
96         return GSS_S_COMPLETE;
97     }
98
99     gssEapKerberosInit(&tmpMinor, &krbContext);
100
101     if (CTX_IS_INITIATOR(ctx)) {
102         releaseInitiatorContext(&ctx->initiatorCtx);
103     } else {
104         releaseAcceptorContext(&ctx->acceptorCtx);
105     }
106
107     krb5_free_keyblock_contents(krbContext, &ctx->rfc3961Key);
108     gssEapReleaseName(&tmpMinor, &ctx->initiatorName);
109     gssEapReleaseName(&tmpMinor, &ctx->acceptorName);
110     gss_release_oid(&tmpMinor, &ctx->mechanismUsed);
111     sequenceFree(ctx->seqState);
112
113     GSSEAP_MUTEX_DESTROY(&ctx->mutex);
114
115     memset(ctx, 0, sizeof(*ctx));
116     GSSEAP_FREE(ctx);
117     *pCtx = GSS_C_NO_CONTEXT;
118
119     *minor = 0;
120     return GSS_S_COMPLETE;
121 }
122
123 OM_uint32
124 gssEapMakeToken(OM_uint32 *minor,
125                 gss_ctx_id_t ctx,
126                 const gss_buffer_t innerToken,
127                 enum gss_eap_token_type tokenType,
128                 gss_buffer_t outputToken)
129 {
130     unsigned char *p;
131
132     outputToken->length = tokenSize(ctx->mechanismUsed, innerToken->length);
133     outputToken->value = GSSEAP_MALLOC(outputToken->length);
134     if (outputToken->value == NULL) {
135         *minor = ENOMEM;
136         return GSS_S_FAILURE;
137     }
138
139     p = (unsigned char *)outputToken->value;
140     makeTokenHeader(ctx->mechanismUsed, innerToken->length, &p, tokenType);
141     memcpy(p, innerToken->value, innerToken->length);
142
143     *minor = 0;
144     return GSS_S_COMPLETE;
145 }
146
147 OM_uint32
148 gssEapVerifyToken(OM_uint32 *minor,
149                   gss_ctx_id_t ctx,
150                   const gss_buffer_t inputToken,
151                   enum gss_eap_token_type tokenType,
152                   gss_buffer_t innerInputToken)
153 {
154     OM_uint32 major;
155     size_t bodySize;
156     unsigned char *p = (unsigned char *)inputToken->value;
157     gss_OID_desc oidBuf;
158     gss_OID oid;
159
160     if (ctx->mechanismUsed != GSS_C_NO_OID) {
161         oid = ctx->mechanismUsed;
162     } else {
163         oidBuf.elements = NULL;
164         oidBuf.length = 0;
165         oid = &oidBuf;
166     }
167
168     major = verifyTokenHeader(oid, &bodySize, &p, inputToken->length, tokenType);
169     if (GSS_ERROR(major))
170         return major;
171
172     if (ctx->mechanismUsed != GSS_C_NO_OID) {
173         if (!gssEapIsConcreteMechanismOid(oid))
174             return GSS_S_BAD_MECH;
175
176         if (!gssEapInternalizeOid(oid, &ctx->mechanismUsed)) {
177             major = duplicateOid(minor, oid, &ctx->mechanismUsed);
178             if (GSS_ERROR(major))
179                 return major;
180         }
181     }
182
183     innerInputToken->length = bodySize;
184     innerInputToken->value = p;
185
186     *minor = 0;
187     return GSS_S_COMPLETE;
188 }