7e659f67cb8c4347393389730dd599d307e85d35
[mech_eap.orig] / util_cred.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 gssEapAllocCred(OM_uint32 *minor, gss_cred_id_t *pCred)
37 {
38     OM_uint32 tmpMinor;
39     gss_cred_id_t cred;
40
41     assert(*pCred == GSS_C_NO_CREDENTIAL);
42
43     cred = (gss_cred_id_t)GSSEAP_CALLOC(1, sizeof(*cred));
44     if (cred == NULL) {
45         *minor = ENOMEM;
46         return GSS_S_FAILURE;
47     }
48
49     if (GSSEAP_MUTEX_INIT(&cred->mutex) != 0) {
50         *minor = errno;
51         gssEapReleaseCred(&tmpMinor, &cred);
52         return GSS_S_FAILURE;
53     }
54
55     *pCred = cred;
56
57     *minor = 0;
58     return GSS_S_COMPLETE;
59 }
60
61 OM_uint32
62 gssEapReleaseCred(OM_uint32 *minor, gss_cred_id_t *pCred)
63 {
64     OM_uint32 tmpMinor;
65     gss_cred_id_t cred = *pCred;
66
67     if (cred == GSS_C_NO_CREDENTIAL) {
68         return GSS_S_COMPLETE;
69     }
70
71     gssEapReleaseName(&tmpMinor, &cred->name);
72
73     if (cred->password.value != NULL) {
74         memset(cred->password.value, 0, cred->password.length);
75         GSSEAP_FREE(cred->password.value);
76     }
77
78     GSSEAP_MUTEX_DESTROY(&cred->mutex);
79     memset(cred, 0, sizeof(*cred));
80     GSSEAP_FREE(cred);
81     *pCred = NULL;
82
83     *minor = 0;
84     return GSS_S_COMPLETE;
85 }
86
87 OM_uint32
88 gssEapAcquireCred(OM_uint32 *minor,
89                   const gss_name_t desiredName,
90                   const gss_buffer_t password,
91                   OM_uint32 timeReq,
92                   const gss_OID_set desiredMechs,
93                   int credUsage,
94                   gss_cred_id_t *pCred,
95                   gss_OID_set *pActualMechs,
96                   OM_uint32 *timeRec)
97 {
98     OM_uint32 major, tmpMinor;
99     gss_cred_id_t cred;
100
101     *pCred = GSS_C_NO_CREDENTIAL;
102
103     major = gssEapAllocCred(minor, &cred);
104     if (GSS_ERROR(major))
105         goto cleanup;
106
107     if (desiredName != GSS_C_NO_NAME) {
108         major = gss_duplicate_name(minor, desiredName, &cred->name);
109         if (GSS_ERROR(major))
110             goto cleanup;
111     } else {
112         cred->flags |= CRED_FLAG_DEFAULT_IDENTITY;
113     }
114
115     if (password != GSS_C_NO_BUFFER) {
116         major = duplicateBuffer(minor, password, &cred->password);
117         if (GSS_ERROR(major))
118             goto cleanup;
119
120         cred->flags |= CRED_FLAG_PASSWORD;
121     }
122
123     major = gssEapValidateMechs(minor, desiredMechs);
124     if (GSS_ERROR(major))
125         goto cleanup;
126
127     major = duplicateOidSet(minor, desiredMechs, &cred->mechanisms);
128     if (GSS_ERROR(major))
129         goto cleanup;
130
131     switch (credUsage) {
132     case GSS_C_BOTH:
133         cred->flags |= CRED_FLAG_INITIATE | CRED_FLAG_ACCEPT;
134         break;
135     case GSS_C_INITIATE:
136         cred->flags |= CRED_FLAG_INITIATE;
137         break;
138     case GSS_C_ACCEPT:
139         cred->flags |= CRED_FLAG_ACCEPT;
140         break;
141     default:
142         major = GSS_S_FAILURE;
143         goto cleanup;
144         break;
145     }
146
147     if (pActualMechs != NULL) {
148         major = duplicateOidSet(minor, cred->mechanisms, pActualMechs);
149         if (GSS_ERROR(major))
150             goto cleanup;
151     }
152
153     if (timeRec != NULL)
154         *timeRec = GSS_C_INDEFINITE;
155
156     *pCred = cred;
157     major = GSS_S_COMPLETE;
158
159 cleanup:
160     if (GSS_ERROR(major))
161         gssEapReleaseCred(&tmpMinor, &cred);
162
163     return major;
164 }