152 lines
2.9 KiB
C
152 lines
2.9 KiB
C
#if !defined(lint) && defined(SCCSIDS)
|
|
static char sccsid[] = "@(#)des_crypt.c 1.1 92/08/04 (C) 1987 Sun Micro";
|
|
#endif
|
|
|
|
/*
|
|
* des_crypt.c, DES encryption library routines
|
|
* Copyright (C) 1986, Sun Microsystems, Inc.
|
|
*/
|
|
|
|
|
|
#include <sys/types.h>
|
|
#include <des/des_crypt.h>
|
|
#ifdef sun
|
|
# include <sys/ioctl.h>
|
|
# include <sys/des.h>
|
|
# ifdef KERNEL
|
|
# include <sys/conf.h>
|
|
# define getdesfd() (cdevsw[11].d_open(0, 0) ? -1 : 0)
|
|
# define ioctl(a, b, c) (cdevsw[11].d_ioctl(0, b, c, 0) ? -1 : 0)
|
|
# define _des_crypt(a, b, c) 0
|
|
# else
|
|
# define getdesfd() (open("/dev/des", 0, 0))
|
|
# endif
|
|
#endif
|
|
|
|
/*
|
|
* To see if chip is installed
|
|
*/
|
|
#define UNOPENED (-2)
|
|
static int g_desfd = UNOPENED;
|
|
|
|
|
|
/*
|
|
* Copy 8 bytes
|
|
*/
|
|
#define COPY8(src, dst) { \
|
|
register char *a = (char *) dst; \
|
|
register char *b = (char *) src; \
|
|
*a++ = *b++; *a++ = *b++; *a++ = *b++; *a++ = *b++; \
|
|
*a++ = *b++; *a++ = *b++; *a++ = *b++; *a++ = *b++; \
|
|
}
|
|
|
|
/*
|
|
* Copy multiple of 8 bytes
|
|
*/
|
|
#define DESCOPY(src, dst, len) { \
|
|
register char *a = (char *) dst; \
|
|
register char *b = (char *) src; \
|
|
register int i; \
|
|
for (i = (int) len; i > 0; i -= 8) { \
|
|
*a++ = *b++; *a++ = *b++; *a++ = *b++; *a++ = *b++; \
|
|
*a++ = *b++; *a++ = *b++; *a++ = *b++; *a++ = *b++; \
|
|
} \
|
|
}
|
|
|
|
/*
|
|
* CBC mode encryption
|
|
*/
|
|
cbc_crypt(key, buf, len, mode, ivec)
|
|
char *key;
|
|
char *buf;
|
|
unsigned len;
|
|
unsigned mode;
|
|
char *ivec;
|
|
{
|
|
int err;
|
|
struct desparams dp;
|
|
|
|
dp.des_mode = CBC;
|
|
COPY8(ivec, dp.des_ivec);
|
|
err = common_crypt(key, buf, len, mode, &dp);
|
|
COPY8(dp.des_ivec, ivec);
|
|
return (err);
|
|
}
|
|
|
|
|
|
/*
|
|
* ECB mode encryption
|
|
*/
|
|
ecb_crypt(key, buf, len, mode)
|
|
char *key;
|
|
char *buf;
|
|
unsigned len;
|
|
unsigned mode;
|
|
{
|
|
struct desparams dp;
|
|
|
|
dp.des_mode = ECB;
|
|
return (common_crypt(key, buf, len, mode, &dp));
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
* Common code to cbc_crypt() & ecb_crypt()
|
|
*/
|
|
static
|
|
common_crypt(key, buf, len, mode, desp)
|
|
char *key;
|
|
char *buf;
|
|
register unsigned len;
|
|
unsigned mode;
|
|
register struct desparams *desp;
|
|
{
|
|
register int desdev;
|
|
register int res;
|
|
|
|
if ((len % 8) != 0 || len > DES_MAXDATA) {
|
|
return (DESERR_BADPARAM);
|
|
}
|
|
desp->des_dir =
|
|
((mode & DES_DIRMASK) == DES_ENCRYPT) ? ENCRYPT : DECRYPT;
|
|
|
|
desdev = mode & DES_DEVMASK;
|
|
COPY8(key, desp->des_key);
|
|
#ifdef sun
|
|
if (desdev == DES_HW) {
|
|
if (g_desfd < 0) {
|
|
if (g_desfd == -1 || (g_desfd = getdesfd()) < 0) {
|
|
goto software; /* no hardware device */
|
|
}
|
|
}
|
|
|
|
/*
|
|
* hardware
|
|
*/
|
|
desp->des_len = len;
|
|
if (len <= DES_QUICKLEN) {
|
|
DESCOPY(buf, desp->des_data, len);
|
|
res = ioctl(g_desfd, DESIOCQUICK, (char *) desp);
|
|
DESCOPY(desp->des_data, buf, len);
|
|
} else {
|
|
desp->des_buf = (u_char *) buf;
|
|
res = ioctl(g_desfd, DESIOCBLOCK, (char *) desp);
|
|
}
|
|
return (res == 0 ? DESERR_NONE : DESERR_HWERROR);
|
|
}
|
|
software:
|
|
#endif
|
|
/*
|
|
* software
|
|
*/
|
|
#ifdef CRYPT
|
|
if (!_des_crypt(buf, len, desp)) {
|
|
return (DESERR_HWERROR);
|
|
}
|
|
return (desdev == DES_SW ? DESERR_NONE : DESERR_NOHWDEVICE);
|
|
#else
|
|
return (DESERR_HWERROR);
|
|
#endif CRYPT
|
|
}
|