NetBSD/dist/bind/lib/cylink/bits.c

361 lines
10 KiB
C

/* $NetBSD: bits.c,v 1.1.1.1 2001/05/17 20:46:42 itojun Exp $ */
/*
* Cylink Corporation © 1998
*
* This software is licensed by Cylink to the Internet Software Consortium to
* promote implementation of royalty free public key cryptography within IETF
* standards. Cylink wishes to expressly thank the contributions of Dr.
* Martin Hellman, Whitfield Diffie, Ralph Merkle and Stanford University for
* their contributions to Internet Security. In accordance with the terms of
* this license, ISC is authorized to distribute and sublicense this software
* for the practice of IETF standards.
*
* The software includes BigNum, written by Colin Plumb and licensed by Philip
* R. Zimmermann for royalty free use and distribution with Cylink's
* software. Use of BigNum as a stand alone product or component is
* specifically prohibited.
*
* Disclaimer of All Warranties. THIS SOFTWARE IS BEING PROVIDED "AS IS",
* WITHOUT ANY EXPRESSED OR IMPLIED WARRANTY OF ANY KIND WHATSOEVER. IN
* PARTICULAR, WITHOUT LIMITATION ON THE GENERALITY OF THE FOREGOING, CYLINK
* MAKES NO REPRESENTATION OF THIS SOFTWARE OR ITS FITNESS FOR ANY PARTICULAR
* PURPOSE.
*
* Cylink or its representatives shall not be liable for tort, indirect,
* special or consequential damages such as loss of profits or loss of
* goodwill from the use or inability to use the software for any purpose or
* for any reason whatsoever.
*
* EXPORT LAW: Export of the Foundations Suite may be subject to compliance
* with the rules and regulations promulgated from time to time by the Bureau
* of Export Administration, United States Department of Commerce, which
* restrict the export and re-export of certain products and technical data.
* If the export of the Foundations Suite is controlled under such rules and
* regulations, then the Foundations Suite shall not be exported or
* re-exported, directly or indirectly, (a) without all export or re-export
* licenses and governmental approvals required by any applicable laws, or (b)
* in violation of any applicable prohibition against the export or re-export
* of any part of the Foundations Suite. All export licenses for software
* containing the Foundations Suite are the sole responsibility of the licensee.
*/
/****************************************************************************
* FILENAME: bit.c PRODUCT NAME: CRYPTOGRAPHIC TOOLKIT
*
* FILE STATUS:
*
* DESCRIPTION: Bit Utility Functions
*
* PUBLIC FUNCTIONS:
*
*
* PRIVATE FUNCTIONS:
*
* REVISION HISTORY:
*
*
****************************************************************************/
/****************************************************************************
* INCLUDE FILES
****************************************************************************/
/* bn files */
#include "port_before.h"
#include <sys/types.h>
#include "bn.h"
/* system files */
#ifdef VXD
#include <vtoolsc.h>
#else
#include <stdlib.h>
#include <string.h>
#endif
/* program files */
#include "cylink.h"
#include "ctk_endian.h"
#include "port_after.h"
/****************************************************************************
* NAME: void RShiftL( ord *X,
* u_int32_t len_X,
* u_int32_t n_bit )
*
* DESCRIPTION: Shift array to the right by n_bit.
*
* INPUTS:
* PARAMETERS:
* ord *X Pointer to array
* u_int32_t len_X Length of array
* u_int32_t n_bit Number of bits
* OUTPUT:
* PARAMETERS:
* ord *X Pointer to array
*
* RETURN:
*
* REVISION HISTORY:
*
* 24 Sep 94 KPZ Initial release
* 14 Oct 94 GKL Second version (big endian support)
*
****************************************************************************/
void RShiftL_big( ord *X,
u_int32_t len_X,
u_int32_t n_bit )
{
struct BigNum dest;
bnInit();
bnBegin(&dest);
dest.ptr = X;
dest.size = len_X;
dest.allocated = len_X;
bnRShift(&dest,n_bit);
}
/****************************************************************************
* NAME: void LShiftL( ord *X,
* u_int32_t len_X,
* u_int32_t n_bit )
*
* DESCRIPTION: Shifts array to the left by n_bit.
*
* INPUTS:
* PARAMETERS:
* ord *X Pointer to array
* u_int32_t len_X Length of array
* u_int32_t n_bit Number of bits
* OUTPUT:
* PARAMETERS:
* ord *X Pointer to array
*
* RETURN:
*
* REVISION HISTORY:
*
* 24 Sep 94 KPZ Initial release
* 14 Oct 94 GKL Second version (big endian support)
*
****************************************************************************/
void LShiftL_big( ord *X,
u_int32_t len_X,
u_int32_t n_bit )
{
struct BigNum dest;
bnInit();
bnBegin(&dest);
dest.ptr = X;
dest.size = len_X;
dest.allocated = len_X;
bnLShift(&dest,n_bit);
}
/************9****************************************************************
* NAME: int RShiftMostBit( ord *a,
* u_int32_t len )
*
* DESCRIPTION: Find a least significant non zero bit
* and sfift array to the right
*
* INPUTS:
* PARAMETERS:
* ord *a Pointer to array
* u_int32_t len Number of elements in number
* OUTPUT:
*
* RETURN:
* Number of shifted bits
*
* REVISION HISTORY:
*
*
* 24 Sep 94 KPZ Initial release
* 14 Oct 94 GKL Second version (big endian support)
*
****************************************************************************/
int RShiftMostBit( ord *a,
u_int32_t len )
{
struct BigNum n;
bnInit();
bnBegin(&n);
n.size = len;
n.ptr = a;
n.allocated = len;
return (bnMakeOdd(&n));
}
/****************************************************************************
* NAME: void ByteLong (uchar *X, u_int32_t X_bytes,
* u_int32_t *Y )
*
*
* DESCRIPTION: Transfer bytes to u_int32_t.
*
* INPUTS:
* PARAMETERS:
* uchar *X Pointer to byte array
* u_int32_t X_bytes Number of bytes in array
* OUTPUT:
* PARAMETERS:
* u_int32_t *Y Pointer to long arrray
*
* RETURN:
*
*
* REVISION HISTORY:
*
* 24 Sep 94 KPZ Initial release
* 14 Oct 94 GKL Second version (big endian support)
*
****************************************************************************/
void ByteLong( uchar *X,
u_int32_t X_bytes,
u_int32_t *Y )
{
u_int32_t i, j; /* counters */
for ( i = 0, j = 0; j < X_bytes; i++, j += 4)
{
Y[i] = ( (u_int32_t)X[j] ) | ( ((u_int32_t)X[j+1]) << 8 ) |
( ((u_int32_t)X[j+2]) << 16 ) | ( ((u_int32_t)X[j+3]) << 24 );
}
}
/****************************************************************************
* NAME: void ByteOrd (uchar *X, u_int32_t X_bytes,
* ord *Y )
*
*
* DESCRIPTION: Transfer bytes to ord.
*
* INPUTS:
* PARAMETERS:
* uchar *X Pointer to byte array
* u_int32_t X_bytes Number of bytes in array
* OUTPUT:
* PARAMETERS:
* ord *Y Pointer to long array
*
* RETURN:
*
*
* REVISION HISTORY:
*
* 24 Sep 94 KPZ Initial release
* 14 Oct 94 GKL Second version (big endian support)
*
****************************************************************************/
void ByteOrd( uchar *X,
u_int32_t X_bytes,
ord *Y )
{
u_int32_t i, j; /* counters */
for ( i = 0, j = 0; j < X_bytes; i++, j += sizeof(ord))
{
Y[i] = ( (ord)X[j] ) | ( ((ord)X[j+1]) << 8 )
#ifdef ORD_32
| ( ((ord)X[j+2]) << 16 ) | ( ((ord)X[j+3]) << 24 )
#endif
;
}
}
/****************************************************************************
* NAME: void OrdByte (ord *X, u_int32_t X_bytes,
* uchar *Y )
*
*
* DESCRIPTION: Transfer ord to bytes.
*
* INPUTS:
* PARAMETERS:
* ord *X Pointer to ord array
* u_int32_t X_bytes Number of bytes in array
* OUTPUT:
* PARAMETERS:
* uchar *Y Pointer to byte array
*
* RETURN:
*
*
* REVISION HISTORY:
*
* 24 Sep 94 KPZ Initial release
* 14 Oct 94 GKL Second version (big endian support)
*
****************************************************************************/
void OrdByte( ord *X,
u_int32_t X_bytes,
uchar *Y )
{
u_int32_t i, j; /* counters */
for ( i=0, j=0; j < X_bytes; i++, j += sizeof(ord))
{
Y[j] = (uchar ) ( X[i] & 0xff );
Y[j+1] = (uchar)( (X[i] >> 8) & 0xff );
#ifdef ORD_32
Y[j+2] = (uchar)( (X[i] >> 16) & 0xff );
Y[j+3] = (uchar)( (X[i] >> 24) & 0xff );
#endif
}
}
/****************************************************************************
* NAME: void LongByte( u_int32_t *X,
* u_int32_t X_bytes,
* uchar *Y )
*
* DESCRIPTION: Transfer u_int32_t to bytes.
*
* INPUTS:
* PARAMETERS:
* u_int32_t *X Pointer to long array
* u_int32_t X_bytes Number of longs in array
* OUTPUT:
* PARAMETERS:
* uchar *Y Pointer to bytes array
*
* RETURN:
*
*
* REVISION HISTORY:
*
* 24 Sep 94 KPZ Initial release
* 14 Oct 94 GKL Second version (big endian support)
*
****************************************************************************/
void LongByte( u_int32_t *X,
u_int32_t X_bytes,
uchar *Y )
{
u_int32_t i, j; /* counters */
for ( i=0, j=0; j < X_bytes; i++, j += 4)
{
Y[j] = (uchar ) ( X[i] & 0xff );
Y[j+1] = (uchar)( (X[i] >> 8) & 0xff );
Y[j+2] = (uchar)( (X[i] >> 16) & 0xff );
Y[j+3] = (uchar)( (X[i] >> 24) & 0xff );
}
}