Allow MatrixSSL code to compile inside gPXE

diff --git a/src/crypto/cryptoLayer.h b/src/crypto/cryptoLayer.h
new file mode 100644 (file)
index 0000000..128af07
--- /dev/null
+++ b/src/crypto/cryptoLayer.h
@@ -0,0 +1,118 @@
+#ifndef _MATRIXSSL_CRYPTOLAYER_H
+#define _MATRIXSSL_CRYPTOLAYER_H
+
+/** @file
+ *
+ * Compatibility layer for MatrixSSL
+ *
+ */
+
+#include <stdint.h>
+#include <stddef.h>
+#include <stdlib.h>
+#include <string.h>
+#include <ctype.h>
+#include <assert.h>
+#include <byteswap.h>
+#include <gpxe/bitops.h>
+#include <gpxe/crypto.h>
+
+/* Drag in pscrypto.h */
+typedef uint64_t ulong64;
+typedef void psPool_t;
+#define SMALL_CODE
+#define USE_INT64
+#define USE_RSA
+#define USE_RSA_PUBLIC_ENCRYPT
+#define CRYPT
+#include "matrixssl/pscrypto.h"
+#define SMALL_CODE
+#undef CLEAN_STACK
+
+#define sslAssert( ... ) assert ( __VA_ARGS__ )
+
+static inline void * psMalloc ( psPool_t *pool __unused, size_t len ) {
+       return malloc ( len );
+}
+
+static inline void * psRealloc ( void *ptr, size_t len ) {
+       return realloc ( ptr, len );
+}
+
+static inline void psFree ( void *ptr ) {
+       free ( ptr );
+}
+
+#define matrixStrDebugMsg( ... ) DBG ( __VA_ARGS__ )
+#define matrixIntDebugMsg( ... ) DBG ( __VA_ARGS__ )
+
+/* Use our standard cpu_to_leXX etc. macros */
+
+#undef LOAD32L
+#define LOAD32L( cpu32, ptr ) do {                             \
+               uint32_t *le32 = ( ( uint32_t * ) ptr );        \
+               cpu32 = le32_to_cpu ( *le32 );                  \
+       } while ( 0 )
+
+#undef LOAD32H
+#define LOAD32H( cpu32, ptr ) do {                             \
+               uint32_t *be32 = ( ( uint32_t * ) ptr );        \
+               cpu32 = be32_to_cpu ( *be32 );                  \
+       } while ( 0 )
+
+#undef LOAD64L
+#define LOAD64L( cpu64, ptr ) do {                             \
+               uint64_t *le64 = ( ( uint64_t * ) ptr );        \
+               cpu64 = le64_to_cpu ( *le64 );                  \
+       } while ( 0 )
+
+#undef LOAD64H
+#define LOAD64H( cpu64, ptr ) do {                             \
+               uint64_t *be64 = ( ( uint64_t * ) ptr );        \
+               cpu64 = be64_to_cpu ( *be64 );                  \
+       } while ( 0 )
+
+#undef STORE32L
+#define STORE32L( cpu32, ptr ) do {                            \
+               uint32_t *le32 = ( ( uint32_t * ) ptr );        \
+               *le32 = cpu_to_le32 ( cpu32 );                  \
+       } while ( 0 )
+
+#undef STORE32H
+#define STORE32H( cpu32, ptr ) do {                            \
+               uint32_t *be32 = ( ( uint32_t * ) ptr );        \
+               *be32 = cpu_to_be32 ( cpu32 );                  \
+       } while ( 0 )
+
+#undef STORE64L
+#define STORE64L( cpu64, ptr ) do {                            \
+               uint64_t *le64 = ( ( uint64_t * ) ptr );        \
+               *le64 = cpu_to_le64 ( cpu64 );                  \
+       } while ( 0 )
+
+#undef STORE64H
+#define STORE64H( cpu64, ptr ) do {                            \
+               uint64_t *be64 = ( ( uint64_t * ) ptr );        \
+               *be64 = cpu_to_be64 ( cpu64 );                  \
+       } while ( 0 )
+
+/* Use rolXX etc. from bitops.h */
+
+#undef ROL
+#define ROL( data, rotation )   rol32 ( (data), (rotation) )
+#undef ROLc
+#define ROLc( data, rotation )  rol32 ( (data), (rotation) )
+#undef ROR
+#define ROR( data, rotation )   ror32 ( (data), (rotation) )
+#undef RORc
+#define RORc( data, rotation )  ror32 ( (data), (rotation) )
+#undef ROL64
+#define ROL64( data, rotation )         rol64 ( (data), (rotation) )
+#undef ROL64c
+#define ROL64c( data, rotation ) rol64 ( (data), (rotation) )
+#undef ROR64
+#define ROR64( data, rotation )         ror64 ( (data), (rotation) )
+#undef ROR64c
+#define ROR64c( data, rotation ) ror64 ( (data), (rotation) )
+
+#endif /* _MATRIXSSL_CRYPTOLAYER_H */

diff --git a/src/crypto/matrixssl/mpi.h b/src/crypto/matrixssl/mpi.h
new file mode 100644 (file)
index 0000000..bb2c9c5
--- /dev/null
+++ b/src/crypto/matrixssl/mpi.h
@@ -0,0 +1,487 @@
+/*     \r
+ *     mpi.h\r
+ *     Release $Name$\r
+ *\r
+ *     multiple-precision integer library\r
+ */\r
+/*\r
+ *     Copyright (c) PeerSec Networks, 2002-2006. All Rights Reserved.\r
+ *     The latest version of this code is available at http://www.matrixssl.org\r
+ *\r
+ *     This software is open source; you can redistribute it and/or modify\r
+ *     it under the terms of the GNU General Public License as published by\r
+ *     the Free Software Foundation; either version 2 of the License, or\r
+ *     (at your option) any later version.\r
+ *\r
+ *     This General Public License does NOT permit incorporating this software \r
+ *     into proprietary programs.  If you are unable to comply with the GPL, a \r
+ *     commercial license for this software may be purchased from PeerSec Networks\r
+ *     at http://www.peersec.com\r
+ *     \r
+ *     This program is distributed in WITHOUT ANY WARRANTY; without even the \r
+ *     implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. \r
+ *     See the GNU General Public License for more details.\r
+ *     \r
+ *     You should have received a copy of the GNU General Public License\r
+ *     along with this program; if not, write to the Free Software\r
+ *     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
+ *     http://www.gnu.org/copyleft/gpl.html\r
+ */\r
+/******************************************************************************/\r
+\r
+#ifndef _h_MPI\r
+#define _h_MPI\r
+\r
+#include <stdio.h>\r
+#include <string.h>\r
+#include <stdlib.h>\r
+#include <ctype.h>\r
+#include <limits.h>\r
+\r
+#undef MIN\r
+#define MIN(x,y) ((x)<(y)?(x):(y))\r
+#undef MAX\r
+#define MAX(x,y) ((x)>(y)?(x):(y))\r
+\r
+#ifdef __cplusplus\r
+extern "C" {\r
+\r
+\r
+/*\r
+       C++ compilers don't like assigning void * to mp_digit *\r
+ */\r
+#define  OPT_CAST(x)  (x *)\r
+\r
+#else\r
+\r
+/*\r
+       C on the other hand doesn't care\r
+ */\r
+#define  OPT_CAST(x)\r
+\r
+#endif /* __cplusplus */\r
+\r
+/******************************************************************************/\r
+/*\r
+       some default configurations.\r
+\r
+       A "mp_digit" must be able to hold DIGIT_BIT + 1 bits\r
+       A "mp_word" must be able to hold 2*DIGIT_BIT + 1 bits\r
+\r
+       At the very least a mp_digit must be able to hold 7 bits\r
+       [any size beyond that is ok provided it doesn't overflow the data type]\r
+ */\r
+#ifdef MP_8BIT\r
+       typedef unsigned char           mp_digit;\r
+       typedef unsigned short          mp_word;\r
+#elif defined(MP_16BIT)\r
+       typedef unsigned short          mp_digit;\r
+       typedef unsigned long           mp_word;\r
+#elif defined(MP_64BIT)\r
+/*\r
+       for GCC only on supported platforms\r
+ */\r
+       #ifndef CRYPT\r
+               typedef unsigned long long      ulong64;\r
+               typedef signed long long        long64;\r
+       #endif /* CRYPT */\r
+\r
+       typedef ulong64                         mp_digit;\r
+       typedef unsigned long           mp_word __attribute__ ((mode(TI)));\r
+\r
+       #define DIGIT_BIT                       60\r
+#else  /* MP_8BIT */\r
+/*\r
+       this is the default case, 28-bit digits\r
+ */\r
+       #ifndef CRYPT\r
+               #if defined(_MSC_VER) || defined(__BORLANDC__) \r
+                       typedef unsigned __int64        ulong64;\r
+                       typedef signed __int64          long64;\r
+               #else\r
+                       typedef unsigned long long      ulong64;\r
+                       typedef signed long long        long64;\r
+               #endif\r
+       #endif /* CRYPT */\r
+\r
+       typedef unsigned long           mp_digit;\r
+       typedef ulong64                         mp_word;\r
+\r
+       #ifdef MP_31BIT\r
+/*\r
+               this is an extension that uses 31-bit digits\r
+ */\r
+               #define DIGIT_BIT               31\r
+       #else /* MP_31BIT */\r
+/*\r
+               default case is 28-bit digits, defines MP_28BIT as a handy macro to test\r
+ */\r
+               #define DIGIT_BIT               28\r
+               #define MP_28BIT\r
+       #endif /* MP_31BIT */\r
+#endif /* MP_8BIT */\r
+\r
+/*\r
+       otherwise the bits per digit is calculated automatically from the size of\r
+       a mp_digit\r
+ */\r
+#ifndef DIGIT_BIT\r
+       #define DIGIT_BIT       ((int32)((CHAR_BIT * sizeof(mp_digit) - 1)))    /* bits per digit */\r
+#endif /* DIGIT_BIT */\r
+\r
+#define MP_DIGIT_BIT           DIGIT_BIT\r
+#define MP_MASK                                ((((mp_digit)1)<<((mp_digit)DIGIT_BIT))-((mp_digit)1))\r
+#define MP_DIGIT_MAX           MP_MASK\r
+\r
+/******************************************************************************/\r
+/*\r
+       equalities\r
+ */\r
+#define MP_LT                  -1              /* less than */\r
+#define MP_EQ                  0               /* equal to */\r
+#define MP_GT                  1               /* greater than */\r
+\r
+#define MP_ZPOS                        0               /* positive integer */\r
+#define MP_NEG                 1               /* negative */\r
+\r
+#define MP_OKAY                        0               /* ok result */\r
+#define MP_MEM                 -2              /* out of mem */\r
+#define MP_VAL                 -3              /* invalid input */\r
+#define MP_RANGE               MP_VAL\r
+\r
+#define MP_YES                 1               /* yes response */\r
+#define MP_NO                  0               /* no response */\r
+\r
+typedef int32                          mp_err;\r
+\r
+/******************************************************************************/\r
+/*\r
+       various build options\r
+ */\r
+#define MP_PREC                        64              /* default digits of precision */\r
+\r
+/*\r
+       define this to use lower memory usage routines (exptmods mostly)\r
+ */\r
+#define MP_LOW_MEM\r
+\r
+/*\r
+       size of comba arrays, should be at least \r
+       2 * 2**(BITS_PER_WORD - BITS_PER_DIGIT*2)\r
+ */\r
+#define MP_WARRAY              (1 << (sizeof(mp_word) * CHAR_BIT - 2 * DIGIT_BIT + 1))\r
+\r
+typedef struct  {\r
+       int32 used, alloc, sign;\r
+       mp_digit *dp;\r
+} mp_int;\r
+\r
+#define USED(m)                ((m)->used)\r
+#define DIGIT(m,k)     ((m)->dp[(k)])\r
+#define SIGN(m)                ((m)->sign)\r
+\r
+/******************************************************************************/\r
+/*\r
+       init and deinit bignum functions\r
+ */\r
+\r
+/*\r
+       init a bignum\r
+ */\r
+extern int32 mp_init(psPool_t *pool, mp_int *a);\r
+\r
+/*\r
+       free a bignum\r
+ */\r
+extern void mp_clear(mp_int *a);\r
+\r
+/*\r
+       init a series of arguments\r
+ */\r
+extern int32 _mp_init_multi(psPool_t *pool, mp_int *mp0, mp_int *mp1, mp_int *mp2, \r
+                                                       mp_int *mp3, mp_int *mp4, mp_int *mp5, mp_int *mp6, \r
+                                                       mp_int *mp7);\r
+\r
+/*\r
+       clear a  series of arguments\r
+ */\r
+extern void _mp_clear_multi(mp_int *mp0, mp_int *mp1, mp_int *mp2, mp_int *mp3,\r
+                                       mp_int *mp4, mp_int *mp5, mp_int *mp6, mp_int *mp7);\r
+\r
+/*\r
+       exchange two ints\r
+ */\r
+extern void mp_exch(mp_int *a, mp_int *b);\r
+\r
+/*\r
+       shrink ram required for a bignum\r
+ */\r
+extern int32 mp_shrink(mp_int *a);\r
+\r
+/*\r
+       grow an int32 to a given size\r
+ */\r
+extern int32 mp_grow(mp_int *a, int32 size);\r
+\r
+/*\r
+       init to a given number of digits\r
+ */\r
+extern int32 mp_init_size(psPool_t *pool, mp_int *a, int32 size);\r
+\r
+/******************************************************************************/\r
+/*\r
+       Basic Manipulations\r
+ */\r
+#define mp_iszero(a) (((a)->used == 0) ? MP_YES : MP_NO)\r
+#define mp_iseven(a) (((a)->used > 0 && (((a)->dp[0] & 1) == 0)) ? MP_YES : MP_NO)\r
+#define mp_isodd(a)  (((a)->used > 0 && (((a)->dp[0] & 1) == 1)) ? MP_YES : MP_NO)\r
+\r
+extern int32 mp_add_d (mp_int * a, mp_digit b, mp_int * c);\r
+extern int32 mp_sub_d (mp_int * a, mp_digit b, mp_int * c);\r
+/*\r
+       set to zero\r
+ */\r
+extern void mp_zero(mp_int *a);\r
+\r
+/*\r
+       set to a digit\r
+ */\r
+extern void mp_set(mp_int *a, mp_digit b);\r
+\r
+/*\r
+       copy, b = a\r
+ */\r
+extern int32 mp_copy(mp_int *a, mp_int *b);\r
+\r
+/*\r
+       inits and copies, a = b\r
+ */\r
+extern int32 mp_init_copy(psPool_t *pool, mp_int *a, mp_int *b);\r
+\r
+/*\r
+       trim unused digits\r
+ */\r
+extern void mp_clamp(mp_int *a);\r
+\r
+/******************************************************************************/\r
+/*\r
+       digit manipulation\r
+*/\r
+\r
+/*\r
+       right shift by "b" digits\r
+ */\r
+extern void mp_rshd(mp_int *a, int32 b);\r
+\r
+/*\r
+       left shift by "b" digits\r
+ */\r
+extern int32 mp_lshd(mp_int *a, int32 b);\r
+\r
+/*\r
+       c = a / 2**b\r
+ */\r
+extern int32 mp_div_2d(psPool_t *pool, mp_int *a, int32 b, mp_int *c, mp_int *d);\r
+\r
+/*\r
+       b = a/2\r
+ */\r
+extern int32 mp_div_2(mp_int *a, mp_int *b);\r
+\r
+/*\r
+       c = a * 2**b\r
+ */\r
+extern int32 mp_mul_2d(mp_int *a, int32 b, mp_int *c);\r
+\r
+/*\r
+       c = a mod 2**d\r
+ */\r
+extern int32 mp_mod_2d(mp_int *a, int32 b, mp_int *c);\r
+\r
+/*\r
+       computes a = 2**b\r
+ */\r
+extern int32 mp_2expt(mp_int *a, int32 b);\r
+\r
+/******************************************************************************/\r
+/*\r
+       Basic arithmetic\r
+ */\r
+\r
+/*\r
+       b = |a|\r
+ */\r
+extern int32 mp_abs(mp_int *a, mp_int *b);\r
+\r
+/*\r
+       compare a to b\r
+ */\r
+extern int32 mp_cmp(mp_int *a, mp_int *b);\r
+\r
+/*\r
+       compare |a| to |b|\r
+ */\r
+extern int32 mp_cmp_mag(mp_int *a, mp_int *b);\r
+\r
+/*\r
+       c = a + b\r
+ */\r
+extern int32 mp_add(mp_int *a, mp_int *b, mp_int *c);\r
+\r
+/*\r
+       c = a - b\r
+ */\r
+extern int32 mp_sub(mp_int *a, mp_int *b, mp_int *c);\r
+\r
+/*\r
+       c = a * b\r
+       b = a*a\r
+ */\r
+/* STEVE - moved mp_mul out of SLOW case */\r
+extern int32 mp_mul(psPool_t *pool, mp_int *a, mp_int *b, mp_int *c);\r
+#ifdef USE_SMALL_WORD\r
+extern int32 mp_sqr(psPool_t *pool, mp_int *a, mp_int *b);\r
+#endif\r
+\r
+/*\r
+       a/b => cb + d == a\r
+ */\r
+extern int32 mp_div(psPool_t *pool, mp_int *a, mp_int *b, mp_int *c, mp_int *d);\r
+\r
+/*\r
+       c = a mod b, 0 <= c < b\r
+ */\r
+extern int32 mp_mod(psPool_t *pool, mp_int *a, mp_int *b, mp_int *c);\r
+\r
+/******************************************************************************/\r
+/*\r
+       single digit functions\r
+ */\r
+\r
+/*\r
+       compare against a single digit\r
+ */\r
+extern int32 mp_cmp_d(mp_int *a, mp_digit b);\r
+\r
+/*\r
+       c = a * b\r
+ */\r
+extern int32 mp_mul_d(mp_int *a, mp_digit b, mp_int *c);\r
+\r
+/******************************************************************************/\r
+/*\r
+       number theory\r
+ */\r
+\r
+/*\r
+       d = a + b (mod c)\r
+ */\r
+extern int32 mp_addmod(psPool_t *pool, mp_int *a, mp_int *b, mp_int *c, mp_int *d);\r
+\r
+/*\r
+       d = a * b (mod c)\r
+ */\r
+extern int32 mp_mulmod(psPool_t *pool, mp_int *a, mp_int *b, mp_int *c, mp_int *d);\r
+\r
+/*\r
+       c = 1/a (mod b)\r
+ */\r
+#ifdef USE_SMALL_WORD\r
+extern int32 mp_invmod(psPool_t *pool, mp_int *a, mp_int *b, mp_int *c);\r
+#endif\r
+\r
+/*\r
+       setups the montgomery reduction\r
+ */\r
+extern int32 mp_montgomery_setup(mp_int *a, mp_digit *mp);\r
+\r
+/*\r
+       computes a = B**n mod b without division or multiplication useful for\r
+       normalizing numbers in a Montgomery system.\r
+ */\r
+extern int32 mp_montgomery_calc_normalization(mp_int *a, mp_int *b);\r
+\r
+/*\r
+       computes x/R == x (mod N) via Montgomery Reduction\r
+ */\r
+#ifdef USE_SMALL_WORD\r
+extern int32 mp_montgomery_reduce(mp_int *a, mp_int *m, mp_digit mp);\r
+#endif\r
+\r
+/*\r
+       d = a**b (mod c)\r
+ */\r
+/* TODO - we never define this */\r
+extern int32 mp_exptmod(psPool_t *pool, mp_int *a, mp_int *b, mp_int *c, mp_int *d);\r
+\r
+/******************************************************************************/\r
+/*\r
+       If we're using 1024 or 2048 bit keys and 28 bit digits, we only need the\r
+       fast_ versions of these functions, removing the others to save space.\r
+       Otherwise, we include the slow versions as well and which version to use\r
+       is done at runtime.\r
+*/\r
+#ifdef USE_SMALL_WORD\r
+extern int32 s_mp_mul_digs(psPool_t *pool, mp_int *a, mp_int *b, mp_int *c,\r
+                                                  int32 digs);\r
+extern int32 s_mp_sqr(psPool_t *pool, mp_int *a, mp_int *b);\r
+#else\r
+#define mp_montgomery_reduce fast_mp_montgomery_reduce\r
+#define mp_sqr fast_s_mp_sqr\r
+#if STEVE\r
+#define mp_mul(P, A, B, C) fast_s_mp_mul_digs(P, A, B, C, (A)->used + (B)->used + 1)\r
+#endif\r
+#define s_mp_mul_digs  fast_s_mp_mul_digs\r
+#define mp_invmod      fast_mp_invmod\r
+#endif\r
+\r
+/******************************************************************************/\r
+/*\r
+       radix conversion\r
+ */\r
+extern int32 mp_count_bits(mp_int *a);\r
+\r
+extern int32 mp_unsigned_bin_size(mp_int *a);\r
+extern int32 mp_read_unsigned_bin(mp_int *a, unsigned char *b, int32 c);\r
+extern int32 mp_to_unsigned_bin(psPool_t *pool, mp_int *a, unsigned char *b);\r
+\r
+extern int32 mp_signed_bin_size(mp_int *a);\r
+\r
+/*\r
+       lowlevel functions, do not call!\r
+ */\r
+#if STEVE\r
+#ifdef USE_SMALL_WORD\r
+#define s_mp_mul(P, A, B, C) s_mp_mul_digs(P, A, B, C, (A)->used + (B)->used + 1)\r
+#else\r
+#define s_mp_mul(P, A, B, C) sslAssert();\r
+#endif\r
+#endif /* STEVE */\r
+/* define this in all cases for now STEVE */\r
+#define s_mp_mul(P, A, B, C) s_mp_mul_digs(P, A, B, C, (A)->used + (B)->used + 1)\r
+\r
+\r
+/*\r
+       b = a*2\r
+ */\r
+extern int32 mp_mul_2(mp_int *a, mp_int *b);\r
+\r
+extern int32 s_mp_add(mp_int *a, mp_int *b, mp_int *c);\r
+extern int32 s_mp_sub(mp_int *a, mp_int *b, mp_int *c);\r
+\r
+extern int32 fast_s_mp_mul_digs(psPool_t *pool, mp_int *a, mp_int *b, mp_int *c,\r
+                                                               int32 digs);\r
+extern int32 fast_s_mp_sqr(psPool_t *pool, mp_int *a, mp_int *b);\r
+\r
+extern int32 fast_mp_invmod(psPool_t *pool, mp_int *a, mp_int *b, mp_int *c);\r
+extern int32 fast_mp_montgomery_reduce(mp_int *a, mp_int *m, mp_digit mp);\r
+\r
+extern void bn_reverse(unsigned char *s, int32 len);\r
+\r
+\r
+#ifdef __cplusplus\r
+   }\r
+#endif /* __cplusplus */\r
+\r
+#endif /* _h_MPI */\r
+\r

diff --git a/src/crypto/matrixssl/pscrypto.h b/src/crypto/matrixssl/pscrypto.h
new file mode 100644 (file)
index 0000000..4d68432
--- /dev/null
+++ b/src/crypto/matrixssl/pscrypto.h
@@ -0,0 +1,661 @@
+/*\r
+ *     pscrypto.h\r
+ *     Release $Name$\r
+ *\r
+ *     Internal definitions for PeerSec Networks MatrixSSL cryptography provider\r
+ */\r
+/*\r
+ *     Copyright (c) PeerSec Networks, 2002-2006. All Rights Reserved.\r
+ *     The latest version of this code is available at http://www.matrixssl.org\r
+ *\r
+ *     This software is open source; you can redistribute it and/or modify\r
+ *     it under the terms of the GNU General Public License as published by\r
+ *     the Free Software Foundation; either version 2 of the License, or\r
+ *     (at your option) any later version.\r
+ *\r
+ *     This General Public License does NOT permit incorporating this software \r
+ *     into proprietary programs.  If you are unable to comply with the GPL, a \r
+ *     commercial license for this software may be purchased from PeerSec Networks\r
+ *     at http://www.peersec.com\r
+ *     \r
+ *     This program is distributed in WITHOUT ANY WARRANTY; without even the \r
+ *     implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. \r
+ *     See the GNU General Public License for more details.\r
+ *     \r
+ *     You should have received a copy of the GNU General Public License\r
+ *     along with this program; if not, write to the Free Software\r
+ *     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\r
+ *     http://www.gnu.org/copyleft/gpl.html\r
+ */\r
+/******************************************************************************/\r
+\r
+#ifndef _h_PSCRYPTO\r
+#define _h_PSCRYPTO\r
+\r
+#ifdef __cplusplus\r
+extern "C" {\r
+#endif\r
+\r
+/*\r
+       PeerSec crypto-specific defines.\r
+ */\r
+#define SMALL_CODE\r
+#define CLEAN_STACK\r
+/*\r
+       If Native 64 bit integers are not supported, we must set the 16 bit flag\r
+       to produce 32 bit mp_words in mpi.h\r
+       We must also include the slow MPI functions because the fast ones only\r
+       work with larger (28 bit) digit sizes.\r
+*/\r
+#ifndef USE_INT64\r
+#define MP_16BIT\r
+#define USE_SMALL_WORD\r
+#endif /* USE_INT64 */\r
+\r
+/******************************************************************************/\r
+\r
+#ifdef USE_RSA\r
+\r
+#include "mpi.h"\r
+\r
+#if LINUX\r
+       #define _stat stat\r
+#endif\r
+\r
+/* this is the "32-bit at least" data type \r
+ * Re-define it to suit your platform but it must be at least 32-bits \r
+ */\r
+typedef unsigned long ulong32;\r
+\r
+/*\r
+       Primary RSA Key struct.  Define here for crypto\r
+*/\r
+typedef struct {\r
+       mp_int          e, d, N, qP, dP, dQ, p, q;\r
+       int32                   size;   /* Size of the key in bytes */\r
+       int32                   optimized; /* 1 for optimized */\r
+} sslRsaKey_t;\r
+\r
+#endif /* USE_RSA */\r
+\r
+\r
+/*\r
+ *     Private\r
+ */\r
+extern int32 ps_base64_decode(const unsigned char *in, uint32 len, \r
+                                                       unsigned char *out, uint32 *outlen);\r
+\r
+/*\r
+ *     Memory routines\r
+ */\r
+extern void psZeromem(void *dst, size_t len);\r
+extern void psBurnStack(unsigned long len);\r
+\r
+\r
+/* max size of either a cipher/hash block or symmetric key [largest of the two] */\r
+#define MAXBLOCKSIZE                   24\r
+\r
+/* ch1-01-1 */\r
+/* error codes [will be expanded in future releases] */\r
+enum {\r
+       CRYPT_OK=0,                                     /* Result OK */\r
+       CRYPT_ERROR,                            /* Generic Error */\r
+       CRYPT_NOP,                                      /* Not a failure but no operation was performed */\r
+\r
+       CRYPT_INVALID_KEYSIZE,          /* Invalid key size given */\r
+       CRYPT_INVALID_ROUNDS,           /* Invalid number of rounds */\r
+       CRYPT_FAIL_TESTVECTOR,          /* Algorithm failed test vectors */\r
+\r
+       CRYPT_BUFFER_OVERFLOW,          /* Not enough space for output */\r
+       CRYPT_INVALID_PACKET,           /* Invalid input packet given */\r
+\r
+       CRYPT_INVALID_PRNGSIZE,         /* Invalid number of bits for a PRNG */\r
+       CRYPT_ERROR_READPRNG,           /* Could not read enough from PRNG */\r
+\r
+       CRYPT_INVALID_CIPHER,           /* Invalid cipher specified */\r
+       CRYPT_INVALID_HASH,                     /* Invalid hash specified */\r
+       CRYPT_INVALID_PRNG,                     /* Invalid PRNG specified */\r
+\r
+       CRYPT_MEM,                                      /* Out of memory */\r
+\r
+       CRYPT_PK_TYPE_MISMATCH,         /* Not equivalent types of PK keys */\r
+       CRYPT_PK_NOT_PRIVATE,           /* Requires a private PK key */\r
+\r
+       CRYPT_INVALID_ARG,                      /* Generic invalid argument */\r
+       CRYPT_FILE_NOTFOUND,            /* File Not Found */\r
+\r
+       CRYPT_PK_INVALID_TYPE,          /* Invalid type of PK key */\r
+       CRYPT_PK_INVALID_SYSTEM,        /* Invalid PK system specified */\r
+       CRYPT_PK_DUP,                           /* Duplicate key already in key ring */\r
+       CRYPT_PK_NOT_FOUND,                     /* Key not found in keyring */\r
+       CRYPT_PK_INVALID_SIZE,          /* Invalid size input for PK parameters */\r
+\r
+       CRYPT_INVALID_PRIME_SIZE        /* Invalid size of prime requested */\r
+};\r
+\r
+/******************************************************************************/\r
+/*\r
+       hash defines\r
+ */\r
+struct sha1_state {\r
+#ifdef USE_INT64\r
+       ulong64         length;\r
+#else\r
+       ulong32         lengthHi;\r
+       ulong32         lengthLo;\r
+#endif /* USE_INT64 */\r
+       ulong32 state[5], curlen;\r
+       unsigned char   buf[64];\r
+};\r
+\r
+struct md5_state {\r
+#ifdef USE_INT64\r
+       ulong64 length;\r
+#else\r
+       ulong32 lengthHi;\r
+       ulong32 lengthLo;\r
+#endif /* USE_INT64 */\r
+       ulong32 state[4], curlen;\r
+       unsigned char buf[64];\r
+};\r
+\r
+#ifdef USE_MD2\r
+struct md2_state {\r
+       unsigned char chksum[16], X[48], buf[16];\r
+       unsigned long curlen;\r
+};\r
+#endif /* USE_MD2 */\r
+\r
+#ifdef USE_SHA256\r
+struct sha256_state {\r
+       ulong64 length;\r
+       ulong32 state[8], curlen;\r
+       unsigned char buf[64];\r
+};\r
+#endif /* USE_SHA256 */\r
+\r
+typedef union {\r
+       struct sha1_state       sha1;\r
+       struct md5_state        md5;\r
+#ifdef USE_MD2\r
+       struct md2_state        md2;\r
+#endif /* USE_MD2 */\r
+#ifdef USE_SHA256\r
+       struct sha256_state sha256;\r
+#endif\r
+} hash_state;\r
+\r
+typedef hash_state sslSha1Context_t;\r
+typedef hash_state sslMd5Context_t;\r
+#ifdef USE_MD2\r
+typedef hash_state sslMd2Context_t;\r
+#endif /* USE_MD2 */\r
+#ifdef USE_SHA256\r
+typedef hash_state sslSha256Context_t;\r
+#endif /* USE_SHA256 */\r
+\r
+typedef struct {\r
+       unsigned char   pad[64];\r
+       union {\r
+               sslMd5Context_t         md5;\r
+               sslSha1Context_t        sha1;\r
+       } u;\r
+} sslHmacContext_t;\r
+\r
+/******************************************************************************/\r
+/*\r
+       RC4\r
+ */\r
+#ifdef USE_ARC4\r
+typedef struct {\r
+       unsigned char   state[256];\r
+       uint32  byteCount;\r
+       unsigned char   x;\r
+       unsigned char   y;\r
+} rc4_key;\r
+#endif /* USE_ARC4 */\r
+\r
+#define SSL_DES3_KEY_LEN       24\r
+#define SSL_DES3_IV_LEN                8\r
+#ifdef USE_3DES\r
+\r
+typedef struct {\r
+       ulong32 ek[3][32], dk[3][32];\r
+} des3_key;\r
+\r
+/*\r
+       A block cipher CBC structure\r
+ */\r
+typedef struct {\r
+       int32                                   blocklen;\r
+       unsigned char           IV[8];\r
+       des3_key                        key;\r
+       int32                                   explicitIV; /* 1 if yes */\r
+} des3_CBC;\r
+\r
+extern int32 des3_setup(const unsigned char *key, int32 keylen, int32 num_rounds,\r
+                des3_CBC *skey);\r
+extern void des3_ecb_encrypt(const unsigned char *pt, unsigned char *ct,\r
+                des3_CBC *key);\r
+extern void des3_ecb_decrypt(const unsigned char *ct, unsigned char *pt,\r
+                des3_CBC *key);\r
+extern int32 des3_keysize(int32 *desired_keysize);\r
+\r
+extern int32 des_setup(const unsigned char *key, int32 keylen, int32 num_rounds,\r
+                des3_CBC *skey);\r
+extern void des_ecb_encrypt(const unsigned char *pt, unsigned char *ct,\r
+                des3_CBC *key);\r
+extern void des_ecb_decrypt(const unsigned char *ct, unsigned char *pt,\r
+                des3_CBC *key);\r
+\r
+#endif /* USE_3DES */\r
+\r
+\r
+typedef union {\r
+#ifdef USE_ARC4\r
+       rc4_key         arc4;\r
+#endif\r
+#ifdef USE_3DES\r
+       des3_CBC        des3;\r
+#endif\r
+} sslCipherContext_t;\r
+\r
+\r
+/*\r
+       Controls endianess and size of registers.  Leave uncommented to get\r
+       platform neutral [slower] code detect x86-32 machines somewhat\r
+ */\r
+#if (defined(_MSC_VER) && defined(WIN32)) || (defined(__GNUC__) && (defined(__DJGPP__) || defined(__CYGWIN__) || defined(__MINGW32__) || defined(__i386__)))\r
+       #define ENDIAN_LITTLE\r
+       #define ENDIAN_32BITWORD\r
+#endif\r
+\r
+\r
+/* #define ENDIAN_LITTLE */\r
+/* #define ENDIAN_BIG */\r
+\r
+/* #define ENDIAN_32BITWORD */\r
+/* #define ENDIAN_64BITWORD */\r
+\r
+#if (defined(ENDIAN_BIG) || defined(ENDIAN_LITTLE)) && !(defined(ENDIAN_32BITWORD) || defined(ENDIAN_64BITWORD))\r
+               #error You must specify a word size as well as endianess\r
+#endif\r
+\r
+#if !(defined(ENDIAN_BIG) || defined(ENDIAN_LITTLE))\r
+       #define ENDIAN_NEUTRAL\r
+#endif\r
+\r
+/*\r
+       helper macros\r
+ */\r
+#if defined (ENDIAN_NEUTRAL)\r
+\r
+#define STORE32L(x, y)                                                                     \\r
+     { (y)[3] = (unsigned char)(((x)>>24)&255); (y)[2] = (unsigned char)(((x)>>16)&255);   \\r
+       (y)[1] = (unsigned char)(((x)>>8)&255); (y)[0] = (unsigned char)((x)&255); }\r
+\r
+#define LOAD32L(x, y)                            \\r
+     { x = ((unsigned long)((y)[3] & 255)<<24) | \\r
+           ((unsigned long)((y)[2] & 255)<<16) | \\r
+           ((unsigned long)((y)[1] & 255)<<8)  | \\r
+           ((unsigned long)((y)[0] & 255)); }\r
+\r
+#define STORE64L(x, y)                                                                     \\r
+     { (y)[7] = (unsigned char)(((x)>>56)&255); (y)[6] = (unsigned char)(((x)>>48)&255);   \\r
+       (y)[5] = (unsigned char)(((x)>>40)&255); (y)[4] = (unsigned char)(((x)>>32)&255);   \\r
+       (y)[3] = (unsigned char)(((x)>>24)&255); (y)[2] = (unsigned char)(((x)>>16)&255);   \\r
+       (y)[1] = (unsigned char)(((x)>>8)&255); (y)[0] = (unsigned char)((x)&255); }\r
+\r
+#define LOAD64L(x, y)                                                       \\r
+     { x = (((ulong64)((y)[7] & 255))<<56)|(((ulong64)((y)[6] & 255))<<48)| \\r
+           (((ulong64)((y)[5] & 255))<<40)|(((ulong64)((y)[4] & 255))<<32)| \\r
+           (((ulong64)((y)[3] & 255))<<24)|(((ulong64)((y)[2] & 255))<<16)| \\r
+           (((ulong64)((y)[1] & 255))<<8)|(((ulong64)((y)[0] & 255))); }\r
+\r
+#define STORE32H(x, y)                                                                     \\r
+     { (y)[0] = (unsigned char)(((x)>>24)&255); (y)[1] = (unsigned char)(((x)>>16)&255);   \\r
+       (y)[2] = (unsigned char)(((x)>>8)&255); (y)[3] = (unsigned char)((x)&255); }\r
+\r
+#define LOAD32H(x, y)                            \\r
+     { x = ((unsigned long)((y)[0] & 255)<<24) | \\r
+           ((unsigned long)((y)[1] & 255)<<16) | \\r
+           ((unsigned long)((y)[2] & 255)<<8)  | \\r
+           ((unsigned long)((y)[3] & 255)); }\r
+\r
+#define STORE64H(x, y)                                                                     \\r
+   { (y)[0] = (unsigned char)(((x)>>56)&255); (y)[1] = (unsigned char)(((x)>>48)&255);     \\r
+     (y)[2] = (unsigned char)(((x)>>40)&255); (y)[3] = (unsigned char)(((x)>>32)&255);     \\r
+     (y)[4] = (unsigned char)(((x)>>24)&255); (y)[5] = (unsigned char)(((x)>>16)&255);     \\r
+     (y)[6] = (unsigned char)(((x)>>8)&255); (y)[7] = (unsigned char)((x)&255); }\r
+\r
+#define LOAD64H(x, y)                                                      \\r
+   { x = (((ulong64)((y)[0] & 255))<<56)|(((ulong64)((y)[1] & 255))<<48) | \\r
+         (((ulong64)((y)[2] & 255))<<40)|(((ulong64)((y)[3] & 255))<<32) | \\r
+         (((ulong64)((y)[4] & 255))<<24)|(((ulong64)((y)[5] & 255))<<16) | \\r
+         (((ulong64)((y)[6] & 255))<<8)|(((ulong64)((y)[7] & 255))); }\r
+\r
+#endif /* ENDIAN_NEUTRAL */\r
+\r
+#ifdef ENDIAN_LITTLE\r
+\r
+#define STORE32H(x, y)                                                                     \\r
+     { (y)[0] = (unsigned char)(((x)>>24)&255); (y)[1] = (unsigned char)(((x)>>16)&255);   \\r
+       (y)[2] = (unsigned char)(((x)>>8)&255); (y)[3] = (unsigned char)((x)&255); }\r
+\r
+#define LOAD32H(x, y)                            \\r
+     { x = ((unsigned long)((y)[0] & 255)<<24) | \\r
+           ((unsigned long)((y)[1] & 255)<<16) | \\r
+           ((unsigned long)((y)[2] & 255)<<8)  | \\r
+           ((unsigned long)((y)[3] & 255)); }\r
+\r
+#define STORE64H(x, y)                                                                     \\r
+   { (y)[0] = (unsigned char)(((x)>>56)&255); (y)[1] = (unsigned char)(((x)>>48)&255);     \\r
+     (y)[2] = (unsigned char)(((x)>>40)&255); (y)[3] = (unsigned char)(((x)>>32)&255);     \\r
+     (y)[4] = (unsigned char)(((x)>>24)&255); (y)[5] = (unsigned char)(((x)>>16)&255);     \\r
+     (y)[6] = (unsigned char)(((x)>>8)&255); (y)[7] = (unsigned char)((x)&255); }\r
+\r
+#define LOAD64H(x, y)                                                      \\r
+   { x = (((ulong64)((y)[0] & 255))<<56)|(((ulong64)((y)[1] & 255))<<48) | \\r
+         (((ulong64)((y)[2] & 255))<<40)|(((ulong64)((y)[3] & 255))<<32) | \\r
+         (((ulong64)((y)[4] & 255))<<24)|(((ulong64)((y)[5] & 255))<<16) | \\r
+         (((ulong64)((y)[6] & 255))<<8)|(((ulong64)((y)[7] & 255))); }\r
+\r
+#ifdef ENDIAN_32BITWORD \r
+\r
+#define STORE32L(x, y)        \\r
+     { unsigned long __t = (x); memcpy(y, &__t, 4); }\r
+\r
+#define LOAD32L(x, y)         \\r
+     memcpy(&(x), y, 4);\r
+\r
+#define STORE64L(x, y)                                                                     \\r
+     { (y)[7] = (unsigned char)(((x)>>56)&255); (y)[6] = (unsigned char)(((x)>>48)&255);   \\r
+       (y)[5] = (unsigned char)(((x)>>40)&255); (y)[4] = (unsigned char)(((x)>>32)&255);   \\r
+       (y)[3] = (unsigned char)(((x)>>24)&255); (y)[2] = (unsigned char)(((x)>>16)&255);   \\r
+       (y)[1] = (unsigned char)(((x)>>8)&255); (y)[0] = (unsigned char)((x)&255); }\r
+\r
+#define LOAD64L(x, y)                                                       \\r
+     { x = (((ulong64)((y)[7] & 255))<<56)|(((ulong64)((y)[6] & 255))<<48)| \\r
+           (((ulong64)((y)[5] & 255))<<40)|(((ulong64)((y)[4] & 255))<<32)| \\r
+           (((ulong64)((y)[3] & 255))<<24)|(((ulong64)((y)[2] & 255))<<16)| \\r
+           (((ulong64)((y)[1] & 255))<<8)|(((ulong64)((y)[0] & 255))); }\r
+\r
+#else /* 64-bit words then  */\r
+\r
+#define STORE32L(x, y)        \\r
+     { unsigned long __t = (x); memcpy(y, &__t, 4); }\r
+\r
+#define LOAD32L(x, y)         \\r
+     { memcpy(&(x), y, 4); x &= 0xFFFFFFFF; }\r
+\r
+#define STORE64L(x, y)        \\r
+     { ulong64 __t = (x); memcpy(y, &__t, 8); }\r
+\r
+#define LOAD64L(x, y)         \\r
+    { memcpy(&(x), y, 8); }\r
+\r
+#endif /* ENDIAN_64BITWORD */\r
+#endif /* ENDIAN_LITTLE */\r
+\r
+#ifdef ENDIAN_BIG\r
+#define STORE32L(x, y)                                                                     \\r
+     { (y)[3] = (unsigned char)(((x)>>24)&255); (y)[2] = (unsigned char)(((x)>>16)&255);   \\r
+       (y)[1] = (unsigned char)(((x)>>8)&255); (y)[0] = (unsigned char)((x)&255); }\r
+\r
+#define LOAD32L(x, y)                            \\r
+     { x = ((unsigned long)((y)[3] & 255)<<24) | \\r
+           ((unsigned long)((y)[2] & 255)<<16) | \\r
+           ((unsigned long)((y)[1] & 255)<<8)  | \\r
+           ((unsigned long)((y)[0] & 255)); }\r
+\r
+#define STORE64L(x, y)                                                                     \\r
+   { (y)[7] = (unsigned char)(((x)>>56)&255); (y)[6] = (unsigned char)(((x)>>48)&255);     \\r
+     (y)[5] = (unsigned char)(((x)>>40)&255); (y)[4] = (unsigned char)(((x)>>32)&255);     \\r
+     (y)[3] = (unsigned char)(((x)>>24)&255); (y)[2] = (unsigned char)(((x)>>16)&255);     \\r
+     (y)[1] = (unsigned char)(((x)>>8)&255); (y)[0] = (unsigned char)((x)&255); }\r
+\r
+#define LOAD64L(x, y)                                                      \\r
+   { x = (((ulong64)((y)[7] & 255))<<56)|(((ulong64)((y)[6] & 255))<<48) | \\r
+         (((ulong64)((y)[5] & 255))<<40)|(((ulong64)((y)[4] & 255))<<32) | \\r
+         (((ulong64)((y)[3] & 255))<<24)|(((ulong64)((y)[2] & 255))<<16) | \\r
+         (((ulong64)((y)[1] & 255))<<8)|(((ulong64)((y)[0] & 255))); }\r
+\r
+#ifdef ENDIAN_32BITWORD \r
+\r
+#define STORE32H(x, y)        \\r
+     { unsigned long __t = (x); memcpy(y, &__t, 4); }\r
+\r
+#define LOAD32H(x, y)         \\r
+     memcpy(&(x), y, 4);\r
+\r
+#define STORE64H(x, y)                                                                     \\r
+     { (y)[0] = (unsigned char)(((x)>>56)&255); (y)[1] = (unsigned char)(((x)>>48)&255);   \\r
+       (y)[2] = (unsigned char)(((x)>>40)&255); (y)[3] = (unsigned char)(((x)>>32)&255);   \\r
+       (y)[4] = (unsigned char)(((x)>>24)&255); (y)[5] = (unsigned char)(((x)>>16)&255);   \\r
+       (y)[6] = (unsigned char)(((x)>>8)&255);  (y)[7] = (unsigned char)((x)&255); }\r
+\r
+#define LOAD64H(x, y)                                                       \\r
+     { x = (((ulong64)((y)[0] & 255))<<56)|(((ulong64)((y)[1] & 255))<<48)| \\r
+           (((ulong64)((y)[2] & 255))<<40)|(((ulong64)((y)[3] & 255))<<32)| \\r
+           (((ulong64)((y)[4] & 255))<<24)|(((ulong64)((y)[5] & 255))<<16)| \\r
+           (((ulong64)((y)[6] & 255))<<8)| (((ulong64)((y)[7] & 255))); }\r
+\r
+#else /* 64-bit words then  */\r
+\r
+#define STORE32H(x, y)        \\r
+     { unsigned long __t = (x); memcpy(y, &__t, 4); }\r
+\r
+#define LOAD32H(x, y)         \\r
+     { memcpy(&(x), y, 4); x &= 0xFFFFFFFF; }\r
+\r
+#define STORE64H(x, y)        \\r
+     { ulong64 __t = (x); memcpy(y, &__t, 8); }\r
+\r
+#define LOAD64H(x, y)         \\r
+    { memcpy(&(x), y, 8); }\r
+\r
+#endif /* ENDIAN_64BITWORD */\r
+#endif /* ENDIAN_BIG */\r
+\r
+/*\r
+       packet code */\r
+#if defined(USE_RSA) || defined(MDH) || defined(MECC)\r
+       #define PACKET\r
+\r
+/*\r
+       size of a packet header in bytes */\r
+       #define PACKET_SIZE                             4\r
+\r
+/*\r
+       Section tags\r
+ */\r
+       #define PACKET_SECT_RSA                 0\r
+       #define PACKET_SECT_DH                  1\r
+       #define PACKET_SECT_ECC                 2\r
+       #define PACKET_SECT_DSA                 3\r
+\r
+/*\r
+       Subsection Tags for the first three sections\r
+ */\r
+       #define PACKET_SUB_KEY                  0\r
+       #define PACKET_SUB_ENCRYPTED    1\r
+       #define PACKET_SUB_SIGNED               2\r
+       #define PACKET_SUB_ENC_KEY              3\r
+#endif\r
+\r
+/*\r
+       fix for MSVC ...evil!\r
+ */\r
+#ifdef WIN32\r
+#ifdef _MSC_VER\r
+       #define CONST64(n) n ## ui64\r
+       typedef unsigned __int64 ulong64;\r
+#else\r
+       #define CONST64(n) n ## ULL\r
+       typedef unsigned long long ulong64;\r
+#endif\r
+#endif /* WIN32 */\r
+\r
+\r
+#define BSWAP(x)  ( ((x>>24)&0x000000FFUL) | ((x<<24)&0xFF000000UL)  | \\r
+                    ((x>>8)&0x0000FF00UL)  | ((x<<8)&0x00FF0000UL) )\r
+\r
+#ifdef _MSC_VER\r
+\r
+/*\r
+       instrinsic rotate\r
+ */\r
+#include <stdlib.h>\r
+#pragma intrinsic(_lrotr,_lrotl)\r
+#define ROR(x,n) _lrotr(x,n)\r
+#define ROL(x,n) _lrotl(x,n)\r
+#define RORc(x,n) _lrotr(x,n)\r
+#define ROLc(x,n) _lrotl(x,n)\r
+\r
+/*\r
+#elif defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__)) && !defined(INTEL_CC) && !defined(PS_NO_ASM)\r
+\r
+static inline unsigned ROL(unsigned word, int32 i)\r
+{\r
+       asm ("roll %%cl,%0"\r
+               :"0" (word),"c" (i));\r
+       return word;\r
+}\r
+\r
+static inline unsigned ROR(unsigned word, int32 i)\r
+{\r
+       asm ("rorl %%cl,%0"\r
+               :"=r" (word)\r
+               :"0" (word),"c" (i));\r
+       return word;\r
+}\r
+*/\r
+/*\r
+#ifndef PS_NO_ROLC\r
+\r
+static inline unsigned ROLc(unsigned word, const int32 i)\r
+{\r
+   asm ("roll %2,%0"\r
+      :"=r" (word)\r
+      :"0" (word),"I" (i));\r
+   return word;\r
+}\r
+\r
+static inline unsigned RORc(unsigned word, const int32 i)\r
+{\r
+   asm ("rorl %2,%0"\r
+      :"=r" (word)\r
+      :"0" (word),"I" (i));\r
+   return word;\r
+}\r
+\r
+#else\r
+\r
+#define ROLc ROL\r
+#define RORc ROR\r
+\r
+#endif\r
+*/\r
+\r
+#else /* _MSC_VER */\r
+\r
+/*\r
+       rotates the hard way\r
+ */\r
+#define ROL(x, y) ( (((unsigned long)(x)<<(unsigned long)((y)&31)) | (((unsigned long)(x)&0xFFFFFFFFUL)>>(unsigned long)(32-((y)&31)))) & 0xFFFFFFFFUL)\r
+#define ROR(x, y) ( ((((unsigned long)(x)&0xFFFFFFFFUL)>>(unsigned long)((y)&31)) | ((unsigned long)(x)<<(unsigned long)(32-((y)&31)))) & 0xFFFFFFFFUL)\r
+#define ROLc(x, y) ( (((unsigned long)(x)<<(unsigned long)((y)&31)) | (((unsigned long)(x)&0xFFFFFFFFUL)>>(unsigned long)(32-((y)&31)))) & 0xFFFFFFFFUL)\r
+#define RORc(x, y) ( ((((unsigned long)(x)&0xFFFFFFFFUL)>>(unsigned long)((y)&31)) | ((unsigned long)(x)<<(unsigned long)(32-((y)&31)))) & 0xFFFFFFFFUL)\r
+\r
+#endif /* _MSC_VER */\r
+\r
+/* 64-bit Rotates */\r
+#if 0\r
+\r
+#if defined(__GNUC__) && defined(__x86_64__) && !defined(PS_NO_ASM)\r
+\r
+static inline unsigned long ROL64(unsigned long word, int32 i)\r
+{\r
+   asm("rolq %%cl,%0"\r
+      :"=r" (word)\r
+      :"0" (word),"c" (i));\r
+   return word;\r
+}\r
+\r
+static inline unsigned long ROR64(unsigned long word, int32 i)\r
+{\r
+   asm("rorq %%cl,%0"\r
+      :"=r" (word)\r
+      :"0" (word),"c" (i));\r
+   return word;\r
+}\r
+\r
+#ifndef PS_NO_ROLC\r
+\r
+static inline unsigned long ROL64c(unsigned long word, const int32 i)\r
+{\r
+   asm("rolq %2,%0"\r
+      :"=r" (word)\r
+      :"0" (word),"J" (i));\r
+   return word;\r
+}\r
+\r
+static inline unsigned long ROR64c(unsigned long word, const int32 i)\r
+{\r
+   asm("rorq %2,%0"\r
+      :"=r" (word)\r
+      :"0" (word),"J" (i));\r
+   return word;\r
+}\r
+\r
+#else /* PS_NO_ROLC */\r
+\r
+#define ROL64c ROL\r
+#define ROR64c ROR\r
+\r
+#endif /* PS_NO_ROLC */\r
+#endif\r
+#endif /* commented out */\r
+\r
+#define ROL64(x, y) \\r
+    ( (((x)<<((ulong64)(y)&63)) | \\r
+      (((x)&CONST64(0xFFFFFFFFFFFFFFFF))>>((ulong64)64-((y)&63)))) & CONST64(0xFFFFFFFFFFFFFFFF))\r
+\r
+#define ROR64(x, y) \\r
+    ( ((((x)&CONST64(0xFFFFFFFFFFFFFFFF))>>((ulong64)(y)&CONST64(63))) | \\r
+      ((x)<<((ulong64)(64-((y)&CONST64(63)))))) & CONST64(0xFFFFFFFFFFFFFFFF))\r
+\r
+#define ROL64c(x, y) \\r
+    ( (((x)<<((ulong64)(y)&63)) | \\r
+      (((x)&CONST64(0xFFFFFFFFFFFFFFFF))>>((ulong64)64-((y)&63)))) & CONST64(0xFFFFFFFFFFFFFFFF))\r
+\r
+#define ROR64c(x, y) \\r
+    ( ((((x)&CONST64(0xFFFFFFFFFFFFFFFF))>>((ulong64)(y)&CONST64(63))) | \\r
+      ((x)<<((ulong64)(64-((y)&CONST64(63)))))) & CONST64(0xFFFFFFFFFFFFFFFF))\r
+\r
+#undef MAX\r
+#undef MIN\r
+#define MAX(x, y) ( ((x)>(y))?(x):(y) )\r
+#define MIN(x, y) ( ((x)<(y))?(x):(y) )\r
+\r
+/*\r
+       extract a byte portably This MSC code causes runtime errors in VS.NET,\r
+       always use the other\r
+ */\r
+/*\r
+#ifdef _MSC_VER\r
+   #define byte(x, n) ((unsigned char)((x) >> (8 * (n))))\r
+#else\r
+*/\r
+   #define byte(x, n) (((x) >> (8 * (n))) & 255)\r
+/*\r
+#endif\r
+*/\r
+#ifdef __cplusplus\r
+   }\r
+#endif /* __cplusplus */\r
+\r
+#endif /* _h_PSCRYPTO */\r
+\r
+/******************************************************************************/\r
+\r