src/des/cksum.c

   1 /*
   2  * Copyright 1985, 1986, 1987, 1988 by the Massachusetts Institute
   3  * of Technology.
   4  *
   5  * For copying and distribution information, please see the file
   6  * <mit-cpyright.h>.
   7  *
   8  * These routines perform encryption and decryption using the DES
   9  * private key algorithm, or else a subset of it-- fewer inner loops.
  10  * (AUTH_DES_ITER defaults to 16, may be less.)
  11  *
  12  * Under U.S. law, this software may not be exported outside the US
  13  * without license from the U.S. Commerce department.
  14  *
  15  * These routines form the library interface to the DES facilities.
  16  *
  17  *      spm     8/85    MIT project athena
  18  */
  19
  20 #include <afsconfig.h>
  21 #include <afs/param.h>
  22
  23 RCSID("$Header$");
  24
  25 #include <mit-cpyright.h>
  26 #include <stdio.h>
  27 #if defined(HAVE_STRINGS_H)
  28 #include <strings.h>
  29 #endif
  30 #if defined(HAVE_STRING_H)
  31 #include <string.h>
  32 #endif
  33
  34 #include <des.h>
  35 #include "des_internal.h"
  36
  37 #define XPRT_CKSUM
  38
  39 extern int des_debug;
  40 extern int des_debug_print();
  41 extern int des_ecb_encrypt();
  42
  43 /*
  44  * This routine performs DES cipher-block-chaining checksum operation,
  45  * a.k.a.  Message Authentication Code.  It ALWAYS encrypts from input
  46  * to a single 64 bit output MAC checksum.
  47  *
  48  * The key schedule is passed as an arg, as well as the cleartext or
  49  * ciphertext. The cleartext and ciphertext should be in host order.
  50  *
  51  * NOTE-- the output is ALWAYS 8 bytes long.  If not enough space was
  52  * provided, your program will get trashed.
  53  *
  54  * The input is null padded, at the end (highest addr), to an integral
  55  * multiple of eight bytes.
  56  */
  57
  58 afs_uint32
  59 des_cbc_cksum(in,out,length,key,iv)
  60     des_cblock *in;             /* >= length bytes of inputtext */
  61     des_cblock *out;            /* >= length bytes of outputtext */
  62     register afs_int32 length;  /* in bytes */
  63     des_key_schedule key;               /* precomputed key schedule */
  64     des_cblock *iv;             /* 8 bytes of ivec */
  65 {
  66     register afs_uint32 *input = (afs_uint32 *) in;
  67     register afs_uint32 *output = (afs_uint32 *) out;
  68     afs_uint32 *ivec = (afs_uint32 *) iv;
  69
  70     afs_uint32 i,j;
  71     afs_uint32 t_input[2];
  72     afs_uint32 t_output[8];
  73     unsigned char *t_in_p = (unsigned char *) t_input;
  74
  75 #ifdef MUSTALIGN
  76     if ((afs_int32) ivec & 3) {
  77         bcopy((char *)ivec++,(char *)&t_output[0],sizeof(t_output[0]));
  78         bcopy((char *)ivec,(char *)&t_output[1],sizeof(t_output[1]));
  79     }
  80     else
  81 #endif
  82     {
  83         t_output[0] = *ivec++;
  84         t_output[1] = *ivec;
  85     }
  86
  87     for (i = 0; length > 0; i++, length -= 8) {
  88         /* get input */
  89 #ifdef MUSTALIGN
  90         if ((afs_int32) input & 3) {
  91             bcopy((char *)input++,(char *)&t_input[0],sizeof(t_input[0]));
  92             bcopy((char *)input++,(char *)&t_input[1],sizeof(t_input[1]));
  93         }
  94         else
  95 #endif
  96         {
  97             t_input[0] = *input++;
  98             t_input[1] = *input++;
  99         }
 100
 101         /* zero pad */
 102         if (length < 8)
 103             for (j = length; j <= 7; j++)
 104                 *(t_in_p+j)= 0;
 105
 106 #ifdef DEBUG
 107         if (des_debug)
 108             des_debug_print("clear",length,t_input[0],t_input[1]);
 109 #endif
 110         /* do the xor for cbc into the temp */
 111         t_input[0] ^= t_output[0] ;
 112         t_input[1] ^= t_output[1] ;
 113         /* encrypt */
 114         (void) des_ecb_encrypt(t_input,t_output,key,1);
 115 #ifdef DEBUG
 116         if (des_debug) {
 117             des_debug_print("xor'ed",i,t_input[0],t_input[1]);
 118             des_debug_print("cipher",i,t_output[0],t_output[1]);
 119         }
 120 #else
 121 #ifdef lint
 122         i = i;
 123 #endif
 124 #endif
 125     }
 126     /* copy temp output and save it for checksum */
 127 #ifdef MUSTALIGN
 128     if ((afs_int32) output & 3) {
 129         bcopy((char *)&t_output[0],(char *)output++,sizeof(t_output[0]));
 130         bcopy((char *)&t_output[1],(char *)output,sizeof(t_output[1]));
 131     }
 132     else
 133 #endif
 134     {
 135         *output++ = t_output[0];
 136         *output = t_output[1];
 137     }
 138
 139     return (afs_uint32) t_output[1];
 140 }