1  /*
       2   * des_crypt.c, DES encryption library routines
       3   * Copyright (c) 2010, Oracle America, Inc.
       4   *
       5   * Redistribution and use in source and binary forms, with or without
       6   * modification, are permitted provided that the following conditions are
       7   * met:
       8   *
       9   *     * Redistributions of source code must retain the above copyright
      10   *       notice, this list of conditions and the following disclaimer.
      11   *     * Redistributions in binary form must reproduce the above
      12   *       copyright notice, this list of conditions and the following
      13   *       disclaimer in the documentation and/or other materials
      14   *       provided with the distribution.
      15   *     * Neither the name of the "Oracle America, Inc." nor the names of its
      16   *       contributors may be used to endorse or promote products derived
      17   *       from this software without specific prior written permission.
      18   *
      19   *   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
      20   *   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
      21   *   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
      22   *   FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
      23   *   COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
      24   *   INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
      25   *   DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
      26   *   GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
      27   *   INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
      28   *   WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
      29   *   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
      30   *   OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
      31   */
      32  
      33  #include <sys/types.h>
      34  #include <rpc/des_crypt.h>
      35  #include <shlib-compat.h>
      36  #include "des.h"
      37  
      38  extern int _des_crypt (char *, unsigned, struct desparams *);
      39  
      40  /*
      41   * Copy 8 bytes
      42   */
      43  #define COPY8(src, dst) { \
      44  	register char *a = (char *) dst; \
      45  	register char *b = (char *) src; \
      46  	*a++ = *b++; *a++ = *b++; *a++ = *b++; *a++ = *b++; \
      47  	*a++ = *b++; *a++ = *b++; *a++ = *b++; *a++ = *b++; \
      48  }
      49  
      50  /*
      51   * Copy multiple of 8 bytes
      52   */
      53  #define DESCOPY(src, dst, len) { \
      54  	register char *a = (char *) dst; \
      55  	register char *b = (char *) src; \
      56  	register int i; \
      57  	for (i = (int) len; i > 0; i -= 8) { \
      58  		*a++ = *b++; *a++ = *b++; *a++ = *b++; *a++ = *b++; \
      59  		*a++ = *b++; *a++ = *b++; *a++ = *b++; *a++ = *b++; \
      60  	} \
      61  }
      62  
      63  /*
      64   * Common code to cbc_crypt() & ecb_crypt()
      65   */
      66  static int
      67  common_crypt (char *key, char *buf, register unsigned len,
      68  	      unsigned mode, register struct desparams *desp)
      69  {
      70    register int desdev;
      71  
      72    if ((len % 8) != 0 || len > DES_MAXDATA)
      73      return DESERR_BADPARAM;
      74  
      75    desp->des_dir =
      76      ((mode & DES_DIRMASK) == DES_ENCRYPT) ? ENCRYPT : DECRYPT;
      77  
      78    desdev = mode & DES_DEVMASK;
      79    COPY8 (key, desp->des_key);
      80    /*
      81     * software
      82     */
      83    if (!_des_crypt (buf, len, desp))
      84      return DESERR_HWERROR;
      85  
      86    return desdev == DES_SW ? DESERR_NONE : DESERR_NOHWDEVICE;
      87  }
      88  
      89  /* Note: these cannot be excluded from the build yet, because they are
      90     still used internally.  */
      91  
      92  /*
      93   * CBC mode encryption
      94   */
      95  int
      96  cbc_crypt (char *key, char *buf, unsigned int len, unsigned int mode,
      97  	   char *ivec)
      98  {
      99    int err;
     100    struct desparams dp;
     101  
     102    dp.des_mode = CBC;
     103    COPY8 (ivec, dp.des_ivec);
     104    err = common_crypt (key, buf, len, mode, &dp);
     105    COPY8 (dp.des_ivec, ivec);
     106    return err;
     107  }
     108  hidden_nolink (cbc_crypt, libc, GLIBC_2_1)
     109  
     110  /*
     111   * ECB mode encryption
     112   */
     113  int
     114  ecb_crypt (char *key, char *buf, unsigned int len, unsigned int mode)
     115  {
     116    struct desparams dp;
     117  
     118    dp.des_mode = ECB;
     119    return common_crypt (key, buf, len, mode, &dp);
     120  }
     121  hidden_nolink (ecb_crypt, libc, GLIBC_2_1)