keys.c revision 72445
172445Sassar/* 272445Sassar * Copyright (c) 1997 - 2000 Kungliga Tekniska H�gskolan 372445Sassar * (Royal Institute of Technology, Stockholm, Sweden). 472445Sassar * All rights reserved. 572445Sassar * 672445Sassar * Redistribution and use in source and binary forms, with or without 772445Sassar * modification, are permitted provided that the following conditions 872445Sassar * are met: 972445Sassar * 1072445Sassar * 1. Redistributions of source code must retain the above copyright 1172445Sassar * notice, this list of conditions and the following disclaimer. 1272445Sassar * 1372445Sassar * 2. Redistributions in binary form must reproduce the above copyright 1472445Sassar * notice, this list of conditions and the following disclaimer in the 1572445Sassar * documentation and/or other materials provided with the distribution. 1672445Sassar * 1772445Sassar * 3. Neither the name of the Institute nor the names of its contributors 1872445Sassar * may be used to endorse or promote products derived from this software 1972445Sassar * without specific prior written permission. 2072445Sassar * 2172445Sassar * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND 2272445Sassar * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 2372445Sassar * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 2472445Sassar * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE 2572445Sassar * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 2672445Sassar * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 2772445Sassar * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 2872445Sassar * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 2972445Sassar * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 3072445Sassar * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 3172445Sassar * SUCH DAMAGE. 3272445Sassar */ 3372445Sassar 3472445Sassar#include "kadm5_locl.h" 3572445Sassar 3672445SassarRCSID("$Id: keys.c,v 1.1 2000/07/22 05:53:02 assar Exp $"); 3772445Sassar 3872445Sassar/* 3972445Sassar * free all the memory used by (len, keys) 4072445Sassar */ 4172445Sassar 4272445Sassarvoid 4372445Sassar_kadm5_free_keys (kadm5_server_context *context, 4472445Sassar int len, Key *keys) 4572445Sassar{ 4672445Sassar int i; 4772445Sassar 4872445Sassar for (i = 0; i < len; ++i) { 4972445Sassar free (keys[i].mkvno); 5072445Sassar keys[i].mkvno = NULL; 5172445Sassar if (keys[i].salt != NULL) { 5272445Sassar free_Salt(keys[i].salt); 5372445Sassar free(keys[i].salt); 5472445Sassar keys[i].salt = NULL; 5572445Sassar } 5672445Sassar krb5_free_keyblock_contents(context->context, &keys[i].key); 5772445Sassar } 5872445Sassar free (keys); 5972445Sassar} 6072445Sassar 6172445Sassar/* 6272445Sassar * null-ify `len', `keys' 6372445Sassar */ 6472445Sassar 6572445Sassarvoid 6672445Sassar_kadm5_init_keys (Key *keys, int len) 6772445Sassar{ 6872445Sassar int i; 6972445Sassar 7072445Sassar for (i = 0; i < len; ++i) { 7172445Sassar keys[i].mkvno = NULL; 7272445Sassar keys[i].salt = NULL; 7372445Sassar keys[i].key.keyvalue.length = 0; 7472445Sassar keys[i].key.keyvalue.data = NULL; 7572445Sassar } 7672445Sassar} 7772445Sassar 7872445Sassar/* 7972445Sassar * return 0 iff `keys1, len1' and `keys2, len2' are identical 8072445Sassar */ 8172445Sassar 8272445Sassarint 8372445Sassar_kadm5_cmp_keys(Key *keys1, int len1, Key *keys2, int len2) 8472445Sassar{ 8572445Sassar int i; 8672445Sassar 8772445Sassar if (len1 != len2) 8872445Sassar return 1; 8972445Sassar 9072445Sassar for (i = 0; i < len1; ++i) { 9172445Sassar if ((keys1[i].salt != NULL && keys2[i].salt == NULL) 9272445Sassar || (keys1[i].salt == NULL && keys2[i].salt != NULL)) 9372445Sassar return 1; 9472445Sassar if (keys1[i].salt != NULL) { 9572445Sassar if (keys1[i].salt->type != keys2[i].salt->type) 9672445Sassar return 1; 9772445Sassar if (keys1[i].salt->salt.length != keys2[i].salt->salt.length) 9872445Sassar return 1; 9972445Sassar if (memcmp (keys1[i].salt->salt.data, keys2[i].salt->salt.data, 10072445Sassar keys1[i].salt->salt.length) != 0) 10172445Sassar return 1; 10272445Sassar } 10372445Sassar if (keys1[i].key.keytype != keys2[i].key.keytype) 10472445Sassar return 1; 10572445Sassar if (keys1[i].key.keyvalue.length != keys2[i].key.keyvalue.length) 10672445Sassar return 1; 10772445Sassar if (memcmp (keys1[i].key.keyvalue.data, keys2[i].key.keyvalue.data, 10872445Sassar keys1[i].key.keyvalue.length) != 0) 10972445Sassar return 1; 11072445Sassar } 11172445Sassar return 0; 11272445Sassar} 113