xref: /freebsd/crypto/heimdal/lib/gssapi/krb5/delete_sec_context.c (revision 6a068746777241722b2b32c5d0bc443a2a64d80b)
1c19800e8SDoug Rabson /*
2*ae771770SStanislav Sedov  * Copyright (c) 1997 - 2003 Kungliga Tekniska Högskolan
3c19800e8SDoug Rabson  * (Royal Institute of Technology, Stockholm, Sweden).
4c19800e8SDoug Rabson  * All rights reserved.
5c19800e8SDoug Rabson  *
6c19800e8SDoug Rabson  * Redistribution and use in source and binary forms, with or without
7c19800e8SDoug Rabson  * modification, are permitted provided that the following conditions
8c19800e8SDoug Rabson  * are met:
9c19800e8SDoug Rabson  *
10c19800e8SDoug Rabson  * 1. Redistributions of source code must retain the above copyright
11c19800e8SDoug Rabson  *    notice, this list of conditions and the following disclaimer.
12c19800e8SDoug Rabson  *
13c19800e8SDoug Rabson  * 2. Redistributions in binary form must reproduce the above copyright
14c19800e8SDoug Rabson  *    notice, this list of conditions and the following disclaimer in the
15c19800e8SDoug Rabson  *    documentation and/or other materials provided with the distribution.
16c19800e8SDoug Rabson  *
17c19800e8SDoug Rabson  * 3. Neither the name of the Institute nor the names of its contributors
18c19800e8SDoug Rabson  *    may be used to endorse or promote products derived from this software
19c19800e8SDoug Rabson  *    without specific prior written permission.
20c19800e8SDoug Rabson  *
21c19800e8SDoug Rabson  * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22c19800e8SDoug Rabson  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23c19800e8SDoug Rabson  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24c19800e8SDoug Rabson  * ARE DISCLAIMED.  IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25c19800e8SDoug Rabson  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26c19800e8SDoug Rabson  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27c19800e8SDoug Rabson  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28c19800e8SDoug Rabson  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29c19800e8SDoug Rabson  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30c19800e8SDoug Rabson  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31c19800e8SDoug Rabson  * SUCH DAMAGE.
32c19800e8SDoug Rabson  */
33c19800e8SDoug Rabson 
34*ae771770SStanislav Sedov #include "gsskrb5_locl.h"
35c19800e8SDoug Rabson 
36*ae771770SStanislav Sedov OM_uint32 GSSAPI_CALLCONV
_gsskrb5_delete_sec_context(OM_uint32 * minor_status,gss_ctx_id_t * context_handle,gss_buffer_t output_token)37c19800e8SDoug Rabson _gsskrb5_delete_sec_context(OM_uint32 * minor_status,
38c19800e8SDoug Rabson 			    gss_ctx_id_t * context_handle,
39c19800e8SDoug Rabson 			    gss_buffer_t output_token)
40c19800e8SDoug Rabson {
41c19800e8SDoug Rabson     krb5_context context;
42c19800e8SDoug Rabson     gsskrb5_ctx ctx;
43c19800e8SDoug Rabson 
44c19800e8SDoug Rabson     GSSAPI_KRB5_INIT (&context);
45c19800e8SDoug Rabson 
46c19800e8SDoug Rabson     *minor_status = 0;
47c19800e8SDoug Rabson 
48c19800e8SDoug Rabson     if (output_token) {
49c19800e8SDoug Rabson 	output_token->length = 0;
50c19800e8SDoug Rabson 	output_token->value  = NULL;
51c19800e8SDoug Rabson     }
52c19800e8SDoug Rabson 
53c19800e8SDoug Rabson     if (*context_handle == GSS_C_NO_CONTEXT)
54c19800e8SDoug Rabson 	return GSS_S_COMPLETE;
55c19800e8SDoug Rabson 
56c19800e8SDoug Rabson     ctx = (gsskrb5_ctx) *context_handle;
57c19800e8SDoug Rabson     *context_handle = GSS_C_NO_CONTEXT;
58c19800e8SDoug Rabson 
59c19800e8SDoug Rabson     HEIMDAL_MUTEX_lock(&ctx->ctx_id_mutex);
60c19800e8SDoug Rabson 
61c19800e8SDoug Rabson     krb5_auth_con_free (context, ctx->auth_context);
62*ae771770SStanislav Sedov     krb5_auth_con_free (context, ctx->deleg_auth_context);
63*ae771770SStanislav Sedov     if (ctx->kcred)
64*ae771770SStanislav Sedov 	krb5_free_creds(context, ctx->kcred);
65c19800e8SDoug Rabson     if(ctx->source)
66c19800e8SDoug Rabson 	krb5_free_principal (context, ctx->source);
67c19800e8SDoug Rabson     if(ctx->target)
68c19800e8SDoug Rabson 	krb5_free_principal (context, ctx->target);
69c19800e8SDoug Rabson     if (ctx->ticket)
70c19800e8SDoug Rabson 	krb5_free_ticket (context, ctx->ticket);
71c19800e8SDoug Rabson     if(ctx->order)
72c19800e8SDoug Rabson 	_gssapi_msg_order_destroy(&ctx->order);
73c19800e8SDoug Rabson     if (ctx->service_keyblock)
74c19800e8SDoug Rabson 	krb5_free_keyblock (context, ctx->service_keyblock);
75c19800e8SDoug Rabson     krb5_data_free(&ctx->fwd_data);
76*ae771770SStanislav Sedov     if (ctx->crypto)
77*ae771770SStanislav Sedov     	krb5_crypto_destroy(context, ctx->crypto);
78c19800e8SDoug Rabson 
79c19800e8SDoug Rabson     HEIMDAL_MUTEX_unlock(&ctx->ctx_id_mutex);
80c19800e8SDoug Rabson     HEIMDAL_MUTEX_destroy(&ctx->ctx_id_mutex);
81c19800e8SDoug Rabson     memset(ctx, 0, sizeof(*ctx));
82c19800e8SDoug Rabson     free (ctx);
83c19800e8SDoug Rabson     return GSS_S_COMPLETE;
84c19800e8SDoug Rabson }
85