#include "mglueP.h"
#include <stdio.h>
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#endif
#include <string.h>
#include <errno.h>
static OM_uint32 importExportName(OM_uint32 *, gss_union_name_t);
static OM_uint32
val_imp_name_args(
OM_uint32 *minor_status,
gss_buffer_t input_name_buffer,
gss_OID input_name_type,
gss_name_t *output_name)
{
if (minor_status != NULL)
*minor_status = 0;
if (output_name != NULL)
*output_name = GSS_C_NO_NAME;
if (minor_status == NULL)
return (GSS_S_CALL_INACCESSIBLE_WRITE);
if (output_name == NULL)
return (GSS_S_CALL_INACCESSIBLE_WRITE);
if (input_name_buffer == GSS_C_NO_BUFFER)
return (GSS_S_CALL_INACCESSIBLE_READ | GSS_S_BAD_NAME);
if (input_name_buffer->length == 0)
return GSS_S_BAD_NAME;
if (input_name_buffer->value == NULL)
return (GSS_S_CALL_INACCESSIBLE_READ | GSS_S_BAD_NAME);
return (GSS_S_COMPLETE);
}
OM_uint32 KRB5_CALLCONV
gss_import_name(minor_status,
input_name_buffer,
input_name_type,
output_name)
OM_uint32 * minor_status;
gss_buffer_t input_name_buffer;
gss_OID input_name_type;
gss_name_t * output_name;
{
gss_union_name_t union_name;
OM_uint32 tmp, major_status = GSS_S_FAILURE;
major_status = val_imp_name_args(minor_status,
input_name_buffer, input_name_type,
output_name);
if (major_status != GSS_S_COMPLETE)
return (major_status);
union_name = (gss_union_name_t) malloc (sizeof(gss_union_name_desc));
if (!union_name)
return (GSS_S_FAILURE);
union_name->loopback = 0;
union_name->mech_type = 0;
union_name->mech_name = 0;
union_name->name_type = 0;
union_name->external_name = 0;
major_status = gssint_create_copy_buffer(input_name_buffer,
&union_name->external_name, 0);
if (major_status != GSS_S_COMPLETE) {
free(union_name);
return (major_status);
}
if (input_name_type != GSS_C_NULL_OID) {
major_status = generic_gss_copy_oid(minor_status,
input_name_type,
&union_name->name_type);
if (major_status != GSS_S_COMPLETE)
goto allocation_failure;
}
if (input_name_type != GSS_C_NULL_OID &&
g_OID_equal(input_name_type, GSS_C_NT_EXPORT_NAME)) {
major_status = importExportName(minor_status, union_name);
if (major_status != GSS_S_COMPLETE)
goto allocation_failure;
}
union_name->loopback = union_name;
*output_name = (gss_name_t)union_name;
return (GSS_S_COMPLETE);
allocation_failure:
if (union_name) {
if (union_name->external_name) {
if (union_name->external_name->value)
free(union_name->external_name->value);
free(union_name->external_name);
}
if (union_name->name_type)
generic_gss_release_oid(&tmp, &union_name->name_type);
if (union_name->mech_name)
gssint_release_internal_name(minor_status, union_name->mech_type,
&union_name->mech_name);
if (union_name->mech_type)
generic_gss_release_oid(&tmp, &union_name->mech_type);
free(union_name);
}
return (major_status);
}
static const char *expNameTokId = "\x04\x01";
static const unsigned int expNameTokIdLen = 2;
static const unsigned int mechOidLenLen = 2;
static const unsigned int nameTypeLenLen = 2;
static OM_uint32
importExportName(minor, unionName)
OM_uint32 *minor;
gss_union_name_t unionName;
{
gss_OID_desc mechOid;
gss_buffer_desc expName;
unsigned char *buf;
gss_mechanism mech;
OM_uint32 major, mechOidLen, nameLen, curLength;
unsigned int bytes;
expName.value = unionName->external_name->value;
expName.length = unionName->external_name->length;
curLength = expNameTokIdLen + mechOidLenLen;
if (expName.length < curLength)
return (GSS_S_DEFECTIVE_TOKEN);
buf = (unsigned char *)expName.value;
if (memcmp(expNameTokId, buf, expNameTokIdLen) != 0)
return (GSS_S_DEFECTIVE_TOKEN);
buf += expNameTokIdLen;
mechOidLen = (*buf++ << 8);
mechOidLen |= (*buf++);
curLength += mechOidLen;
if (expName.length < curLength)
return (GSS_S_DEFECTIVE_TOKEN);
if (*buf++ != 0x06)
return (GSS_S_DEFECTIVE_TOKEN);
mechOid.length = gssint_get_der_length(&buf,
(expName.length - curLength), &bytes);
mechOid.elements = (void *)buf;
if ((bytes + mechOid.length + 1) != mechOidLen)
return (GSS_S_DEFECTIVE_TOKEN);
buf += mechOid.length;
if ((mech = gssint_get_mechanism(&mechOid)) == NULL)
return (GSS_S_BAD_MECH);
if (mech->gss_import_name == NULL)
return (GSS_S_UNAVAILABLE);
if (mech->gss_export_name) {
if ((major = mech->gss_import_name(mech->context, minor,
&expName, (gss_OID)GSS_C_NT_EXPORT_NAME,
&unionName->mech_name)) != GSS_S_COMPLETE ||
(major = generic_gss_copy_oid(minor, &mechOid,
&unionName->mech_type)) !=
GSS_S_COMPLETE) {
return (major);
}
return (major);
}
curLength += 4;
if (expName.length < curLength)
return (GSS_S_DEFECTIVE_TOKEN);
nameLen = (*buf++) << 24;
nameLen |= (*buf++ << 16);
nameLen |= (*buf++ << 8);
nameLen |= (*buf++);
curLength += nameLen;
if (expName.length < curLength)
return (GSS_S_DEFECTIVE_TOKEN);
if (nameLen > 0 && *buf == '\0') {
OM_uint32 nameTypeLen;
if (nameLen < nameTypeLenLen)
return (GSS_S_DEFECTIVE_TOKEN);
nameLen -= nameTypeLenLen;
nameTypeLen = (*buf++) << 8;
nameTypeLen |= (*buf++);
if (nameLen < nameTypeLen)
return (GSS_S_DEFECTIVE_TOKEN);
buf += nameTypeLen;
nameLen -= nameTypeLen;
if (nameLen > 0 && *(buf + nameLen - 1) == '\0')
nameLen--;
}
expName.length = nameLen;
expName.value = nameLen ? (void *)buf : NULL;
major = mech->gss_import_name(mech->context, minor, &expName,
GSS_C_NULL_OID, &unionName->mech_name);
if (major != GSS_S_COMPLETE)
return (major);
return (generic_gss_copy_oid(minor, &mechOid, &unionName->mech_type));
}