support for lucid export
[mech_eap.git] / 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 #include "gssapiP_eap.h"
55
56 static int
57 gssEapChecksum(krb5_context context,
58                krb5_cksumtype type,
59                size_t rrc,
60                krb5_keyblock *key,
61                krb5_keyusage sign_usage,
62                gss_iov_buffer_desc *iov,
63                int iov_count,
64                int verify,
65                int *valid)
66 {
67     krb5_error_code code;
68     gss_iov_buffer_desc *header;
69     gss_iov_buffer_desc *trailer;
70     krb5_crypto_iov *kiov;
71     size_t kiov_count;
72     int i = 0, j;
73     unsigned int k5_checksumlen;
74
75     if (verify)
76         *valid = FALSE;
77
78     code = krb5_c_crypto_length(context, KRB_KEY_TYPE(key),
79                                 KRB5_CRYPTO_TYPE_CHECKSUM, &k5_checksumlen);
80     if (code != 0)
81         return code;
82
83     header = gssEapLocateIov(iov, iov_count, GSS_IOV_BUFFER_TYPE_HEADER);
84     assert(header != NULL);
85
86     trailer = gssEapLocateIov(iov, iov_count, GSS_IOV_BUFFER_TYPE_TRAILER);
87     assert(rrc != 0 || trailer != NULL);
88
89     if (trailer == NULL) {
90         if (rrc != k5_checksumlen)
91             return KRB5_BAD_MSIZE;
92         if (header->buffer.length != 16 + k5_checksumlen)
93             return KRB5_BAD_MSIZE;
94     } else if (trailer->buffer.length != k5_checksumlen)
95         return KRB5_BAD_MSIZE;
96
97     kiov_count = 2 + iov_count;
98     kiov = (krb5_crypto_iov *)GSSEAP_MALLOC(kiov_count * sizeof(krb5_crypto_iov));
99     if (kiov == NULL)
100         return ENOMEM;
101
102     /* Checksum over ( Data | Header ) */
103
104     /* Data */
105     for (j = 0; j < iov_count; j++) {
106         kiov[i].flags = gssEapMapCryptoFlag(iov[j].type);
107         kiov[i].data.length = iov[j].buffer.length;
108         kiov[i].data.data = (char *)iov[j].buffer.value;
109         i++;
110     }
111
112     /* Header */
113     kiov[i].flags = KRB5_CRYPTO_TYPE_SIGN_ONLY;
114     kiov[i].data.length = 16;
115     kiov[i].data.data = (char *)header->buffer.value;
116     i++;
117
118     /* Checksum */
119     kiov[i].flags = KRB5_CRYPTO_TYPE_CHECKSUM;
120     if (trailer == NULL) {
121         kiov[i].data.length = header->buffer.length - 16;
122         kiov[i].data.data = (char *)header->buffer.value + 16;
123     } else {
124         kiov[i].data.length = trailer->buffer.length;
125         kiov[i].data.data = (char *)trailer->buffer.value;
126     }
127     i++;
128
129     if (verify) {
130         krb5_boolean kvalid = FALSE;
131
132         code = krb5_c_verify_checksum_iov(context, type, key,
133                                           sign_usage, kiov, kiov_count, &kvalid);
134
135         *valid = kvalid;
136     } else {
137         code = krb5_c_make_checksum_iov(context, type, key,
138                                         sign_usage, kiov, kiov_count);
139     }
140
141     GSSEAP_FREE(kiov);
142
143     return code;
144 }
145
146 int
147 gssEapSign(krb5_context context,
148            krb5_cksumtype type,
149            size_t rrc,
150            krb5_keyblock *key,
151            krb5_keyusage sign_usage,
152            gss_iov_buffer_desc *iov,
153            int iov_count)
154 {
155     return gssEapChecksum(context, type, rrc, key,
156                           sign_usage, iov, iov_count, 0, NULL);
157 }
158
159 int
160 gssEapVerify(krb5_context context,
161              krb5_cksumtype type,
162              size_t rrc,
163              krb5_keyblock *key,
164              krb5_keyusage sign_usage,
165              gss_iov_buffer_desc *iov,
166              int iov_count,
167              int *valid)
168 {
169     return gssEapChecksum(context, type, rrc, key,
170                           sign_usage, iov, iov_count, 1, valid);
171 }
172
173 #if 0
174 OM_uint32
175 gssEapEncodeGssChannelBindings(OM_uint32 *minor,
176                                gss_channel_bindings_t chanBindings,
177                                gss_buffer_t encodedBindings)
178 {
179     OM_uint32 major, tmpMinor;
180     size_t length;
181     unsigned char *p;
182
183     if (chanBindings != GSS_C_NO_CHANNEL_BINDINGS) {
184         length = 24;
185         length += chanBindings->initiator_address.length;
186         length += chanBindings->acceptor_address.length;
187         length += chanBindings->application_data.length;
188
189         encodedBindings->value = GSSEAP_MALLOC(length);
190         if (encodedBindings->value == NULL) {
191             *minor = ENOMEM;
192             return GSS_S_FAILURE;
193         }
194
195         encodedBindings->length = length;
196         p = (unsigned char *)encodedBindings->value;
197
198         store_uint32_be(chanBindings->initiator_addrtype, p);
199         store_buffer(&chanBindings->initiator_address, p + 4, 0);
200         p += 4 + chanBindings->initiator_address.length;
201
202         store_uint32_be(chanBindings->acceptor_addrtype, p);
203         store_buffer(&chanBindings->acceptor_address, p + 4, 0);
204         p += 4 + chanBindings->acceptor_address.length;
205
206         store_buffer(&chanBindings->application_data, p, 1);
207         p += chanBindings->application_data.length;
208     } else {
209         encodedBindings->length = 0;
210         encodedBindings->value = NULL;
211     }
212
213     *minor = 0;
214     return GSS_S_COMPLETE;
215 }
216 #endif