2 * Copyright (c) 1999 - 2003 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. Neither the name of the Institute nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 #include "gsskrb5_locl.h"
37 _gsskrb5_export_sec_context (
38 OM_uint32
* minor_status
,
39 gss_ctx_id_t
* context_handle
,
40 gss_buffer_t interprocess_token
44 const gsskrb5_ctx ctx
= (const gsskrb5_ctx
) *context_handle
;
47 OM_uint32 ret
= GSS_S_COMPLETE
;
49 gss_buffer_desc buffer
;
54 GSSAPI_KRB5_INIT (&context
);
56 HEIMDAL_MUTEX_lock(&ctx
->ctx_id_mutex
);
58 if (!(ctx
->flags
& GSS_C_TRANS_FLAG
)) {
59 HEIMDAL_MUTEX_unlock(&ctx
->ctx_id_mutex
);
61 return GSS_S_UNAVAILABLE
;
64 sp
= krb5_storage_emem ();
66 HEIMDAL_MUTEX_unlock(&ctx
->ctx_id_mutex
);
67 *minor_status
= ENOMEM
;
70 ac
= ctx
->auth_context
;
72 /* flagging included fields */
75 if (ac
->local_address
)
76 flags
|= SC_LOCAL_ADDRESS
;
77 if (ac
->remote_address
)
78 flags
|= SC_REMOTE_ADDRESS
;
82 flags
|= SC_LOCAL_SUBKEY
;
83 if (ac
->remote_subkey
)
84 flags
|= SC_REMOTE_SUBKEY
;
86 kret
= krb5_store_int32 (sp
, flags
);
92 /* marshall auth context */
94 kret
= krb5_store_int32 (sp
, ac
->flags
);
99 if (ac
->local_address
) {
100 kret
= krb5_store_address (sp
, *ac
->local_address
);
102 *minor_status
= kret
;
106 if (ac
->remote_address
) {
107 kret
= krb5_store_address (sp
, *ac
->remote_address
);
109 *minor_status
= kret
;
113 kret
= krb5_store_int16 (sp
, ac
->local_port
);
115 *minor_status
= kret
;
118 kret
= krb5_store_int16 (sp
, ac
->remote_port
);
120 *minor_status
= kret
;
124 kret
= krb5_store_keyblock (sp
, *ac
->keyblock
);
126 *minor_status
= kret
;
130 if (ac
->local_subkey
) {
131 kret
= krb5_store_keyblock (sp
, *ac
->local_subkey
);
133 *minor_status
= kret
;
137 if (ac
->remote_subkey
) {
138 kret
= krb5_store_keyblock (sp
, *ac
->remote_subkey
);
140 *minor_status
= kret
;
144 kret
= krb5_store_int32 (sp
, ac
->local_seqnumber
);
146 *minor_status
= kret
;
149 kret
= krb5_store_int32 (sp
, ac
->remote_seqnumber
);
151 *minor_status
= kret
;
155 kret
= krb5_store_int32 (sp
, ac
->keytype
);
157 *minor_status
= kret
;
160 kret
= krb5_store_int32 (sp
, ac
->cksumtype
);
162 *minor_status
= kret
;
168 ret
= _gsskrb5_export_name (minor_status
,
169 (gss_name_t
)ctx
->source
, &buffer
);
172 data
.data
= buffer
.value
;
173 data
.length
= buffer
.length
;
174 kret
= krb5_store_data (sp
, data
);
175 _gsskrb5_release_buffer (&minor
, &buffer
);
177 *minor_status
= kret
;
181 ret
= _gsskrb5_export_name (minor_status
,
182 (gss_name_t
)ctx
->target
, &buffer
);
185 data
.data
= buffer
.value
;
186 data
.length
= buffer
.length
;
190 kret
= krb5_store_data (sp
, data
);
191 _gsskrb5_release_buffer (&minor
, &buffer
);
193 *minor_status
= kret
;
197 kret
= krb5_store_int32 (sp
, ctx
->flags
);
199 *minor_status
= kret
;
202 kret
= krb5_store_int32 (sp
, ctx
->more_flags
);
204 *minor_status
= kret
;
207 kret
= krb5_store_int32 (sp
, ctx
->lifetime
);
209 *minor_status
= kret
;
212 kret
= _gssapi_msg_order_export(sp
, ctx
->order
);
214 *minor_status
= kret
;
218 kret
= krb5_storage_to_data (sp
, &data
);
219 krb5_storage_free (sp
);
221 HEIMDAL_MUTEX_unlock(&ctx
->ctx_id_mutex
);
222 *minor_status
= kret
;
223 return GSS_S_FAILURE
;
225 interprocess_token
->length
= data
.length
;
226 interprocess_token
->value
= data
.data
;
227 HEIMDAL_MUTEX_unlock(&ctx
->ctx_id_mutex
);
228 ret
= _gsskrb5_delete_sec_context (minor_status
, context_handle
,
230 if (ret
!= GSS_S_COMPLETE
)
231 _gsskrb5_release_buffer (NULL
, interprocess_token
);
235 HEIMDAL_MUTEX_unlock(&ctx
->ctx_id_mutex
);
236 krb5_storage_free (sp
);