text: /*
   * Copyright (C) 1998 by the FundsXpress, INC.
   * 
   * All rights reserved.
   * 
   * Export of this software from the United States of America may require
   * a specific license from the United States Government.  It is the
   * responsibility of any person or organization contemplating export to
   * obtain such a license before exporting.
   * 
   * WITHIN THAT CONSTRAINT, permission to use, copy, modify, and
   * distribute this software and its documentation for any purpose and
   * without fee is hereby granted, provided that the above copyright
   * notice appear in all copies and that both that copyright notice and
   * this permission notice appear in supporting documentation, and that
   * the name of FundsXpress. not be used in advertising or publicity pertaining
   * to distribution of the software without specific, written prior
   * permission.  FundsXpress makes no representations about the suitability of
   * this software for any purpose.  It is provided "as is" without express
   * or implied warranty.
   * 
   * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
   * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
   * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
   */
  
  #include "k5-int.h"
  #include "shs.h"
  #include "hash_provider.h"
  
  static krb5_error_code
  k5_sha1_hash(unsigned int icount, const krb5_data *input,
  	     krb5_data *output)
  {
      SHS_INFO ctx;
      unsigned int i;
  
      if (output->length != SHS_DIGESTSIZE)
  	return(KRB5_CRYPTO_INTERNAL);
  
      shsInit(&ctx);
      for (i=0; i<icount; i++)
  	shsUpdate(&ctx, (unsigned char *) input[i].data, input[i].length);
      shsFinal(&ctx);
  
      for (i=0; i<(sizeof(ctx.digest)/sizeof(ctx.digest[0])); i++) {
  	output->data[i*4] = (ctx.digest[i]>>24)&0xff;
  	output->data[i*4+1] = (ctx.digest[i]>>16)&0xff;
  	output->data[i*4+2] = (ctx.digest[i]>>8)&0xff;
  	output->data[i*4+3] = ctx.digest[i]&0xff;
      }
  
      return(0);
  }
  
  const struct krb5_hash_provider krb5int_hash_sha1 = {
      SHS_DIGESTSIZE,
      SHS_DATASIZE,
      k5_sha1_hash
  };
  