2N/A/* -*- mode: c; c-basic-offset: 4; indent-tabs-mode: nil -*- */
2N/A/*
2N/A * lib/krb5/ccache/ser_rc.c
2N/A *
2N/A * Copyright 1995 by the Massachusetts Institute of Technology.
2N/A * All Rights Reserved.
2N/A *
2N/A * Export of this software from the United States of America may
2N/A * require a specific license from the United States Government.
2N/A * It is the responsibility of any person or organization contemplating
2N/A * export to obtain such a license before exporting.
2N/A *
2N/A * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
2N/A * distribute this software and its documentation for any purpose and
2N/A * without fee is hereby granted, provided that the above copyright
2N/A * notice appear in all copies and that both that copyright notice and
2N/A * this permission notice appear in supporting documentation, and that
2N/A * the name of M.I.T. not be used in advertising or publicity pertaining
2N/A * to distribution of the software without specific, written prior
2N/A * permission. Furthermore if you modify this software you must label
2N/A * your software as modified software and not distribute it in such a
2N/A * fashion that it might be confused with the original M.I.T. software.
2N/A * M.I.T. makes no representations about the suitability of
2N/A * this software for any purpose. It is provided "as is" without express
2N/A * or implied warranty.
2N/A *
2N/A */
2N/A
2N/A/*
2N/A * ser_rcdfl.c - Serialize replay cache context.
2N/A */
2N/A#include "k5-int.h"
2N/A
2N/A/*
2N/A * Routines to deal with externalizing krb5_ccache.
2N/A * krb5_ccache_size();
2N/A * krb5_ccache_externalize();
2N/A * krb5_ccache_internalize();
2N/A */
2N/Astatic krb5_error_code krb5_ccache_size
2N/A(krb5_context, krb5_pointer, size_t *);
2N/Astatic krb5_error_code krb5_ccache_externalize
2N/A(krb5_context, krb5_pointer, krb5_octet **, size_t *);
2N/Astatic krb5_error_code krb5_ccache_internalize
2N/A(krb5_context,krb5_pointer *, krb5_octet **, size_t *);
2N/A
2N/A/*
2N/A * Serialization entry for this type.
2N/A */
2N/Astatic const krb5_ser_entry krb5_ccache_ser_entry = {
2N/A KV5M_CCACHE, /* Type */
2N/A krb5_ccache_size, /* Sizer routine */
2N/A krb5_ccache_externalize, /* Externalize routine */
2N/A krb5_ccache_internalize /* Internalize routine */
2N/A};
2N/A
2N/A/*
2N/A * krb5_ccache_size() - Determine the size required to externalize
2N/A * this krb5_ccache variant.
2N/A */
2N/Astatic krb5_error_code
2N/Akrb5_ccache_size(krb5_context kcontext, krb5_pointer arg, size_t *sizep)
2N/A{
2N/A krb5_error_code kret;
2N/A krb5_ccache ccache;
2N/A size_t required;
2N/A
2N/A kret = EINVAL;
2N/A if ((ccache = (krb5_ccache) arg)) {
2N/A /*
2N/A * Saving FILE: variants of krb5_ccache requires at minimum:
2N/A * krb5_int32 for KV5M_CCACHE
2N/A * krb5_int32 for length of ccache name.
2N/A * krb5_int32 for KV5M_CCACHE
2N/A */
2N/A required = sizeof(krb5_int32) * 3;
2N/A if (ccache->ops->prefix)
2N/A required += (strlen(ccache->ops->prefix)+1);
2N/A
2N/A /*
2N/A * The ccache name is formed as follows:
2N/A * <prefix>:<name>
2N/A */
2N/A required += strlen(krb5_cc_get_name(kcontext, ccache));
2N/A
2N/A kret = 0;
2N/A *sizep += required;
2N/A }
2N/A return(kret);
2N/A}
2N/A
2N/A/*
2N/A * krb5_ccache_externalize() - Externalize the krb5_ccache.
2N/A */
2N/Astatic krb5_error_code
2N/Akrb5_ccache_externalize(krb5_context kcontext, krb5_pointer arg, krb5_octet **buffer, size_t *lenremain)
2N/A{
2N/A krb5_error_code kret;
2N/A krb5_ccache ccache;
2N/A size_t required;
2N/A krb5_octet *bp;
2N/A size_t remain;
2N/A char *ccname;
2N/A const char *fnamep;
2N/A
2N/A required = 0;
2N/A bp = *buffer;
2N/A remain = *lenremain;
2N/A kret = EINVAL;
2N/A if ((ccache = (krb5_ccache) arg)) {
2N/A kret = ENOMEM;
2N/A if (!krb5_ccache_size(kcontext, arg, &required) &&
2N/A (required <= remain)) {
2N/A /* Our identifier */
2N/A (void) krb5_ser_pack_int32(KV5M_CCACHE, &bp, &remain);
2N/A
2N/A fnamep = krb5_cc_get_name(kcontext, ccache);
2N/A
2N/A if (ccache->ops->prefix) {
2N/A if (asprintf(&ccname, "%s:%s", ccache->ops->prefix, fnamep) < 0)
2N/A ccname = NULL;
2N/A } else
2N/A ccname = strdup(fnamep);
2N/A
2N/A if (ccname) {
2N/A /* Put the length of the file name */
2N/A (void) krb5_ser_pack_int32((krb5_int32) strlen(ccname),
2N/A &bp, &remain);
2N/A
2N/A /* Put the name */
2N/A (void) krb5_ser_pack_bytes((krb5_octet *) ccname,
2N/A strlen(ccname),
2N/A &bp, &remain);
2N/A
2N/A /* Put the trailer */
2N/A (void) krb5_ser_pack_int32(KV5M_CCACHE, &bp, &remain);
2N/A kret = 0;
2N/A *buffer = bp;
2N/A *lenremain = remain;
2N/A free(ccname);
2N/A }
2N/A }
2N/A }
2N/A return(kret);
2N/A}
2N/A
2N/A/*
2N/A * krb5_ccache_internalize() - Internalize the krb5_ccache.
2N/A */
2N/Astatic krb5_error_code
2N/Akrb5_ccache_internalize(krb5_context kcontext, krb5_pointer *argp, krb5_octet **buffer, size_t *lenremain)
2N/A{
2N/A krb5_error_code kret;
2N/A krb5_ccache ccache;
2N/A krb5_int32 ibuf;
2N/A krb5_octet *bp;
2N/A size_t remain;
2N/A char *ccname = NULL;
2N/A
2N/A *argp = NULL;
2N/A
2N/A bp = *buffer;
2N/A remain = *lenremain;
2N/A
2N/A /* Read our magic number. */
2N/A kret = krb5_ser_unpack_int32(&ibuf, &bp, &remain);
2N/A if (kret)
2N/A return kret;
2N/A if (ibuf != KV5M_CCACHE)
2N/A return EINVAL;
2N/A
2N/A /* Unpack and validate the length of the ccache name. */
2N/A kret = krb5_ser_unpack_int32(&ibuf, &bp, &remain);
2N/A if (kret)
2N/A return kret;
2N/A if (ibuf < 0 || (krb5_ui_4) ibuf > remain)
2N/A return EINVAL;
2N/A
2N/A /* Allocate and unpack the name. */
2N/A ccname = malloc(ibuf + 1);
2N/A if (!ccname)
2N/A return ENOMEM;
2N/A kret = krb5_ser_unpack_bytes((krb5_octet *) ccname, (size_t) ibuf,
2N/A &bp, &remain);
2N/A if (kret)
2N/A goto cleanup;
2N/A ccname[ibuf] = '\0';
2N/A
2N/A /* Read the second magic number. */
2N/A kret = krb5_ser_unpack_int32(&ibuf, &bp, &remain);
2N/A if (kret)
2N/A goto cleanup;
2N/A if (ibuf != KV5M_CCACHE) {
2N/A kret = EINVAL;
2N/A goto cleanup;
2N/A }
2N/A
2N/A /* Resolve the named credential cache. */
2N/A kret = krb5_cc_resolve(kcontext, ccname, &ccache);
2N/A if (kret)
2N/A goto cleanup;
2N/A
2N/A *buffer = bp;
2N/A *lenremain = remain;
2N/A *argp = ccache;
2N/A
2N/Acleanup:
2N/A free(ccname);
2N/A return(kret);
2N/A}
2N/A
2N/A/*
2N/A * Register the ccache serializer.
2N/A */
2N/Akrb5_error_code KRB5_CALLCONV
2N/Akrb5_ser_ccache_init(krb5_context kcontext)
2N/A{
2N/A return(krb5_register_serializer(kcontext, &krb5_ccache_ser_entry));
2N/A}