1 #pragma ident "%Z%%M% %I% %E% SMI" 2 /* 3 * Copyright (C) 1998 by the FundsXpress, INC. 4 * 5 * All rights reserved. 6 * 7 * Export of this software from the United States of America may require 8 * a specific license from the United States Government. It is the 9 * responsibility of any person or organization contemplating export to 10 * obtain such a license before exporting. 11 * 12 * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and 13 * distribute this software and its documentation for any purpose and 14 * without fee is hereby granted, provided that the above copyright 15 * notice appear in all copies and that both that copyright notice and 16 * this permission notice appear in supporting documentation, and that 17 * the name of FundsXpress. not be used in advertising or publicity pertaining 18 * to distribution of the software without specific, written prior 19 * permission. FundsXpress makes no representations about the suitability of 20 * this software for any purpose. It is provided "as is" without express 21 * or implied warranty. 22 * 23 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR 24 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED 25 * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. 26 */ 27 28 #include <k5-int.h> 29 #include <cksumtypes.h> 30 31 /*ARGSUSED*/ 32 KRB5_DLLIMP krb5_error_code KRB5_CALLCONV 33 krb5_c_checksum_length(context, cksumtype, length) 34 krb5_context context; 35 krb5_cksumtype cksumtype; 36 size_t *length; 37 { 38 int i; 39 40 for (i=0; i<krb5_cksumtypes_length; i++) { 41 if (krb5_cksumtypes_list[i].ctype == cksumtype) 42 break; 43 } 44 45 if (i == krb5_cksumtypes_length) 46 return(KRB5_BAD_ENCTYPE); 47 48 if (krb5_cksumtypes_list[i].keyhash) 49 (*(krb5_cksumtypes_list[i].keyhash->hash_size))(length); 50 else if (krb5_cksumtypes_list[i].trunc_size) 51 *length = krb5_cksumtypes_list[i].trunc_size; 52 else 53 (*(krb5_cksumtypes_list[i].hash->hash_size))(length); 54 55 return(0); 56 } 57 58