Heimdal portability fixes (except for reauth)
[mech_eap.orig] / util_cksum.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  * Copyright 1993 by OpenVision Technologies, Inc.
34  *
35  * Permission to use, copy, modify, distribute, and sell this software
36  * and its documentation for any purpose is hereby granted without fee,
37  * provided that the above copyright notice appears in all copies and
38  * that both that copyright notice and this permission notice appear in
39  * supporting documentation, and that the name of OpenVision not be used
40  * in advertising or publicity pertaining to distribution of the software
41  * without specific, written prior permission. OpenVision makes no
42  * representations about the suitability of this software for any
43  * purpose.  It is provided "as is" without express or implied warranty.
44  *
45  * OPENVISION DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
46  * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
47  * EVENT SHALL OPENVISION BE LIABLE FOR ANY SPECIAL, INDIRECT OR
48  * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
49  * USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
50  * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
51  * PERFORMANCE OF THIS SOFTWARE.
52  */
53
54 /*
55  * Message protection services: checksum helpers.
56  */
57
58 #include "gssapiP_eap.h"
59
60 static int
61 gssEapChecksum(krb5_context context,
62                krb5_cksumtype type,
63                size_t rrc,
64 #ifdef HAVE_HEIMDAL_VERSION
65                krb5_crypto crypto,
66 #else
67                krb5_keyblock *crypto,
68 #endif
69                krb5_keyusage sign_usage,
70                gss_iov_buffer_desc *iov,
71                int iov_count,
72                int verify,
73                int *valid)
74 {
75     krb5_error_code code;
76     gss_iov_buffer_desc *header;
77     gss_iov_buffer_desc *trailer;
78     krb5_crypto_iov *kiov;
79     size_t kiov_count;
80     int i = 0, j;
81     size_t k5_checksumlen;
82 #ifdef HAVE_HEIMDAL_VERSION
83     krb5_cksumtype cksumtype;
84 #endif
85
86     if (verify)
87         *valid = FALSE;
88
89     code = krbCryptoLength(context, crypto, KRB5_CRYPTO_TYPE_CHECKSUM, &k5_checksumlen);
90     if (code != 0)
91         return code;
92
93     header = gssEapLocateIov(iov, iov_count, GSS_IOV_BUFFER_TYPE_HEADER);
94     assert(header != NULL);
95
96     trailer = gssEapLocateIov(iov, iov_count, GSS_IOV_BUFFER_TYPE_TRAILER);
97     assert(rrc != 0 || trailer != NULL);
98
99     if (trailer == NULL) {
100         if (rrc != k5_checksumlen)
101             return KRB5_BAD_MSIZE;
102         if (header->buffer.length != 16 + k5_checksumlen)
103             return KRB5_BAD_MSIZE;
104     } else if (trailer->buffer.length != k5_checksumlen)
105         return KRB5_BAD_MSIZE;
106
107     kiov_count = 2 + iov_count;
108     kiov = (krb5_crypto_iov *)GSSEAP_MALLOC(kiov_count * sizeof(krb5_crypto_iov));
109     if (kiov == NULL)
110         return ENOMEM;
111
112     /* Checksum over ( Data | Header ) */
113
114     /* Data */
115     for (j = 0; j < iov_count; j++) {
116         kiov[i].flags = gssEapMapCryptoFlag(iov[j].type);
117         kiov[i].data.length = iov[j].buffer.length;
118         kiov[i].data.data = (char *)iov[j].buffer.value;
119         i++;
120     }
121
122     /* Header */
123     kiov[i].flags = KRB5_CRYPTO_TYPE_SIGN_ONLY;
124     kiov[i].data.length = 16;
125     kiov[i].data.data = (char *)header->buffer.value;
126     i++;
127
128     /* Checksum */
129     kiov[i].flags = KRB5_CRYPTO_TYPE_CHECKSUM;
130     if (trailer == NULL) {
131         kiov[i].data.length = header->buffer.length - 16;
132         kiov[i].data.data = (char *)header->buffer.value + 16;
133     } else {
134         kiov[i].data.length = trailer->buffer.length;
135         kiov[i].data.data = (char *)trailer->buffer.value;
136     }
137     i++;
138
139 #ifdef HAVE_HEIMDAL_VERSION
140     if (verify) {
141         code = krb5_verify_checksum_iov(context, crypto, sign_usage,
142                                         kiov, kiov_count, &cksumtype);
143         *valid = (code == 0);
144     } else {
145         code = krb5_create_checksum_iov(context, crypto, sign_usage,
146                                         kiov, kiov_count, &cksumtype);
147     }
148 #else
149     if (verify) {
150         krb5_boolean kvalid = FALSE;
151
152         code = krb5_c_verify_checksum_iov(context, type, crypto,
153                                           sign_usage, kiov, kiov_count, &kvalid);
154
155         *valid = kvalid;
156     } else {
157         code = krb5_c_make_checksum_iov(context, type, crypto,
158                                         sign_usage, kiov, kiov_count);
159     }
160 #endif /* HAVE_HEIMDAL_VERSION */
161
162     GSSEAP_FREE(kiov);
163
164     return code;
165 }
166
167 int
168 gssEapSign(krb5_context context,
169            krb5_cksumtype type,
170            size_t rrc,
171 #ifdef HAVE_HEIMDAL_VERSION
172            krb5_crypto crypto,
173 #else
174            krb5_keyblock *crypto,
175 #endif
176            krb5_keyusage sign_usage,
177            gss_iov_buffer_desc *iov,
178            int iov_count)
179 {
180     return gssEapChecksum(context, type, rrc, crypto,
181                           sign_usage, iov, iov_count, 0, NULL);
182 }
183
184 int
185 gssEapVerify(krb5_context context,
186              krb5_cksumtype type,
187              size_t rrc,
188 #ifdef HAVE_HEIMDAL_VERSION
189              krb5_crypto crypto,
190 #else
191              krb5_keyblock *crypto,
192 #endif
193              krb5_keyusage sign_usage,
194              gss_iov_buffer_desc *iov,
195              int iov_count,
196              int *valid)
197 {
198     return gssEapChecksum(context, type, rrc, crypto,
199                           sign_usage, iov, iov_count, 1, valid);
200 }
201
202 #if 0
203 OM_uint32
204 gssEapEncodeGssChannelBindings(OM_uint32 *minor,
205                                gss_channel_bindings_t chanBindings,
206                                gss_buffer_t encodedBindings)
207 {
208     OM_uint32 major, tmpMinor;
209     size_t length;
210     unsigned char *p;
211
212     if (chanBindings != GSS_C_NO_CHANNEL_BINDINGS) {
213         length = 24;
214         length += chanBindings->initiator_address.length;
215         length += chanBindings->acceptor_address.length;
216         length += chanBindings->application_data.length;
217
218         encodedBindings->value = GSSEAP_MALLOC(length);
219         if (encodedBindings->value == NULL) {
220             *minor = ENOMEM;
221             return GSS_S_FAILURE;
222         }
223
224         encodedBindings->length = length;
225         p = (unsigned char *)encodedBindings->value;
226
227         store_uint32_be(chanBindings->initiator_addrtype, p);
228         store_buffer(&chanBindings->initiator_address, p + 4, 0);
229         p += 4 + chanBindings->initiator_address.length;
230
231         store_uint32_be(chanBindings->acceptor_addrtype, p);
232         store_buffer(&chanBindings->acceptor_address, p + 4, 0);
233         p += 4 + chanBindings->acceptor_address.length;
234
235         store_buffer(&chanBindings->application_data, p, 1);
236         p += chanBindings->application_data.length;
237     } else {
238         encodedBindings->length = 0;
239         encodedBindings->value = NULL;
240     }
241
242     *minor = 0;
243     return GSS_S_COMPLETE;
244 }
245 #endif