1/* 2 * Copyright (c) 1997 Kungliga Tekniska Högskolan 3 * (Royal Institute of Technology, Stockholm, Sweden). 4 * All rights reserved. 5 * 6 * Redistribution and use in source and binary forms, with or without 7 * modification, are permitted provided that the following conditions 8 * are met: 9 * 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 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. 16 * 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. 20 * 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 31 * SUCH DAMAGE. 32 */ 33 34#include "krb5_locl.h" 35#ifdef HAVE_EXECINFO_H 36#include <execinfo.h> 37#endif 38 39KRB5_LIB_FUNCTION krb5_error_code KRB5_LIB_CALL 40_krb5_s4u2self_to_checksumdata(krb5_context context, 41 const PA_S4U2Self *self, 42 krb5_data *data) 43{ 44 krb5_error_code ret; 45 krb5_ssize_t ssize; 46 krb5_storage *sp; 47 size_t size; 48 size_t i; 49 50 sp = krb5_storage_emem(); 51 if (sp == NULL) { 52 krb5_clear_error_message(context); 53 return ENOMEM; 54 } 55 krb5_storage_set_flags(sp, KRB5_STORAGE_BYTEORDER_LE); 56 ret = krb5_store_int32(sp, self->name.name_type); 57 if (ret) 58 goto out; 59 for (i = 0; i < self->name.name_string.len; i++) { 60 size = strlen(self->name.name_string.val[i]); 61 ssize = krb5_storage_write(sp, self->name.name_string.val[i], size); 62 if (ssize != (krb5_ssize_t)size) { 63 ret = ENOMEM; 64 goto out; 65 } 66 } 67 size = strlen(self->realm); 68 ssize = krb5_storage_write(sp, self->realm, size); 69 if (ssize != (krb5_ssize_t)size) { 70 ret = ENOMEM; 71 goto out; 72 } 73 size = strlen(self->auth); 74 ssize = krb5_storage_write(sp, self->auth, size); 75 if (ssize != (krb5_ssize_t)size) { 76 ret = ENOMEM; 77 goto out; 78 } 79 80 ret = krb5_storage_to_data(sp, data); 81 krb5_storage_free(sp); 82 return ret; 83 84out: 85 krb5_clear_error_message(context); 86 return ret; 87} 88 89krb5_error_code 90krb5_enomem(krb5_context context) 91{ 92 krb5_set_error_message(context, ENOMEM, N_("malloc: out of memory", "")); 93 return ENOMEM; 94} 95 96void 97_krb5_debug_backtrace(krb5_context context) 98{ 99#if defined(HAVE_BACKTRACE) && !defined(HEIMDAL_SMALLER) 100 void *stack[128]; 101 char **strs = NULL; 102 int i, frames = backtrace(stack, sizeof(stack) / sizeof(stack[0])); 103 if (frames > 0) 104 strs = backtrace_symbols(stack, frames); 105 if (strs) { 106 for (i = 0; i < frames; i++) 107 _krb5_debugx(context, 10, "frame %d: %s", i, strs[i]); 108 free(strs); 109 } 110#endif 111} 112 113krb5_error_code 114_krb5_einval(krb5_context context, const char *func, unsigned long argn) 115{ 116#ifndef HEIMDAL_SMALLER 117 krb5_set_error_message(context, EINVAL, 118 N_("programmer error: invalid argument to %s argument %lu", 119 "function:line"), 120 func, argn); 121 if (_krb5_have_debug(context, 10)) { 122 _krb5_debugx(context, 10, "invalid argument to function %s argument %lu", 123 func, argn); 124 _krb5_debug_backtrace(context); 125 } 126#endif 127 return EINVAL; 128} 129 130static const char hexchar[16] = "0123456789ABCDEF"; 131 132char * KRB5_LIB_FUNCTION 133krb5_uuid_to_string(krb5_uuid uuid) 134{ 135 char *string, *p; 136 size_t n; 137 138 string = malloc((sizeof(krb5_uuid) * 2) + 5); 139 if (string == NULL) 140 return NULL; 141 142 for (n = 0, p = string; n < sizeof(krb5_uuid); n++) { 143 if (n == 4 || n == 6 || n == 8 || n == 10) 144 *p++ = '-'; 145 *p++ = hexchar[uuid[n] >> 4]; 146 *p++ = hexchar[uuid[n] & 0xf]; 147 } 148 *p = '\0'; 149 return string; 150} 151 152static int 153pos(char c) 154{ 155 const char *p; 156 c = toupper((unsigned char)c); 157 for (p = hexchar; *p; p++) 158 if (*p == c) 159 return (int)(p - hexchar); 160 return -1; 161} 162 163krb5_error_code KRB5_LIB_FUNCTION 164krb5_string_to_uuid(const char *str, krb5_uuid uuid) 165{ 166 size_t n; 167 168 if (strlen(str) != 36) 169 return EINVAL; 170 171 for (n = 0; n < sizeof(krb5_uuid); n++) { 172 if (n == 4 || n == 6 || n == 8 || n == 10) { 173 if (*str++ != '-') 174 return EINVAL; 175 } 176 uuid[n] = pos(str[0]) << 4 | pos(str[1]); 177 str += 2; 178 } 179 return 0; 180} 181