2 * Copyright (c) 1997 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * 3. All advertising materials mentioning features or use of this software
18 * must display the following acknowledgement:
19 * This product includes software developed by Kungliga Tekniska
20 * Högskolan and its contributors.
22 * 4. Neither the name of the Institute nor the names of its contributors
23 * may be used to endorse or promote products derived from this software
24 * without specific prior written permission.
26 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
27 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
29 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
30 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
31 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
32 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
33 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
34 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
35 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
39 #include "gssapi_locl.h"
44 (OM_uint32
* minor_status
,
45 const gss_ctx_id_t context_handle
,
47 const gss_buffer_t message_buffer
,
48 gss_buffer_t message_token
54 des_key_schedule schedule
;
58 size_t len
, total_len
;
60 gssapi_krb5_encap_length (22, &len
, &total_len
);
62 message_token
->length
= total_len
;
63 message_token
->value
= malloc (total_len
);
64 if (message_token
->value
== NULL
)
67 p
= gssapi_krb5_make_header(message_token
->value
,
71 memcpy (p
, "\x00\x00", 2);
73 memcpy (p
, "\xff\xff\xff\xff", 4);
82 md5_update (&md5
, p
- 24, 8);
83 md5_update (&md5
, message_buffer
->value
,
84 message_buffer
->length
);
85 md5_finito (&md5
, hash
);
87 memset (&zero
, 0, sizeof(zero
));
89 memcpy (&key
, context_handle
->auth_context
->key
.keyvalue
.data
,
92 memcpy (&key
, context_handle
->auth_context
->local_subkey
->keyvalue
.data
,
94 des_set_key (&key
, schedule
);
95 des_cbc_cksum ((des_cblock
*)hash
,
96 (des_cblock
*)hash
, sizeof(hash
), schedule
, &zero
);
97 memcpy (p
- 8, hash
, 8);
100 krb5_auth_getlocalseqnumber (gssapi_krb5_context
,
101 context_handle
->auth_context
,
105 p
[0] = (seq_number
>> 0) & 0xFF;
106 p
[1] = (seq_number
>> 8) & 0xFF;
107 p
[2] = (seq_number
>> 16) & 0xFF;
108 p
[3] = (seq_number
>> 24) & 0xFF;
110 (context_handle
->more_flags
& LOCAL
) ? 0 : 0xFF,
113 des_set_key (&key
, schedule
);
114 des_cbc_encrypt ((des_cblock
*)p
, (des_cblock
*)p
, 8,
115 schedule
, (des_cblock
*)(p
+ 8), DES_ENCRYPT
);
117 krb5_auth_setlocalseqnumber (gssapi_krb5_context
,
118 context_handle
->auth_context
,
121 memset (key
, 0, sizeof(key
));
122 memset (schedule
, 0, sizeof(schedule
));
124 return GSS_S_COMPLETE
;