src/lib/gssapi/krb5/util_seed.c

   1 /*
   2  * Copyright 1993 by OpenVision Technologies, Inc.
   3  *
   4  * Permission to use, copy, modify, distribute, and sell this software
   5  * and its documentation for any purpose is hereby granted without fee,
   6  * provided that the above copyright notice appears in all copies and
   7  * that both that copyright notice and this permission notice appear in
   8  * supporting documentation, and that the name of OpenVision not be used
   9  * in advertising or publicity pertaining to distribution of the software
  10  * without specific, written prior permission. OpenVision makes no
  11  * representations about the suitability of this software for any
  12  * purpose.  It is provided "as is" without express or implied warranty.
  13  *
  14  * OPENVISION DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
  15  * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
  16  * EVENT SHALL OPENVISION BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  17  * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF
  18  * USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
  19  * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  20  * PERFORMANCE OF THIS SOFTWARE.
  21  */
  22
  23 #include "gssapiP_krb5.h"
  24 #include <memory.h>
  25
  26 static unsigned char zeros[16] = {0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0};
  27
  28 krb5_error_code
  29 kg_make_seed(key, seed)
  30      krb5_keyblock *key;
  31      unsigned char *seed;
  32 {
  33    krb5_error_code code;
  34    krb5_gss_enc_desc ed;
  35    int i;
  36
  37    if (!kg_context && (code=kg_get_context()))
  38            return code;
  39
  40    if (code = krb5_copy_keyblock(kg_context, key, &ed.key))
  41       return(code);
  42
  43    /* reverse the key bytes, as per spec */
  44
  45    for (i=0; i<ed.key->length; i++)
  46       ed.key->contents[i] = key->contents[key->length - 1 - i];
  47
  48    krb5_use_cstype(kg_context, &ed.eblock, ETYPE_RAW_DES_CBC);
  49    ed.processed = 0;
  50
  51    code = kg_encrypt(&ed, NULL, zeros, seed, 16);
  52
  53    krb5_finish_key(kg_context, &ed.eblock);
  54    krb5_free_keyblock(kg_context, ed.key);
  55
  56    return(code);
  57 }