dropbear: src/misc/mpi/mpi.c annotate

annotate src/misc/mpi/mpi.c @ 280:59400faa4b44 libtomcrypt-orig libtomcrypt-1.05

Re-import libtomcrypt 1.05 for cleaner propagating. From crypt-1.05.tar.bz2, SHA1 of 88250202bb51570dc64f7e8f1c943cda9479258f

author	Matt Johnston <matt@ucc.asn.au>
date	Wed, 08 Mar 2006 12:58:00 +0000
parents
children

rev	line source
280 59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1 /* Start: bn_error.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3 #ifdef BN_ERROR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	10 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	11 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	12 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	13 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	14 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	15 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	16 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	17 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	18
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	19 static const struct {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	20 int code;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	21 char *msg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	22 } msgs[] = {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	23 { MP_OKAY, "Successful" },
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	24 { MP_MEM, "Out of heap" },
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	25 { MP_VAL, "Value out of range" }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	26 };
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	27
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	28 /* return a char * string for a given code */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	29 char *mp_error_to_string(int code)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	30 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	31 int x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	32
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	33 /* scan the lookup table for the given message */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	34 for (x = 0; x < (int)(sizeof(msgs) / sizeof(msgs[0])); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	35 if (msgs[x].code == code) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	36 return msgs[x].msg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	37 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	38 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	39
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	40 /* generic reply for invalid code */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	41 return "Invalid error code";
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	42 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	43
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	44 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	45
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	46 /* End: bn_error.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	47
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	48 /* Start: bn_fast_mp_invmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	49 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	50 #ifdef BN_FAST_MP_INVMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	51 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	52 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	53 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	54 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	55 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	56 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	57 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	58 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	59 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	60 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	61 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	62 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	63 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	64 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	65
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	66 /* computes the modular inverse via binary extended euclidean algorithm,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	67 * that is c = 1/a mod b
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	68 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	69 * Based on slow invmod except this is optimized for the case where b is
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	70 * odd as per HAC Note 14.64 on pp. 610
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	71 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	72 int fast_mp_invmod (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	73 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	74 mp_int x, y, u, v, B, D;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	75 int res, neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	76
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	77 /* 2. [modified] b must be odd */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	78 if (mp_iseven (b) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	79 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	80 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	81
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	82 /* init all our temps */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	83 if ((res = mp_init_multi(&x, &y, &u, &v, &B, &D, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	84 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	85 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	86
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	87 /* x == modulus, y == value to invert */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	88 if ((res = mp_copy (b, &x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	89 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	90 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	91
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	92 /* we need y = \|a\| */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	93 if ((res = mp_mod (a, b, &y)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	94 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	95 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	96
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	97 /* 3. u=x, v=y, A=1, B=0, C=0,D=1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	98 if ((res = mp_copy (&x, &u)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	99 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	100 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	101 if ((res = mp_copy (&y, &v)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	102 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	103 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	104 mp_set (&D, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	105
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	106 top:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	107 /* 4. while u is even do */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	108 while (mp_iseven (&u) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	109 /* 4.1 u = u/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	110 if ((res = mp_div_2 (&u, &u)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	111 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	112 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	113 /* 4.2 if B is odd then */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	114 if (mp_isodd (&B) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	115 if ((res = mp_sub (&B, &x, &B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	116 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	117 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	118 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	119 /* B = B/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	120 if ((res = mp_div_2 (&B, &B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	121 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	122 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	123 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	124
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	125 /* 5. while v is even do */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	126 while (mp_iseven (&v) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	127 /* 5.1 v = v/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	128 if ((res = mp_div_2 (&v, &v)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	129 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	130 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	131 /* 5.2 if D is odd then */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	132 if (mp_isodd (&D) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	133 /* D = (D-x)/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	134 if ((res = mp_sub (&D, &x, &D)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	135 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	136 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	137 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	138 /* D = D/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	139 if ((res = mp_div_2 (&D, &D)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	140 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	141 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	142 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	143
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	144 /* 6. if u >= v then */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	145 if (mp_cmp (&u, &v) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	146 /* u = u - v, B = B - D */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	147 if ((res = mp_sub (&u, &v, &u)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	148 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	149 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	150
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	151 if ((res = mp_sub (&B, &D, &B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	152 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	153 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	154 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	155 /* v - v - u, D = D - B */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	156 if ((res = mp_sub (&v, &u, &v)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	157 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	158 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	159
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	160 if ((res = mp_sub (&D, &B, &D)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	161 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	162 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	163 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	164
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	165 /* if not zero goto step 4 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	166 if (mp_iszero (&u) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	167 goto top;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	168 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	169
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	170 /* now a = C, b = D, gcd == gv /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	171
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	172 /* if v != 1 then there is no inverse */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	173 if (mp_cmp_d (&v, 1) != MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	174 res = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	175 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	176 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	177
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	178 /* b is now the inverse */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	179 neg = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	180 while (D.sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	181 if ((res = mp_add (&D, b, &D)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	182 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	183 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	184 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	185 mp_exch (&D, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	186 c->sign = neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	187 res = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	188
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	189 LBL_ERR:mp_clear_multi (&x, &y, &u, &v, &B, &D, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	190 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	191 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	192 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	193
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	194 /* End: bn_fast_mp_invmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	195
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	196 /* Start: bn_fast_mp_montgomery_reduce.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	197 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	198 #ifdef BN_FAST_MP_MONTGOMERY_REDUCE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	199 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	200 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	201 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	202 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	203 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	204 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	205 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	206 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	207 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	208 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	209 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	210 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	211 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	212 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	213
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	214 /* computes xR**-1 == x (mod N) via Montgomery Reduction
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	215 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	216 * This is an optimized implementation of montgomery_reduce
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	217 * which uses the comba method to quickly calculate the columns of the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	218 * reduction.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	219 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	220 * Based on Algorithm 14.32 on pp.601 of HAC.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	221 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	222 int fast_mp_montgomery_reduce (mp_int * x, mp_int * n, mp_digit rho)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	223 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	224 int ix, res, olduse;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	225 mp_word W[MP_WARRAY];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	226
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	227 /* get old used count */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	228 olduse = x->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	229
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	230 /* grow a as required */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	231 if (x->alloc < n->used + 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	232 if ((res = mp_grow (x, n->used + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	233 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	234 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	235 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	236
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	237 /* first we have to get the digits of the input into
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	238 * an array of double precision words W[...]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	239 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	240 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	241 register mp_word *_W;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	242 register mp_digit *tmpx;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	243
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	244 /* alias for the W[] array */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	245 _W = W;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	246
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	247 /* alias for the digits of x*/
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	248 tmpx = x->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	249
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	250 /* copy the digits of a into W[0..a->used-1] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	251 for (ix = 0; ix < x->used; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	252 _W++ = tmpx++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	253 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	254
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	255 /* zero the high words of W[a->used..m->used2] /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	256 for (; ix < n->used * 2 + 1; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	257 *_W++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	258 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	259 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	260
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	261 /* now we proceed to zero successive digits
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	262 * from the least significant upwards
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	263 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	264 for (ix = 0; ix < n->used; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	265 /* mu = ai * m' mod b
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	266 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	267 * We avoid a double precision multiplication (which isn't required)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	268 * by casting the value down to a mp_digit. Note this requires
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	269 * that W[ix-1] have the carry cleared (see after the inner loop)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	270 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	271 register mp_digit mu;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	272 mu = (mp_digit) (((W[ix] & MP_MASK) * rho) & MP_MASK);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	273
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	274 /* a = a + mu * m * b**i
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	275 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	276 * This is computed in place and on the fly. The multiplication
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	277 * by b**i is handled by offseting which columns the results
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	278 * are added to.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	279 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	280 * Note the comba method normally doesn't handle carries in the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	281 * inner loop In this case we fix the carry from the previous
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	282 * column since the Montgomery reduction requires digits of the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	283 * result (so far) [see above] to work. This is
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	284 * handled by fixing up one carry after the inner loop. The
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	285 * carry fixups are done in order so after these loops the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	286 * first m->used words of W[] have the carries fixed
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	287 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	288 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	289 register int iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	290 register mp_digit *tmpn;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	291 register mp_word *_W;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	292
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	293 /* alias for the digits of the modulus */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	294 tmpn = n->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	295
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	296 /* Alias for the columns set by an offset of ix */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	297 _W = W + ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	298
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	299 /* inner loop */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	300 for (iy = 0; iy < n->used; iy++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	301 _W++ += ((mp_word)mu) ((mp_word)*tmpn++);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	302 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	303 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	304
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	305 /* now fix carry for next digit, W[ix+1] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	306 W[ix + 1] += W[ix] >> ((mp_word) DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	307 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	308
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	309 /* now we have to propagate the carries and
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	310 * shift the words downward [all those least
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	311 * significant digits we zeroed].
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	312 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	313 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	314 register mp_digit *tmpx;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	315 register mp_word _W, _W1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	316
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	317 /* nox fix rest of carries */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	318
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	319 /* alias for current word */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	320 _W1 = W + ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	321
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	322 /* alias for next word, where the carry goes */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	323 _W = W + ++ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	324
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	325 for (; ix <= n->used * 2 + 1; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	326 _W++ += _W1++ >> ((mp_word) DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	327 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	328
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	329 /* copy out, A = A/b**n
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	330 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	331 * The result is A/b**n but instead of converting from an
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	332 * array of mp_word to mp_digit than calling mp_rshd
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	333 * we just copy them in the right order
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	334 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	335
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	336 /* alias for destination word */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	337 tmpx = x->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	338
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	339 /* alias for shifted double precision result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	340 _W = W + n->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	341
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	342 for (ix = 0; ix < n->used + 1; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	343 tmpx++ = (mp_digit)(_W++ & ((mp_word) MP_MASK));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	344 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	345
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	346 /* zero oldused digits, if the input a was larger than
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	347 * m->used+1 we'll have to clear the digits
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	348 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	349 for (; ix < olduse; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	350 *tmpx++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	351 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	352 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	353
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	354 /* set the max used and clamp */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	355 x->used = n->used + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	356 mp_clamp (x);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	357
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	358 /* if A >= m then A = A - m */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	359 if (mp_cmp_mag (x, n) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	360 return s_mp_sub (x, n, x);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	361 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	362 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	363 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	364 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	365
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	366 /* End: bn_fast_mp_montgomery_reduce.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	367
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	368 /* Start: bn_fast_s_mp_mul_digs.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	369 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	370 #ifdef BN_FAST_S_MP_MUL_DIGS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	371 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	372 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	373 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	374 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	375 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	376 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	377 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	378 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	379 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	380 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	381 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	382 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	383 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	384 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	385
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	386 /* Fast (comba) multiplier
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	387 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	388 * This is the fast column-array [comba] multiplier. It is
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	389 * designed to compute the columns of the product first
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	390 * then handle the carries afterwards. This has the effect
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	391 * of making the nested loops that compute the columns very
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	392 * simple and schedulable on super-scalar processors.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	393 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	394 * This has been modified to produce a variable number of
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	395 * digits of output so if say only a half-product is required
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	396 * you don't have to compute the upper half (a feature
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	397 * required for fast Barrett reduction).
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	398 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	399 * Based on Algorithm 14.12 on pp.595 of HAC.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	400 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	401 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	402 int fast_s_mp_mul_digs (mp_int * a, mp_int * b, mp_int * c, int digs)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	403 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	404 int olduse, res, pa, ix, iz;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	405 mp_digit W[MP_WARRAY];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	406 register mp_word _W;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	407
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	408 /* grow the destination as required */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	409 if (c->alloc < digs) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	410 if ((res = mp_grow (c, digs)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	411 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	412 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	413 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	414
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	415 /* number of output digits to produce */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	416 pa = MIN(digs, a->used + b->used);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	417
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	418 /* clear the carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	419 _W = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	420 for (ix = 0; ix < pa; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	421 int tx, ty;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	422 int iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	423 mp_digit tmpx, tmpy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	424
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	425 /* get offsets into the two bignums */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	426 ty = MIN(b->used-1, ix);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	427 tx = ix - ty;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	428
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	429 /* setup temp aliases */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	430 tmpx = a->dp + tx;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	431 tmpy = b->dp + ty;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	432
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	433 /* this is the number of times the loop will iterrate, essentially
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	434 while (tx++ < a->used && ty-- >= 0) { ... }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	435 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	436 iy = MIN(a->used-tx, ty+1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	437
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	438 /* execute loop */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	439 for (iz = 0; iz < iy; ++iz) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	440 _W += ((mp_word)tmpx++)((mp_word)*tmpy--);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	441 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	442
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	443 /* store term */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	444 W[ix] = ((mp_digit)_W) & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	445
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	446 /* make next carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	447 _W = _W >> ((mp_word)DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	448 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	449
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	450 /* store final carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	451 W[ix] = (mp_digit)(_W & MP_MASK);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	452
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	453 /* setup dest */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	454 olduse = c->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	455 c->used = pa;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	456
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	457 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	458 register mp_digit *tmpc;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	459 tmpc = c->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	460 for (ix = 0; ix < pa+1; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	461 /* now extract the previous digit [below the carry] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	462 *tmpc++ = W[ix];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	463 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	464
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	465 /* clear unused digits [that existed in the old copy of c] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	466 for (; ix < olduse; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	467 *tmpc++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	468 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	469 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	470 mp_clamp (c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	471 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	472 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	473 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	474
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	475 /* End: bn_fast_s_mp_mul_digs.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	476
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	477 /* Start: bn_fast_s_mp_mul_high_digs.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	478 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	479 #ifdef BN_FAST_S_MP_MUL_HIGH_DIGS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	480 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	481 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	482 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	483 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	484 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	485 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	486 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	487 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	488 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	489 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	490 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	491 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	492 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	493 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	494
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	495 /* this is a modified version of fast_s_mul_digs that only produces
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	496 * output digits above digs. See the comments for fast_s_mul_digs
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	497 * to see how it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	498 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	499 * This is used in the Barrett reduction since for one of the multiplications
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	500 * only the higher digits were needed. This essentially halves the work.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	501 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	502 * Based on Algorithm 14.12 on pp.595 of HAC.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	503 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	504 int fast_s_mp_mul_high_digs (mp_int * a, mp_int * b, mp_int * c, int digs)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	505 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	506 int olduse, res, pa, ix, iz;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	507 mp_digit W[MP_WARRAY];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	508 mp_word _W;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	509
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	510 /* grow the destination as required */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	511 pa = a->used + b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	512 if (c->alloc < pa) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	513 if ((res = mp_grow (c, pa)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	514 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	515 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	516 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	517
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	518 /* number of output digits to produce */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	519 pa = a->used + b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	520 _W = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	521 for (ix = digs; ix < pa; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	522 int tx, ty, iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	523 mp_digit tmpx, tmpy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	524
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	525 /* get offsets into the two bignums */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	526 ty = MIN(b->used-1, ix);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	527 tx = ix - ty;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	528
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	529 /* setup temp aliases */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	530 tmpx = a->dp + tx;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	531 tmpy = b->dp + ty;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	532
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	533 /* this is the number of times the loop will iterrate, essentially its
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	534 while (tx++ < a->used && ty-- >= 0) { ... }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	535 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	536 iy = MIN(a->used-tx, ty+1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	537
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	538 /* execute loop */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	539 for (iz = 0; iz < iy; iz++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	540 _W += ((mp_word)tmpx++)((mp_word)*tmpy--);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	541 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	542
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	543 /* store term */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	544 W[ix] = ((mp_digit)_W) & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	545
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	546 /* make next carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	547 _W = _W >> ((mp_word)DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	548 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	549
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	550 /* store final carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	551 W[ix] = (mp_digit)(_W & MP_MASK);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	552
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	553 /* setup dest */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	554 olduse = c->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	555 c->used = pa;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	556
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	557 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	558 register mp_digit *tmpc;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	559
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	560 tmpc = c->dp + digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	561 for (ix = digs; ix <= pa; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	562 /* now extract the previous digit [below the carry] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	563 *tmpc++ = W[ix];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	564 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	565
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	566 /* clear unused digits [that existed in the old copy of c] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	567 for (; ix < olduse; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	568 *tmpc++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	569 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	570 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	571 mp_clamp (c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	572 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	573 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	574 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	575
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	576 /* End: bn_fast_s_mp_mul_high_digs.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	577
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	578 /* Start: bn_fast_s_mp_sqr.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	579 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	580 #ifdef BN_FAST_S_MP_SQR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	581 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	582 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	583 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	584 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	585 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	586 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	587 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	588 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	589 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	590 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	591 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	592 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	593 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	594 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	595
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	596 /* the jist of squaring...
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	597 * you do like mult except the offset of the tmpx [one that
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	598 * starts closer to zero] can't equal the offset of tmpy.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	599 * So basically you set up iy like before then you min it with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	600 * (ty-tx) so that it never happens. You double all those
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	601 * you add in the inner loop
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	602
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	603 After that loop you do the squares and add them in.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	604 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	605
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	606 int fast_s_mp_sqr (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	607 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	608 int olduse, res, pa, ix, iz;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	609 mp_digit W[MP_WARRAY], *tmpx;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	610 mp_word W1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	611
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	612 /* grow the destination as required */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	613 pa = a->used + a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	614 if (b->alloc < pa) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	615 if ((res = mp_grow (b, pa)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	616 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	617 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	618 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	619
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	620 /* number of output digits to produce */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	621 W1 = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	622 for (ix = 0; ix < pa; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	623 int tx, ty, iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	624 mp_word _W;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	625 mp_digit *tmpy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	626
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	627 /* clear counter */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	628 _W = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	629
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	630 /* get offsets into the two bignums */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	631 ty = MIN(a->used-1, ix);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	632 tx = ix - ty;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	633
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	634 /* setup temp aliases */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	635 tmpx = a->dp + tx;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	636 tmpy = a->dp + ty;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	637
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	638 /* this is the number of times the loop will iterrate, essentially
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	639 while (tx++ < a->used && ty-- >= 0) { ... }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	640 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	641 iy = MIN(a->used-tx, ty+1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	642
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	643 /* now for squaring tx can never equal ty
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	644 * we halve the distance since they approach at a rate of 2x
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	645 * and we have to round because odd cases need to be executed
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	646 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	647 iy = MIN(iy, (ty-tx+1)>>1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	648
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	649 /* execute loop */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	650 for (iz = 0; iz < iy; iz++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	651 _W += ((mp_word)tmpx++)((mp_word)*tmpy--);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	652 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	653
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	654 /* double the inner product and add carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	655 _W = _W + _W + W1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	656
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	657 /* even columns have the square term in them */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	658 if ((ix&1) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	659 _W += ((mp_word)a->dp[ix>>1])*((mp_word)a->dp[ix>>1]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	660 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	661
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	662 /* store it */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	663 W[ix] = (mp_digit)(_W & MP_MASK);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	664
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	665 /* make next carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	666 W1 = _W >> ((mp_word)DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	667 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	668
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	669 /* setup dest */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	670 olduse = b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	671 b->used = a->used+a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	672
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	673 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	674 mp_digit *tmpb;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	675 tmpb = b->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	676 for (ix = 0; ix < pa; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	677 *tmpb++ = W[ix] & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	678 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	679
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	680 /* clear unused digits [that existed in the old copy of c] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	681 for (; ix < olduse; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	682 *tmpb++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	683 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	684 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	685 mp_clamp (b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	686 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	687 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	688 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	689
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	690 /* End: bn_fast_s_mp_sqr.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	691
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	692 /* Start: bn_mp_2expt.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	693 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	694 #ifdef BN_MP_2EXPT_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	695 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	696 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	697 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	698 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	699 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	700 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	701 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	702 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	703 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	704 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	705 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	706 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	707 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	708 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	709
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	710 /* computes a = 2**b
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	711 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	712 * Simple algorithm which zeroes the int, grows it then just sets one bit
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	713 * as required.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	714 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	715 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	716 mp_2expt (mp_int * a, int b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	717 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	718 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	719
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	720 /* zero a as per default */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	721 mp_zero (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	722
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	723 /* grow a to accomodate the single bit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	724 if ((res = mp_grow (a, b / DIGIT_BIT + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	725 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	726 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	727
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	728 /* set the used count of where the bit will go */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	729 a->used = b / DIGIT_BIT + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	730
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	731 /* put the single bit in its place */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	732 a->dp[b / DIGIT_BIT] = ((mp_digit)1) << (b % DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	733
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	734 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	735 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	736 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	737
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	738 /* End: bn_mp_2expt.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	739
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	740 /* Start: bn_mp_abs.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	741 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	742 #ifdef BN_MP_ABS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	743 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	744 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	745 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	746 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	747 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	748 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	749 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	750 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	751 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	752 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	753 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	754 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	755 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	756 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	757
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	758 /* b = \|a\|
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	759 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	760 * Simple function copies the input and fixes the sign to positive
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	761 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	762 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	763 mp_abs (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	764 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	765 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	766
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	767 /* copy a to b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	768 if (a != b) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	769 if ((res = mp_copy (a, b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	770 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	771 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	772 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	773
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	774 /* force the sign of b to positive */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	775 b->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	776
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	777 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	778 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	779 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	780
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	781 /* End: bn_mp_abs.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	782
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	783 /* Start: bn_mp_add.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	784 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	785 #ifdef BN_MP_ADD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	786 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	787 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	788 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	789 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	790 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	791 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	792 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	793 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	794 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	795 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	796 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	797 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	798 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	799 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	800
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	801 /* high level addition (handles signs) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	802 int mp_add (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	803 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	804 int sa, sb, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	805
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	806 /* get sign of both inputs */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	807 sa = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	808 sb = b->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	809
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	810 /* handle two cases, not four */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	811 if (sa == sb) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	812 /* both positive or both negative */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	813 /* add their magnitudes, copy the sign */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	814 c->sign = sa;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	815 res = s_mp_add (a, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	816 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	817 /* one positive, the other negative */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	818 /* subtract the one with the greater magnitude from */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	819 /* the one of the lesser magnitude. The result gets */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	820 /* the sign of the one with the greater magnitude. */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	821 if (mp_cmp_mag (a, b) == MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	822 c->sign = sb;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	823 res = s_mp_sub (b, a, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	824 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	825 c->sign = sa;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	826 res = s_mp_sub (a, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	827 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	828 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	829 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	830 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	831
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	832 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	833
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	834 /* End: bn_mp_add.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	835
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	836 /* Start: bn_mp_add_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	837 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	838 #ifdef BN_MP_ADD_D_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	839 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	840 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	841 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	842 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	843 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	844 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	845 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	846 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	847 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	848 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	849 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	850 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	851 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	852 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	853
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	854 /* single digit addition */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	855 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	856 mp_add_d (mp_int * a, mp_digit b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	857 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	858 int res, ix, oldused;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	859 mp_digit tmpa, tmpc, mu;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	860
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	861 /* grow c as required */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	862 if (c->alloc < a->used + 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	863 if ((res = mp_grow(c, a->used + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	864 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	865 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	866 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	867
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	868 /* if a is negative and \|a\| >= b, call c = \|a\| - b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	869 if (a->sign == MP_NEG && (a->used > 1 \|\| a->dp[0] >= b)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	870 /* temporarily fix sign of a */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	871 a->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	872
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	873 /* c = \|a\| - b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	874 res = mp_sub_d(a, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	875
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	876 /* fix sign */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	877 a->sign = c->sign = MP_NEG;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	878
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	879 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	880 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	881
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	882 /* old number of used digits in c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	883 oldused = c->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	884
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	885 /* sign always positive */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	886 c->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	887
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	888 /* source alias */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	889 tmpa = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	890
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	891 /* destination alias */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	892 tmpc = c->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	893
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	894 /* if a is positive */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	895 if (a->sign == MP_ZPOS) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	896 /* add digit, after this we're propagating
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	897 * the carry.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	898 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	899 tmpc = tmpa++ + b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	900 mu = *tmpc >> DIGIT_BIT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	901 *tmpc++ &= MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	902
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	903 /* now handle rest of the digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	904 for (ix = 1; ix < a->used; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	905 tmpc = tmpa++ + mu;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	906 mu = *tmpc >> DIGIT_BIT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	907 *tmpc++ &= MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	908 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	909 /* set final carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	910 ix++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	911 *tmpc++ = mu;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	912
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	913 /* setup size */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	914 c->used = a->used + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	915 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	916 /* a was negative and \|a\| < b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	917 c->used = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	918
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	919 /* the result is a single digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	920 if (a->used == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	921 *tmpc++ = b - a->dp[0];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	922 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	923 *tmpc++ = b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	924 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	925
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	926 /* setup count so the clearing of oldused
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	927 * can fall through correctly
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	928 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	929 ix = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	930 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	931
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	932 /* now zero to oldused */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	933 while (ix++ < oldused) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	934 *tmpc++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	935 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	936 mp_clamp(c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	937
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	938 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	939 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	940
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	941 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	942
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	943 /* End: bn_mp_add_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	944
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	945 /* Start: bn_mp_addmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	946 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	947 #ifdef BN_MP_ADDMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	948 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	949 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	950 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	951 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	952 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	953 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	954 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	955 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	956 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	957 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	958 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	959 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	960 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	961 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	962
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	963 /* d = a + b (mod c) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	964 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	965 mp_addmod (mp_int * a, mp_int * b, mp_int * c, mp_int * d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	966 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	967 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	968 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	969
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	970 if ((res = mp_init (&t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	971 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	972 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	973
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	974 if ((res = mp_add (a, b, &t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	975 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	976 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	977 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	978 res = mp_mod (&t, c, d);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	979 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	980 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	981 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	982 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	983
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	984 /* End: bn_mp_addmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	985
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	986 /* Start: bn_mp_and.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	987 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	988 #ifdef BN_MP_AND_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	989 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	990 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	991 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	992 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	993 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	994 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	995 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	996 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	997 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	998 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	999 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1000 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1001 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1002 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1003
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1004 /* AND two ints together */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1005 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1006 mp_and (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1007 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1008 int res, ix, px;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1009 mp_int t, *x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1010
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1011 if (a->used > b->used) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1012 if ((res = mp_init_copy (&t, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1013 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1014 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1015 px = b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1016 x = b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1017 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1018 if ((res = mp_init_copy (&t, b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1019 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1020 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1021 px = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1022 x = a;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1023 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1024
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1025 for (ix = 0; ix < px; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1026 t.dp[ix] &= x->dp[ix];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1027 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1028
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1029 /* zero digits above the last from the smallest mp_int */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1030 for (; ix < t.used; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1031 t.dp[ix] = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1032 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1033
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1034 mp_clamp (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1035 mp_exch (c, &t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1036 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1037 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1038 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1039 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1040
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1041 /* End: bn_mp_and.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1042
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1043 /* Start: bn_mp_clamp.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1044 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1045 #ifdef BN_MP_CLAMP_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1046 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1047 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1048 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1049 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1050 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1051 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1052 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1053 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1054 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1055 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1056 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1057 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1058 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1059 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1060
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1061 /* trim unused digits
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1062 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1063 * This is used to ensure that leading zero digits are
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1064 * trimed and the leading "used" digit will be non-zero
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1065 * Typically very fast. Also fixes the sign if there
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1066 * are no more leading digits
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1067 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1068 void
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1069 mp_clamp (mp_int * a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1070 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1071 /* decrease used while the most significant digit is
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1072 * zero.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1073 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1074 while (a->used > 0 && a->dp[a->used - 1] == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1075 --(a->used);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1076 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1077
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1078 /* reset the sign flag if used == 0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1079 if (a->used == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1080 a->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1081 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1082 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1083 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1084
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1085 /* End: bn_mp_clamp.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1086
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1087 /* Start: bn_mp_clear.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1088 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1089 #ifdef BN_MP_CLEAR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1090 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1091 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1092 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1093 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1094 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1095 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1096 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1097 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1098 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1099 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1100 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1101 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1102 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1103 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1104
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1105 /* clear one (frees) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1106 void
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1107 mp_clear (mp_int * a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1108 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1109 int i;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1110
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1111 /* only do anything if a hasn't been freed previously */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1112 if (a->dp != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1113 /* first zero the digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1114 for (i = 0; i < a->used; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1115 a->dp[i] = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1116 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1117
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1118 /* free ram */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1119 XFREE(a->dp);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1120
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1121 /* reset members to make debugging easier */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1122 a->dp = NULL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1123 a->alloc = a->used = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1124 a->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1125 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1126 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1127 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1128
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1129 /* End: bn_mp_clear.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1130
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1131 /* Start: bn_mp_clear_multi.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1132 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1133 #ifdef BN_MP_CLEAR_MULTI_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1134 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1135 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1136 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1137 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1138 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1139 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1140 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1141 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1142 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1143 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1144 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1145 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1146 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1147 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1148 #include <stdarg.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1149
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1150 void mp_clear_multi(mp_int *mp, ...)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1151 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1152 mp_int* next_mp = mp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1153 va_list args;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1154 va_start(args, mp);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1155 while (next_mp != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1156 mp_clear(next_mp);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1157 next_mp = va_arg(args, mp_int*);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1158 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1159 va_end(args);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1160 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1161 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1162
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1163 /* End: bn_mp_clear_multi.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1164
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1165 /* Start: bn_mp_cmp.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1166 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1167 #ifdef BN_MP_CMP_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1168 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1169 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1170 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1171 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1172 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1173 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1174 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1175 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1176 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1177 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1178 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1179 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1180 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1181 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1182
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1183 /* compare two ints (signed)*/
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1184 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1185 mp_cmp (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1186 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1187 /* compare based on sign */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1188 if (a->sign != b->sign) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1189 if (a->sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1190 return MP_LT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1191 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1192 return MP_GT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1193 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1194 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1195
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1196 /* compare digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1197 if (a->sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1198 /* if negative compare opposite direction */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1199 return mp_cmp_mag(b, a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1200 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1201 return mp_cmp_mag(a, b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1202 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1203 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1204 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1205
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1206 /* End: bn_mp_cmp.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1207
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1208 /* Start: bn_mp_cmp_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1209 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1210 #ifdef BN_MP_CMP_D_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1211 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1212 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1213 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1214 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1215 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1216 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1217 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1218 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1219 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1220 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1221 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1222 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1223 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1224 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1225
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1226 /* compare a digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1227 int mp_cmp_d(mp_int * a, mp_digit b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1228 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1229 /* compare based on sign */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1230 if (a->sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1231 return MP_LT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1232 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1233
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1234 /* compare based on magnitude */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1235 if (a->used > 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1236 return MP_GT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1237 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1238
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1239 /* compare the only digit of a to b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1240 if (a->dp[0] > b) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1241 return MP_GT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1242 } else if (a->dp[0] < b) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1243 return MP_LT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1244 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1245 return MP_EQ;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1246 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1247 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1248 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1249
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1250 /* End: bn_mp_cmp_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1251
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1252 /* Start: bn_mp_cmp_mag.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1253 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1254 #ifdef BN_MP_CMP_MAG_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1255 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1256 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1257 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1258 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1259 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1260 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1261 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1262 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1263 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1264 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1265 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1266 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1267 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1268 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1269
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1270 /* compare maginitude of two ints (unsigned) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1271 int mp_cmp_mag (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1272 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1273 int n;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1274 mp_digit tmpa, tmpb;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1275
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1276 /* compare based on # of non-zero digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1277 if (a->used > b->used) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1278 return MP_GT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1279 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1280
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1281 if (a->used < b->used) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1282 return MP_LT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1283 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1284
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1285 /* alias for a */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1286 tmpa = a->dp + (a->used - 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1287
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1288 /* alias for b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1289 tmpb = b->dp + (a->used - 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1290
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1291 /* compare based on digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1292 for (n = 0; n < a->used; ++n, --tmpa, --tmpb) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1293 if (tmpa > tmpb) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1294 return MP_GT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1295 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1296
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1297 if (tmpa < tmpb) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1298 return MP_LT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1299 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1300 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1301 return MP_EQ;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1302 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1303 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1304
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1305 /* End: bn_mp_cmp_mag.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1306
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1307 /* Start: bn_mp_cnt_lsb.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1308 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1309 #ifdef BN_MP_CNT_LSB_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1310 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1311 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1312 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1313 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1314 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1315 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1316 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1317 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1318 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1319 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1320 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1321 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1322 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1323 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1324
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1325 static const int lnz[16] = {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1326 4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1327 };
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1328
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1329 /* Counts the number of lsbs which are zero before the first zero bit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1330 int mp_cnt_lsb(mp_int *a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1331 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1332 int x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1333 mp_digit q, qq;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1334
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1335 /* easy out */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1336 if (mp_iszero(a) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1337 return 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1338 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1339
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1340 /* scan lower digits until non-zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1341 for (x = 0; x < a->used && a->dp[x] == 0; x++);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1342 q = a->dp[x];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1343 x *= DIGIT_BIT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1344
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1345 /* now scan this digit until a 1 is found */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1346 if ((q & 1) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1347 do {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1348 qq = q & 15;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1349 x += lnz[qq];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1350 q >>= 4;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1351 } while (qq == 0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1352 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1353 return x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1354 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1355
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1356 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1357
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1358 /* End: bn_mp_cnt_lsb.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1359
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1360 /* Start: bn_mp_copy.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1361 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1362 #ifdef BN_MP_COPY_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1363 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1364 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1365 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1366 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1367 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1368 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1369 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1370 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1371 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1372 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1373 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1374 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1375 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1376 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1377
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1378 /* copy, b = a */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1379 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1380 mp_copy (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1381 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1382 int res, n;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1383
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1384 /* if dst == src do nothing */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1385 if (a == b) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1386 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1387 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1388
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1389 /* grow dest */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1390 if (b->alloc < a->used) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1391 if ((res = mp_grow (b, a->used)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1392 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1393 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1394 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1395
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1396 /* zero b and copy the parameters over */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1397 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1398 register mp_digit tmpa, tmpb;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1399
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1400 /* pointer aliases */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1401
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1402 /* source */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1403 tmpa = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1404
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1405 /* destination */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1406 tmpb = b->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1407
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1408 /* copy all the digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1409 for (n = 0; n < a->used; n++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1410 tmpb++ = tmpa++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1411 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1412
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1413 /* clear high digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1414 for (; n < b->used; n++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1415 *tmpb++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1416 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1417 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1418
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1419 /* copy used count and sign */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1420 b->used = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1421 b->sign = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1422 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1423 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1424 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1425
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1426 /* End: bn_mp_copy.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1427
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1428 /* Start: bn_mp_count_bits.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1429 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1430 #ifdef BN_MP_COUNT_BITS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1431 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1432 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1433 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1434 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1435 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1436 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1437 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1438 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1439 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1440 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1441 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1442 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1443 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1444 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1445
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1446 /* returns the number of bits in an int */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1447 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1448 mp_count_bits (mp_int * a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1449 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1450 int r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1451 mp_digit q;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1452
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1453 /* shortcut */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1454 if (a->used == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1455 return 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1456 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1457
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1458 /* get number of digits and add that */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1459 r = (a->used - 1) * DIGIT_BIT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1460
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1461 /* take the last digit and count the bits in it */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1462 q = a->dp[a->used - 1];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1463 while (q > ((mp_digit) 0)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1464 ++r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1465 q >>= ((mp_digit) 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1466 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1467 return r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1468 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1469 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1470
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1471 /* End: bn_mp_count_bits.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1472
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1473 /* Start: bn_mp_div.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1474 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1475 #ifdef BN_MP_DIV_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1476 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1477 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1478 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1479 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1480 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1481 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1482 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1483 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1484 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1485 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1486 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1487 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1488 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1489 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1490
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1491 #ifdef BN_MP_DIV_SMALL
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1492
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1493 /* slower bit-bang division... also smaller */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1494 int mp_div(mp_int * a, mp_int * b, mp_int * c, mp_int * d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1495 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1496 mp_int ta, tb, tq, q;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1497 int res, n, n2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1498
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1499 /* is divisor zero ? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1500 if (mp_iszero (b) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1501 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1502 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1503
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1504 /* if a < b then q=0, r = a */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1505 if (mp_cmp_mag (a, b) == MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1506 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1507 res = mp_copy (a, d);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1508 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1509 res = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1510 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1511 if (c != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1512 mp_zero (c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1513 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1514 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1515 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1516
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1517 /* init our temps */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1518 if ((res = mp_init_multi(&ta, &tb, &tq, &q, NULL) != MP_OKAY)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1519 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1520 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1521
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1522
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1523 mp_set(&tq, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1524 n = mp_count_bits(a) - mp_count_bits(b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1525 if (((res = mp_abs(a, &ta)) != MP_OKAY) \|\|
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1526 ((res = mp_abs(b, &tb)) != MP_OKAY) \|\|
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1527 ((res = mp_mul_2d(&tb, n, &tb)) != MP_OKAY) \|\|
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1528 ((res = mp_mul_2d(&tq, n, &tq)) != MP_OKAY)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1529 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1530 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1531
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1532 while (n-- >= 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1533 if (mp_cmp(&tb, &ta) != MP_GT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1534 if (((res = mp_sub(&ta, &tb, &ta)) != MP_OKAY) \|\|
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1535 ((res = mp_add(&q, &tq, &q)) != MP_OKAY)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1536 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1537 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1538 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1539 if (((res = mp_div_2d(&tb, 1, &tb, NULL)) != MP_OKAY) \|\|
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1540 ((res = mp_div_2d(&tq, 1, &tq, NULL)) != MP_OKAY)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1541 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1542 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1543 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1544
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1545 /* now q == quotient and ta == remainder */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1546 n = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1547 n2 = (a->sign == b->sign ? MP_ZPOS : MP_NEG);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1548 if (c != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1549 mp_exch(c, &q);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1550 c->sign = (mp_iszero(c) == MP_YES) ? MP_ZPOS : n2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1551 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1552 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1553 mp_exch(d, &ta);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1554 d->sign = (mp_iszero(d) == MP_YES) ? MP_ZPOS : n;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1555 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1556 LBL_ERR:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1557 mp_clear_multi(&ta, &tb, &tq, &q, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1558 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1559 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1560
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1561 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1562
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1563 /* integer signed division.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1564 * c*b + d == a [e.g. a/b, c=quotient, d=remainder]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1565 * HAC pp.598 Algorithm 14.20
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1566 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1567 * Note that the description in HAC is horribly
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1568 * incomplete. For example, it doesn't consider
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1569 * the case where digits are removed from 'x' in
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1570 * the inner loop. It also doesn't consider the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1571 * case that y has fewer than three digits, etc..
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1572 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1573 * The overall algorithm is as described as
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1574 * 14.20 from HAC but fixed to treat these cases.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1575 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1576 int mp_div (mp_int * a, mp_int * b, mp_int * c, mp_int * d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1577 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1578 mp_int q, x, y, t1, t2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1579 int res, n, t, i, norm, neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1580
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1581 /* is divisor zero ? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1582 if (mp_iszero (b) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1583 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1584 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1585
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1586 /* if a < b then q=0, r = a */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1587 if (mp_cmp_mag (a, b) == MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1588 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1589 res = mp_copy (a, d);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1590 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1591 res = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1592 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1593 if (c != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1594 mp_zero (c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1595 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1596 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1597 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1598
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1599 if ((res = mp_init_size (&q, a->used + 2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1600 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1601 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1602 q.used = a->used + 2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1603
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1604 if ((res = mp_init (&t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1605 goto LBL_Q;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1606 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1607
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1608 if ((res = mp_init (&t2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1609 goto LBL_T1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1610 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1611
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1612 if ((res = mp_init_copy (&x, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1613 goto LBL_T2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1614 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1615
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1616 if ((res = mp_init_copy (&y, b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1617 goto LBL_X;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1618 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1619
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1620 /* fix the sign */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1621 neg = (a->sign == b->sign) ? MP_ZPOS : MP_NEG;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1622 x.sign = y.sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1623
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1624 /* normalize both x and y, ensure that y >= b/2, [b == 2*DIGIT_BIT] /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1625 norm = mp_count_bits(&y) % DIGIT_BIT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1626 if (norm < (int)(DIGIT_BIT-1)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1627 norm = (DIGIT_BIT-1) - norm;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1628 if ((res = mp_mul_2d (&x, norm, &x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1629 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1630 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1631 if ((res = mp_mul_2d (&y, norm, &y)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1632 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1633 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1634 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1635 norm = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1636 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1637
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1638 /* note hac does 0 based, so if used==5 then its 0,1,2,3,4, e.g. use 4 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1639 n = x.used - 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1640 t = y.used - 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1641
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1642 /* while (x >= ybn-t) do { q[n-t] += 1; x -= yb*{n-t} } /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1643 if ((res = mp_lshd (&y, n - t)) != MP_OKAY) { /* y = yb{n-t} /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1644 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1645 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1646
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1647 while (mp_cmp (&x, &y) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1648 ++(q.dp[n - t]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1649 if ((res = mp_sub (&x, &y, &x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1650 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1651 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1652 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1653
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1654 /* reset y by shifting it back down */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1655 mp_rshd (&y, n - t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1656
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1657 /* step 3. for i from n down to (t + 1) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1658 for (i = n; i >= (t + 1); i--) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1659 if (i > x.used) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1660 continue;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1661 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1662
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1663 /* step 3.1 if xi == yt then set q{i-t-1} to b-1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1664 * otherwise set q{i-t-1} to (xib + x{i-1})/yt /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1665 if (x.dp[i] == y.dp[t]) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1666 q.dp[i - t - 1] = ((((mp_digit)1) << DIGIT_BIT) - 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1667 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1668 mp_word tmp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1669 tmp = ((mp_word) x.dp[i]) << ((mp_word) DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1670 tmp \|= ((mp_word) x.dp[i - 1]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1671 tmp /= ((mp_word) y.dp[t]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1672 if (tmp > (mp_word) MP_MASK)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1673 tmp = MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1674 q.dp[i - t - 1] = (mp_digit) (tmp & (mp_word) (MP_MASK));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1675 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1676
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1677 /* while (q{i-t-1} * (yt * b + y{t-1})) >
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1678 xi * b*2 + xi-1 b + xi-2
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1679
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1680 do q{i-t-1} -= 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1681 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1682 q.dp[i - t - 1] = (q.dp[i - t - 1] + 1) & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1683 do {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1684 q.dp[i - t - 1] = (q.dp[i - t - 1] - 1) & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1685
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1686 /* find left hand */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1687 mp_zero (&t1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1688 t1.dp[0] = (t - 1 < 0) ? 0 : y.dp[t - 1];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1689 t1.dp[1] = y.dp[t];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1690 t1.used = 2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1691 if ((res = mp_mul_d (&t1, q.dp[i - t - 1], &t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1692 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1693 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1694
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1695 /* find right hand */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1696 t2.dp[0] = (i - 2 < 0) ? 0 : x.dp[i - 2];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1697 t2.dp[1] = (i - 1 < 0) ? 0 : x.dp[i - 1];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1698 t2.dp[2] = x.dp[i];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1699 t2.used = 3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1700 } while (mp_cmp_mag(&t1, &t2) == MP_GT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1701
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1702 /* step 3.3 x = x - q{i-t-1} * y * b*{i-t-1} /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1703 if ((res = mp_mul_d (&y, q.dp[i - t - 1], &t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1704 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1705 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1706
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1707 if ((res = mp_lshd (&t1, i - t - 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1708 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1709 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1710
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1711 if ((res = mp_sub (&x, &t1, &x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1712 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1713 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1714
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1715 /* if x < 0 then { x = x + yb{i-t-1}; q{i-t-1} -= 1; } /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1716 if (x.sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1717 if ((res = mp_copy (&y, &t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1718 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1719 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1720 if ((res = mp_lshd (&t1, i - t - 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1721 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1722 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1723 if ((res = mp_add (&x, &t1, &x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1724 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1725 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1726
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1727 q.dp[i - t - 1] = (q.dp[i - t - 1] - 1UL) & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1728 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1729 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1730
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1731 /* now q is the quotient and x is the remainder
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1732 * [which we have to normalize]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1733 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1734
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1735 /* get sign before writing to c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1736 x.sign = x.used == 0 ? MP_ZPOS : a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1737
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1738 if (c != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1739 mp_clamp (&q);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1740 mp_exch (&q, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1741 c->sign = neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1742 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1743
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1744 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1745 mp_div_2d (&x, norm, &x, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1746 mp_exch (&x, d);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1747 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1748
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1749 res = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1750
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1751 LBL_Y:mp_clear (&y);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1752 LBL_X:mp_clear (&x);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1753 LBL_T2:mp_clear (&t2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1754 LBL_T1:mp_clear (&t1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1755 LBL_Q:mp_clear (&q);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1756 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1757 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1758
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1759 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1760
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1761 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1762
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1763 /* End: bn_mp_div.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1764
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1765 /* Start: bn_mp_div_2.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1766 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1767 #ifdef BN_MP_DIV_2_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1768 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1769 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1770 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1771 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1772 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1773 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1774 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1775 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1776 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1777 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1778 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1779 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1780 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1781 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1782
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1783 /* b = a/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1784 int mp_div_2(mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1785 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1786 int x, res, oldused;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1787
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1788 /* copy */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1789 if (b->alloc < a->used) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1790 if ((res = mp_grow (b, a->used)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1791 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1792 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1793 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1794
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1795 oldused = b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1796 b->used = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1797 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1798 register mp_digit r, rr, tmpa, tmpb;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1799
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1800 /* source alias */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1801 tmpa = a->dp + b->used - 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1802
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1803 /* dest alias */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1804 tmpb = b->dp + b->used - 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1805
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1806 /* carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1807 r = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1808 for (x = b->used - 1; x >= 0; x--) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1809 /* get the carry for the next iteration */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1810 rr = *tmpa & 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1811
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1812 /* shift the current digit, add in carry and store */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1813 tmpb-- = (tmpa-- >> 1) \| (r << (DIGIT_BIT - 1));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1814
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1815 /* forward carry to next iteration */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1816 r = rr;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1817 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1818
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1819 /* zero excess digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1820 tmpb = b->dp + b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1821 for (x = b->used; x < oldused; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1822 *tmpb++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1823 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1824 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1825 b->sign = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1826 mp_clamp (b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1827 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1828 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1829 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1830
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1831 /* End: bn_mp_div_2.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1832
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1833 /* Start: bn_mp_div_2d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1834 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1835 #ifdef BN_MP_DIV_2D_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1836 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1837 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1838 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1839 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1840 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1841 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1842 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1843 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1844 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1845 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1846 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1847 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1848 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1849 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1850
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1851 /* shift right by a certain bit count (store quotient in c, optional remainder in d) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1852 int mp_div_2d (mp_int * a, int b, mp_int * c, mp_int * d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1853 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1854 mp_digit D, r, rr;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1855 int x, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1856 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1857
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1858
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1859 /* if the shift count is <= 0 then we do no work */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1860 if (b <= 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1861 res = mp_copy (a, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1862 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1863 mp_zero (d);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1864 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1865 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1866 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1867
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1868 if ((res = mp_init (&t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1869 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1870 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1871
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1872 /* get the remainder */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1873 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1874 if ((res = mp_mod_2d (a, b, &t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1875 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1876 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1877 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1878 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1879
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1880 /* copy */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1881 if ((res = mp_copy (a, c)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1882 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1883 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1884 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1885
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1886 /* shift by as many digits in the bit count */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1887 if (b >= (int)DIGIT_BIT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1888 mp_rshd (c, b / DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1889 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1890
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1891 /* shift any bit count < DIGIT_BIT */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1892 D = (mp_digit) (b % DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1893 if (D != 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1894 register mp_digit *tmpc, mask, shift;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1895
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1896 /* mask */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1897 mask = (((mp_digit)1) << D) - 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1898
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1899 /* shift for lsb */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1900 shift = DIGIT_BIT - D;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1901
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1902 /* alias */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1903 tmpc = c->dp + (c->used - 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1904
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1905 /* carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1906 r = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1907 for (x = c->used - 1; x >= 0; x--) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1908 /* get the lower bits of this word in a temp */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1909 rr = *tmpc & mask;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1910
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1911 /* shift the current word and mix in the carry bits from the previous word */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1912 tmpc = (tmpc >> D) \| (r << shift);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1913 --tmpc;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1914
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1915 /* set the carry to the carry bits of the current word found above */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1916 r = rr;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1917 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1918 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1919 mp_clamp (c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1920 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1921 mp_exch (&t, d);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1922 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1923 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1924 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1925 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1926 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1927
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1928 /* End: bn_mp_div_2d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1929
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1930 /* Start: bn_mp_div_3.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1931 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1932 #ifdef BN_MP_DIV_3_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1933 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1934 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1935 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1936 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1937 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1938 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1939 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1940 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1941 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1942 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1943 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1944 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1945 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1946 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1947
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1948 /* divide by three (based on routine from MPI and the GMP manual) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1949 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1950 mp_div_3 (mp_int * a, mp_int c, mp_digit d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1951 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1952 mp_int q;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1953 mp_word w, t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1954 mp_digit b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1955 int res, ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1956
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1957 /* b = 2*DIGIT_BIT / 3 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1958 b = (((mp_word)1) << ((mp_word)DIGIT_BIT)) / ((mp_word)3);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1959
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1960 if ((res = mp_init_size(&q, a->used)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1961 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1962 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1963
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1964 q.used = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1965 q.sign = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1966 w = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1967 for (ix = a->used - 1; ix >= 0; ix--) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1968 w = (w << ((mp_word)DIGIT_BIT)) \| ((mp_word)a->dp[ix]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1969
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1970 if (w >= 3) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1971 /* multiply w by [1/3] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1972 t = (w * ((mp_word)b)) >> ((mp_word)DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1973
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1974 /* now subtract 3 * [w/3] from w, to get the remainder */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1975 w -= t+t+t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1976
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1977 /* fixup the remainder as required since
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1978 * the optimization is not exact.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1979 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1980 while (w >= 3) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1981 t += 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1982 w -= 3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1983 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1984 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1985 t = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1986 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1987 q.dp[ix] = (mp_digit)t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1988 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1989
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1990 /* [optional] store the remainder */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1991 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1992 *d = (mp_digit)w;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1993 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1994
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1995 /* [optional] store the quotient */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1996 if (c != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1997 mp_clamp(&q);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1998 mp_exch(&q, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	1999 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2000 mp_clear(&q);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2001
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2002 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2003 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2004
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2005 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2006
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2007 /* End: bn_mp_div_3.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2008
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2009 /* Start: bn_mp_div_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2010 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2011 #ifdef BN_MP_DIV_D_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2012 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2013 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2014 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2015 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2016 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2017 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2018 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2019 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2020 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2021 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2022 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2023 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2024 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2025 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2026
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2027 static int s_is_power_of_two(mp_digit b, int *p)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2028 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2029 int x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2030
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2031 for (x = 1; x < DIGIT_BIT; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2032 if (b == (((mp_digit)1)<<x)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2033 *p = x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2034 return 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2035 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2036 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2037 return 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2038 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2039
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2040 /* single digit division (based on routine from MPI) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2041 int mp_div_d (mp_int * a, mp_digit b, mp_int * c, mp_digit * d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2042 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2043 mp_int q;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2044 mp_word w;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2045 mp_digit t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2046 int res, ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2047
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2048 /* cannot divide by zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2049 if (b == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2050 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2051 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2052
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2053 /* quick outs */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2054 if (b == 1 \|\| mp_iszero(a) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2055 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2056 *d = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2057 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2058 if (c != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2059 return mp_copy(a, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2060 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2061 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2062 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2063
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2064 /* power of two ? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2065 if (s_is_power_of_two(b, &ix) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2066 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2067 *d = a->dp[0] & ((((mp_digit)1)<<ix) - 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2068 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2069 if (c != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2070 return mp_div_2d(a, ix, c, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2071 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2072 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2073 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2074
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2075 #ifdef BN_MP_DIV_3_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2076 /* three? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2077 if (b == 3) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2078 return mp_div_3(a, c, d);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2079 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2080 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2081
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2082 /* no easy answer [c'est la vie]. Just division */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2083 if ((res = mp_init_size(&q, a->used)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2084 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2085 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2086
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2087 q.used = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2088 q.sign = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2089 w = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2090 for (ix = a->used - 1; ix >= 0; ix--) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2091 w = (w << ((mp_word)DIGIT_BIT)) \| ((mp_word)a->dp[ix]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2092
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2093 if (w >= b) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2094 t = (mp_digit)(w / b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2095 w -= ((mp_word)t) * ((mp_word)b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2096 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2097 t = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2098 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2099 q.dp[ix] = (mp_digit)t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2100 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2101
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2102 if (d != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2103 *d = (mp_digit)w;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2104 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2105
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2106 if (c != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2107 mp_clamp(&q);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2108 mp_exch(&q, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2109 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2110 mp_clear(&q);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2111
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2112 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2113 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2114
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2115 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2116
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2117 /* End: bn_mp_div_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2118
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2119 /* Start: bn_mp_dr_is_modulus.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2120 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2121 #ifdef BN_MP_DR_IS_MODULUS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2122 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2123 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2124 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2125 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2126 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2127 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2128 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2129 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2130 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2131 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2132 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2133 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2134 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2135 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2136
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2137 /* determines if a number is a valid DR modulus */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2138 int mp_dr_is_modulus(mp_int *a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2139 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2140 int ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2141
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2142 /* must be at least two digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2143 if (a->used < 2) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2144 return 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2145 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2146
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2147 /* must be of the form b**k - a [a <= b] so all
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2148 * but the first digit must be equal to -1 (mod b).
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2149 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2150 for (ix = 1; ix < a->used; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2151 if (a->dp[ix] != MP_MASK) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2152 return 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2153 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2154 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2155 return 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2156 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2157
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2158 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2159
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2160 /* End: bn_mp_dr_is_modulus.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2161
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2162 /* Start: bn_mp_dr_reduce.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2163 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2164 #ifdef BN_MP_DR_REDUCE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2165 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2166 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2167 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2168 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2169 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2170 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2171 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2172 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2173 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2174 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2175 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2176 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2177 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2178 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2179
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2180 /* reduce "x" in place modulo "n" using the Diminished Radix algorithm.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2181 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2182 * Based on algorithm from the paper
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2183 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2184 * "Generating Efficient Primes for Discrete Log Cryptosystems"
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2185 * Chae Hoon Lim, Pil Joong Lee,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2186 * POSTECH Information Research Laboratories
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2187 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2188 * The modulus must be of a special format [see manual]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2189 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2190 * Has been modified to use algorithm 7.10 from the LTM book instead
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2191 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2192 * Input x must be in the range 0 <= x <= (n-1)**2
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2193 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2194 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2195 mp_dr_reduce (mp_int * x, mp_int * n, mp_digit k)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2196 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2197 int err, i, m;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2198 mp_word r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2199 mp_digit mu, tmpx1, tmpx2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2200
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2201 /* m = digits in modulus */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2202 m = n->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2203
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2204 /* ensure that "x" has at least 2m digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2205 if (x->alloc < m + m) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2206 if ((err = mp_grow (x, m + m)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2207 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2208 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2209 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2210
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2211 /* top of loop, this is where the code resumes if
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2212 * another reduction pass is required.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2213 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2214 top:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2215 /* aliases for digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2216 /* alias for lower half of x */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2217 tmpx1 = x->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2218
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2219 /* alias for upper half of x, or x/B*m /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2220 tmpx2 = x->dp + m;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2221
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2222 /* set carry to zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2223 mu = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2224
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2225 /* compute (x mod B*m) + k [x/B*m] inline and inplace /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2226 for (i = 0; i < m; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2227 r = ((mp_word)tmpx2++) ((mp_word)k) + *tmpx1 + mu;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2228 *tmpx1++ = (mp_digit)(r & MP_MASK);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2229 mu = (mp_digit)(r >> ((mp_word)DIGIT_BIT));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2230 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2231
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2232 /* set final carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2233 *tmpx1++ = mu;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2234
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2235 /* zero words above m */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2236 for (i = m + 1; i < x->used; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2237 *tmpx1++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2238 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2239
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2240 /* clamp, sub and return */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2241 mp_clamp (x);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2242
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2243 /* if x >= n then subtract and reduce again
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2244 * Each successive "recursion" makes the input smaller and smaller.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2245 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2246 if (mp_cmp_mag (x, n) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2247 s_mp_sub(x, n, x);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2248 goto top;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2249 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2250 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2251 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2252 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2253
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2254 /* End: bn_mp_dr_reduce.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2255
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2256 /* Start: bn_mp_dr_setup.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2257 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2258 #ifdef BN_MP_DR_SETUP_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2259 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2260 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2261 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2262 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2263 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2264 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2265 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2266 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2267 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2268 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2269 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2270 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2271 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2272 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2273
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2274 /* determines the setup value */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2275 void mp_dr_setup(mp_int a, mp_digit d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2276 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2277 /* the casts are required if DIGIT_BIT is one less than
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2278 * the number of bits in a mp_digit [e.g. DIGIT_BIT==31]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2279 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2280 *d = (mp_digit)((((mp_word)1) << ((mp_word)DIGIT_BIT)) -
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2281 ((mp_word)a->dp[0]));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2282 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2283
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2284 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2285
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2286 /* End: bn_mp_dr_setup.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2287
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2288 /* Start: bn_mp_exch.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2289 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2290 #ifdef BN_MP_EXCH_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2291 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2292 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2293 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2294 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2295 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2296 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2297 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2298 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2299 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2300 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2301 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2302 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2303 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2304 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2305
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2306 /* swap the elements of two integers, for cases where you can't simply swap the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2307 * mp_int pointers around
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2308 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2309 void
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2310 mp_exch (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2311 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2312 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2313
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2314 t = *a;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2315 a = b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2316 *b = t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2317 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2318 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2319
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2320 /* End: bn_mp_exch.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2321
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2322 /* Start: bn_mp_expt_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2323 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2324 #ifdef BN_MP_EXPT_D_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2325 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2326 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2327 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2328 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2329 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2330 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2331 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2332 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2333 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2334 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2335 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2336 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2337 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2338 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2339
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2340 /* calculate c = a*b using a square-multiply algorithm /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2341 int mp_expt_d (mp_int * a, mp_digit b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2342 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2343 int res, x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2344 mp_int g;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2345
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2346 if ((res = mp_init_copy (&g, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2347 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2348 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2349
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2350 /* set initial result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2351 mp_set (c, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2352
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2353 for (x = 0; x < (int) DIGIT_BIT; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2354 /* square */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2355 if ((res = mp_sqr (c, c)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2356 mp_clear (&g);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2357 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2358 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2359
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2360 /* if the bit is set multiply */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2361 if ((b & (mp_digit) (((mp_digit)1) << (DIGIT_BIT - 1))) != 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2362 if ((res = mp_mul (c, &g, c)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2363 mp_clear (&g);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2364 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2365 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2366 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2367
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2368 /* shift to next bit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2369 b <<= 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2370 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2371
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2372 mp_clear (&g);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2373 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2374 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2375 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2376
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2377 /* End: bn_mp_expt_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2378
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2379 /* Start: bn_mp_exptmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2380 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2381 #ifdef BN_MP_EXPTMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2382 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2383 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2384 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2385 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2386 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2387 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2388 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2389 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2390 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2391 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2392 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2393 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2394 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2395 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2396
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2397
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2398 /* this is a shell function that calls either the normal or Montgomery
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2399 * exptmod functions. Originally the call to the montgomery code was
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2400 * embedded in the normal function but that wasted alot of stack space
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2401 * for nothing (since 99% of the time the Montgomery code would be called)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2402 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2403 int mp_exptmod (mp_int * G, mp_int * X, mp_int * P, mp_int * Y)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2404 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2405 int dr;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2406
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2407 /* modulus P must be positive */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2408 if (P->sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2409 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2410 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2411
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2412 /* if exponent X is negative we have to recurse */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2413 if (X->sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2414 #ifdef BN_MP_INVMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2415 mp_int tmpG, tmpX;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2416 int err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2417
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2418 /* first compute 1/G mod P */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2419 if ((err = mp_init(&tmpG)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2420 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2421 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2422 if ((err = mp_invmod(G, P, &tmpG)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2423 mp_clear(&tmpG);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2424 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2425 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2426
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2427 /* now get \|X\| */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2428 if ((err = mp_init(&tmpX)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2429 mp_clear(&tmpG);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2430 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2431 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2432 if ((err = mp_abs(X, &tmpX)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2433 mp_clear_multi(&tmpG, &tmpX, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2434 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2435 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2436
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2437 /* and now compute (1/G)\|X\| instead of GX [X < 0] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2438 err = mp_exptmod(&tmpG, &tmpX, P, Y);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2439 mp_clear_multi(&tmpG, &tmpX, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2440 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2441 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2442 /* no invmod */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2443 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2444 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2445 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2446
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2447 /* modified diminished radix reduction */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2448 #if defined(BN_MP_REDUCE_IS_2K_L_C) && defined(BN_MP_REDUCE_2K_L_C)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2449 if (mp_reduce_is_2k_l(P) == MP_YES) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2450 return s_mp_exptmod(G, X, P, Y, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2451 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2452 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2453
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2454 #ifdef BN_MP_DR_IS_MODULUS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2455 /* is it a DR modulus? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2456 dr = mp_dr_is_modulus(P);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2457 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2458 /* default to no */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2459 dr = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2460 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2461
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2462 #ifdef BN_MP_REDUCE_IS_2K_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2463 /* if not, is it a unrestricted DR modulus? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2464 if (dr == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2465 dr = mp_reduce_is_2k(P) << 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2466 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2467 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2468
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2469 /* if the modulus is odd or dr != 0 use the montgomery method */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2470 #ifdef BN_MP_EXPTMOD_FAST_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2471 if (mp_isodd (P) == 1 \|\| dr != 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2472 return mp_exptmod_fast (G, X, P, Y, dr);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2473 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2474 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2475 #ifdef BN_S_MP_EXPTMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2476 /* otherwise use the generic Barrett reduction technique */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2477 return s_mp_exptmod (G, X, P, Y, 0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2478 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2479 /* no exptmod for evens */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2480 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2481 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2482 #ifdef BN_MP_EXPTMOD_FAST_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2483 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2484 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2485 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2486
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2487 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2488
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2489 /* End: bn_mp_exptmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2490
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2491 /* Start: bn_mp_exptmod_fast.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2492 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2493 #ifdef BN_MP_EXPTMOD_FAST_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2494 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2495 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2496 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2497 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2498 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2499 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2500 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2501 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2502 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2503 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2504 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2505 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2506 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2507 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2508
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2509 /* computes Y == G**X mod P, HAC pp.616, Algorithm 14.85
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2510 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2511 * Uses a left-to-right k-ary sliding window to compute the modular exponentiation.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2512 * The value of k changes based on the size of the exponent.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2513 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2514 * Uses Montgomery or Diminished Radix reduction [whichever appropriate]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2515 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2516
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2517 #ifdef MP_LOW_MEM
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2518 #define TAB_SIZE 32
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2519 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2520 #define TAB_SIZE 256
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2521 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2522
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2523 int mp_exptmod_fast (mp_int * G, mp_int * X, mp_int * P, mp_int * Y, int redmode)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2524 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2525 mp_int M[TAB_SIZE], res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2526 mp_digit buf, mp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2527 int err, bitbuf, bitcpy, bitcnt, mode, digidx, x, y, winsize;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2528
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2529 /* use a pointer to the reduction algorithm. This allows us to use
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2530 * one of many reduction algorithms without modding the guts of
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2531 * the code with if statements everywhere.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2532 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2533 int (redux)(mp_int,mp_int*,mp_digit);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2534
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2535 /* find window size */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2536 x = mp_count_bits (X);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2537 if (x <= 7) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2538 winsize = 2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2539 } else if (x <= 36) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2540 winsize = 3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2541 } else if (x <= 140) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2542 winsize = 4;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2543 } else if (x <= 450) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2544 winsize = 5;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2545 } else if (x <= 1303) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2546 winsize = 6;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2547 } else if (x <= 3529) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2548 winsize = 7;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2549 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2550 winsize = 8;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2551 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2552
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2553 #ifdef MP_LOW_MEM
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2554 if (winsize > 5) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2555 winsize = 5;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2556 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2557 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2558
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2559 /* init M array */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2560 /* init first cell */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2561 if ((err = mp_init(&M[1])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2562 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2563 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2564
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2565 /* now init the second half of the array */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2566 for (x = 1<<(winsize-1); x < (1 << winsize); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2567 if ((err = mp_init(&M[x])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2568 for (y = 1<<(winsize-1); y < x; y++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2569 mp_clear (&M[y]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2570 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2571 mp_clear(&M[1]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2572 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2573 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2574 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2575
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2576 /* determine and setup reduction code */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2577 if (redmode == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2578 #ifdef BN_MP_MONTGOMERY_SETUP_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2579 /* now setup montgomery */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2580 if ((err = mp_montgomery_setup (P, &mp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2581 goto LBL_M;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2582 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2583 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2584 err = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2585 goto LBL_M;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2586 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2587
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2588 /* automatically pick the comba one if available (saves quite a few calls/ifs) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2589 #ifdef BN_FAST_MP_MONTGOMERY_REDUCE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2590 if (((P->used * 2 + 1) < MP_WARRAY) &&
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2591 P->used < (1 << ((CHAR_BIT * sizeof (mp_word)) - (2 * DIGIT_BIT)))) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2592 redux = fast_mp_montgomery_reduce;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2593 } else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2594 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2595 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2596 #ifdef BN_MP_MONTGOMERY_REDUCE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2597 /* use slower baseline Montgomery method */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2598 redux = mp_montgomery_reduce;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2599 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2600 err = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2601 goto LBL_M;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2602 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2603 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2604 } else if (redmode == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2605 #if defined(BN_MP_DR_SETUP_C) && defined(BN_MP_DR_REDUCE_C)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2606 /* setup DR reduction for moduli of the form B*k - b /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2607 mp_dr_setup(P, &mp);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2608 redux = mp_dr_reduce;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2609 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2610 err = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2611 goto LBL_M;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2612 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2613 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2614 #if defined(BN_MP_REDUCE_2K_SETUP_C) && defined(BN_MP_REDUCE_2K_C)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2615 /* setup DR reduction for moduli of the form 2*k - b /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2616 if ((err = mp_reduce_2k_setup(P, &mp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2617 goto LBL_M;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2618 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2619 redux = mp_reduce_2k;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2620 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2621 err = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2622 goto LBL_M;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2623 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2624 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2625
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2626 /* setup result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2627 if ((err = mp_init (&res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2628 goto LBL_M;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2629 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2630
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2631 /* create M table
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2632 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2633
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2634 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2635 * The first half of the table is not computed though accept for M[0] and M[1]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2636 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2637
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2638 if (redmode == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2639 #ifdef BN_MP_MONTGOMERY_CALC_NORMALIZATION_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2640 /* now we need R mod m */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2641 if ((err = mp_montgomery_calc_normalization (&res, P)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2642 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2643 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2644 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2645 err = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2646 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2647 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2648
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2649 /* now set M[1] to G * R mod m */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2650 if ((err = mp_mulmod (G, &res, P, &M[1])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2651 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2652 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2653 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2654 mp_set(&res, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2655 if ((err = mp_mod(G, P, &M[1])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2656 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2657 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2658 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2659
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2660 /* compute the value at M[1<<(winsize-1)] by squaring M[1] (winsize-1) times */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2661 if ((err = mp_copy (&M[1], &M[1 << (winsize - 1)])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2662 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2663 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2664
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2665 for (x = 0; x < (winsize - 1); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2666 if ((err = mp_sqr (&M[1 << (winsize - 1)], &M[1 << (winsize - 1)])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2667 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2668 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2669 if ((err = redux (&M[1 << (winsize - 1)], P, mp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2670 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2671 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2672 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2673
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2674 /* create upper table */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2675 for (x = (1 << (winsize - 1)) + 1; x < (1 << winsize); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2676 if ((err = mp_mul (&M[x - 1], &M[1], &M[x])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2677 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2678 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2679 if ((err = redux (&M[x], P, mp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2680 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2681 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2682 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2683
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2684 /* set initial mode and bit cnt */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2685 mode = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2686 bitcnt = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2687 buf = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2688 digidx = X->used - 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2689 bitcpy = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2690 bitbuf = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2691
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2692 for (;;) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2693 /* grab next digit as required */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2694 if (--bitcnt == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2695 /* if digidx == -1 we are out of digits so break */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2696 if (digidx == -1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2697 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2698 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2699 /* read next digit and reset bitcnt */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2700 buf = X->dp[digidx--];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2701 bitcnt = (int)DIGIT_BIT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2702 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2703
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2704 /* grab the next msb from the exponent */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2705 y = (mp_digit)(buf >> (DIGIT_BIT - 1)) & 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2706 buf <<= (mp_digit)1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2707
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2708 /* if the bit is zero and mode == 0 then we ignore it
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2709 * These represent the leading zero bits before the first 1 bit
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2710 * in the exponent. Technically this opt is not required but it
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2711 * does lower the # of trivial squaring/reductions used
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2712 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2713 if (mode == 0 && y == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2714 continue;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2715 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2716
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2717 /* if the bit is zero and mode == 1 then we square */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2718 if (mode == 1 && y == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2719 if ((err = mp_sqr (&res, &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2720 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2721 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2722 if ((err = redux (&res, P, mp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2723 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2724 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2725 continue;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2726 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2727
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2728 /* else we add it to the window */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2729 bitbuf \|= (y << (winsize - ++bitcpy));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2730 mode = 2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2731
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2732 if (bitcpy == winsize) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2733 /* ok window is filled so square as required and multiply */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2734 /* square first */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2735 for (x = 0; x < winsize; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2736 if ((err = mp_sqr (&res, &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2737 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2738 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2739 if ((err = redux (&res, P, mp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2740 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2741 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2742 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2743
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2744 /* then multiply */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2745 if ((err = mp_mul (&res, &M[bitbuf], &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2746 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2747 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2748 if ((err = redux (&res, P, mp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2749 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2750 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2751
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2752 /* empty window and reset */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2753 bitcpy = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2754 bitbuf = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2755 mode = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2756 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2757 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2758
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2759 /* if bits remain then square/multiply */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2760 if (mode == 2 && bitcpy > 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2761 /* square then multiply if the bit is set */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2762 for (x = 0; x < bitcpy; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2763 if ((err = mp_sqr (&res, &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2764 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2765 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2766 if ((err = redux (&res, P, mp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2767 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2768 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2769
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2770 /* get next bit of the window */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2771 bitbuf <<= 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2772 if ((bitbuf & (1 << winsize)) != 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2773 /* then multiply */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2774 if ((err = mp_mul (&res, &M[1], &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2775 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2776 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2777 if ((err = redux (&res, P, mp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2778 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2779 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2780 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2781 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2782 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2783
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2784 if (redmode == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2785 /* fixup result if Montgomery reduction is used
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2786 * recall that any value in a Montgomery system is
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2787 * actually multiplied by R mod n. So we have
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2788 * to reduce one more time to cancel out the factor
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2789 * of R.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2790 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2791 if ((err = redux(&res, P, mp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2792 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2793 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2794 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2795
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2796 /* swap res with Y */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2797 mp_exch (&res, Y);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2798 err = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2799 LBL_RES:mp_clear (&res);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2800 LBL_M:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2801 mp_clear(&M[1]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2802 for (x = 1<<(winsize-1); x < (1 << winsize); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2803 mp_clear (&M[x]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2804 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2805 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2806 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2807 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2808
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2809
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2810 /* End: bn_mp_exptmod_fast.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2811
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2812 /* Start: bn_mp_exteuclid.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2813 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2814 #ifdef BN_MP_EXTEUCLID_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2815 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2816 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2817 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2818 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2819 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2820 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2821 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2822 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2823 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2824 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2825 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2826 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2827 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2828 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2829
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2830 /* Extended euclidean algorithm of (a, b) produces
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2831 au1 + bu2 = u3
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2832 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2833 int mp_exteuclid(mp_int a, mp_int b, mp_int U1, mp_int U2, mp_int *U3)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2834 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2835 mp_int u1,u2,u3,v1,v2,v3,t1,t2,t3,q,tmp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2836 int err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2837
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2838 if ((err = mp_init_multi(&u1, &u2, &u3, &v1, &v2, &v3, &t1, &t2, &t3, &q, &tmp, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2839 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2840 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2841
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2842 /* initialize, (u1,u2,u3) = (1,0,a) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2843 mp_set(&u1, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2844 if ((err = mp_copy(a, &u3)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2845
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2846 /* initialize, (v1,v2,v3) = (0,1,b) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2847 mp_set(&v2, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2848 if ((err = mp_copy(b, &v3)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2849
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2850 /* loop while v3 != 0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2851 while (mp_iszero(&v3) == MP_NO) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2852 /* q = u3/v3 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2853 if ((err = mp_div(&u3, &v3, &q, NULL)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2854
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2855 /* (t1,t2,t3) = (u1,u2,u3) - (v1,v2,v3)q */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2856 if ((err = mp_mul(&v1, &q, &tmp)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2857 if ((err = mp_sub(&u1, &tmp, &t1)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2858 if ((err = mp_mul(&v2, &q, &tmp)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2859 if ((err = mp_sub(&u2, &tmp, &t2)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2860 if ((err = mp_mul(&v3, &q, &tmp)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2861 if ((err = mp_sub(&u3, &tmp, &t3)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2862
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2863 /* (u1,u2,u3) = (v1,v2,v3) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2864 if ((err = mp_copy(&v1, &u1)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2865 if ((err = mp_copy(&v2, &u2)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2866 if ((err = mp_copy(&v3, &u3)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2867
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2868 /* (v1,v2,v3) = (t1,t2,t3) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2869 if ((err = mp_copy(&t1, &v1)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2870 if ((err = mp_copy(&t2, &v2)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2871 if ((err = mp_copy(&t3, &v3)) != MP_OKAY) { goto _ERR; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2872 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2873
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2874 /* make sure U3 >= 0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2875 if (u3.sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2876 mp_neg(&u1, &u1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2877 mp_neg(&u2, &u2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2878 mp_neg(&u3, &u3);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2879 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2880
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2881 /* copy result out */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2882 if (U1 != NULL) { mp_exch(U1, &u1); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2883 if (U2 != NULL) { mp_exch(U2, &u2); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2884 if (U3 != NULL) { mp_exch(U3, &u3); }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2885
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2886 err = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2887 _ERR: mp_clear_multi(&u1, &u2, &u3, &v1, &v2, &v3, &t1, &t2, &t3, &q, &tmp, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2888 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2889 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2890 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2891
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2892 /* End: bn_mp_exteuclid.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2893
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2894 /* Start: bn_mp_fread.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2895 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2896 #ifdef BN_MP_FREAD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2897 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2898 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2899 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2900 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2901 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2902 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2903 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2904 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2905 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2906 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2907 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2908 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2909 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2910 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2911
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2912 /* read a bigint from a file stream in ASCII */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2913 int mp_fread(mp_int a, int radix, FILE stream)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2914 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2915 int err, ch, neg, y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2916
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2917 /* clear a */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2918 mp_zero(a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2919
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2920 /* if first digit is - then set negative */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2921 ch = fgetc(stream);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2922 if (ch == '-') {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2923 neg = MP_NEG;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2924 ch = fgetc(stream);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2925 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2926 neg = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2927 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2928
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2929 for (;;) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2930 /* find y in the radix map */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2931 for (y = 0; y < radix; y++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2932 if (mp_s_rmap[y] == ch) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2933 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2934 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2935 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2936 if (y == radix) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2937 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2938 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2939
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2940 /* shift up and add */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2941 if ((err = mp_mul_d(a, radix, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2942 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2943 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2944 if ((err = mp_add_d(a, y, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2945 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2946 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2947
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2948 ch = fgetc(stream);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2949 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2950 if (mp_cmp_d(a, 0) != MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2951 a->sign = neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2952 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2953
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2954 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2955 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2956
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2957 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2958
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2959 /* End: bn_mp_fread.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2960
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2961 /* Start: bn_mp_fwrite.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2962 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2963 #ifdef BN_MP_FWRITE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2964 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2965 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2966 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2967 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2968 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2969 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2970 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2971 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2972 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2973 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2974 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2975 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2976 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2977 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2978
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2979 int mp_fwrite(mp_int a, int radix, FILE stream)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2980 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2981 char *buf;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2982 int err, len, x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2983
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2984 if ((err = mp_radix_size(a, radix, &len)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2985 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2986 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2987
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2988 buf = OPT_CAST(char) XMALLOC (len);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2989 if (buf == NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2990 return MP_MEM;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2991 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2992
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2993 if ((err = mp_toradix(a, buf, radix)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2994 XFREE (buf);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2995 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2996 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2997
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2998 for (x = 0; x < len; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	2999 if (fputc(buf[x], stream) == EOF) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3000 XFREE (buf);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3001 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3002 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3003 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3004
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3005 XFREE (buf);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3006 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3007 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3008
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3009 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3010
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3011 /* End: bn_mp_fwrite.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3012
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3013 /* Start: bn_mp_gcd.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3014 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3015 #ifdef BN_MP_GCD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3016 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3017 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3018 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3019 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3020 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3021 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3022 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3023 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3024 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3025 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3026 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3027 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3028 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3029 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3030
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3031 /* Greatest Common Divisor using the binary method */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3032 int mp_gcd (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3033 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3034 mp_int u, v;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3035 int k, u_lsb, v_lsb, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3036
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3037 /* either zero than gcd is the largest */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3038 if (mp_iszero (a) == 1 && mp_iszero (b) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3039 return mp_abs (b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3040 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3041 if (mp_iszero (a) == 0 && mp_iszero (b) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3042 return mp_abs (a, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3043 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3044
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3045 /* optimized. At this point if a == 0 then
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3046 * b must equal zero too
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3047 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3048 if (mp_iszero (a) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3049 mp_zero(c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3050 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3051 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3052
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3053 /* get copies of a and b we can modify */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3054 if ((res = mp_init_copy (&u, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3055 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3056 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3057
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3058 if ((res = mp_init_copy (&v, b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3059 goto LBL_U;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3060 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3061
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3062 /* must be positive for the remainder of the algorithm */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3063 u.sign = v.sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3064
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3065 /* B1. Find the common power of two for u and v */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3066 u_lsb = mp_cnt_lsb(&u);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3067 v_lsb = mp_cnt_lsb(&v);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3068 k = MIN(u_lsb, v_lsb);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3069
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3070 if (k > 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3071 /* divide the power of two out */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3072 if ((res = mp_div_2d(&u, k, &u, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3073 goto LBL_V;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3074 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3075
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3076 if ((res = mp_div_2d(&v, k, &v, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3077 goto LBL_V;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3078 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3079 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3080
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3081 /* divide any remaining factors of two out */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3082 if (u_lsb != k) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3083 if ((res = mp_div_2d(&u, u_lsb - k, &u, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3084 goto LBL_V;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3085 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3086 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3087
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3088 if (v_lsb != k) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3089 if ((res = mp_div_2d(&v, v_lsb - k, &v, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3090 goto LBL_V;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3091 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3092 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3093
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3094 while (mp_iszero(&v) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3095 /* make sure v is the largest */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3096 if (mp_cmp_mag(&u, &v) == MP_GT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3097 /* swap u and v to make sure v is >= u */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3098 mp_exch(&u, &v);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3099 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3100
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3101 /* subtract smallest from largest */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3102 if ((res = s_mp_sub(&v, &u, &v)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3103 goto LBL_V;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3104 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3105
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3106 /* Divide out all factors of two */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3107 if ((res = mp_div_2d(&v, mp_cnt_lsb(&v), &v, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3108 goto LBL_V;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3109 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3110 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3111
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3112 /* multiply by 2*k which we divided out at the beginning /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3113 if ((res = mp_mul_2d (&u, k, c)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3114 goto LBL_V;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3115 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3116 c->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3117 res = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3118 LBL_V:mp_clear (&u);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3119 LBL_U:mp_clear (&v);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3120 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3121 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3122 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3123
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3124 /* End: bn_mp_gcd.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3125
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3126 /* Start: bn_mp_get_int.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3127 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3128 #ifdef BN_MP_GET_INT_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3129 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3130 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3131 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3132 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3133 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3134 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3135 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3136 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3137 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3138 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3139 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3140 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3141 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3142 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3143
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3144 /* get the lower 32-bits of an mp_int */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3145 unsigned long mp_get_int(mp_int * a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3146 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3147 int i;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3148 unsigned long res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3149
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3150 if (a->used == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3151 return 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3152 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3153
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3154 /* get number of digits of the lsb we have to read */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3155 i = MIN(a->used,(int)((sizeof(unsigned long)*CHAR_BIT+DIGIT_BIT-1)/DIGIT_BIT))-1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3156
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3157 /* get most significant digit of result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3158 res = DIGIT(a,i);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3159
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3160 while (--i >= 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3161 res = (res << DIGIT_BIT) \| DIGIT(a,i);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3162 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3163
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3164 /* force result to 32-bits always so it is consistent on non 32-bit platforms */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3165 return res & 0xFFFFFFFFUL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3166 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3167 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3168
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3169 /* End: bn_mp_get_int.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3170
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3171 /* Start: bn_mp_grow.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3172 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3173 #ifdef BN_MP_GROW_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3174 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3175 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3176 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3177 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3178 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3179 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3180 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3181 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3182 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3183 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3184 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3185 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3186 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3187 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3188
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3189 /* grow as required */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3190 int mp_grow (mp_int * a, int size)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3191 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3192 int i;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3193 mp_digit *tmp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3194
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3195 /* if the alloc size is smaller alloc more ram */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3196 if (a->alloc < size) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3197 /* ensure there are always at least MP_PREC digits extra on top */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3198 size += (MP_PREC * 2) - (size % MP_PREC);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3199
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3200 /* reallocate the array a->dp
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3201 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3202 * We store the return in a temporary variable
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3203 * in case the operation failed we don't want
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3204 * to overwrite the dp member of a.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3205 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3206 tmp = OPT_CAST(mp_digit) XREALLOC (a->dp, sizeof (mp_digit) * size);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3207 if (tmp == NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3208 /* reallocation failed but "a" is still valid [can be freed] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3209 return MP_MEM;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3210 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3211
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3212 /* reallocation succeeded so set a->dp */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3213 a->dp = tmp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3214
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3215 /* zero excess digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3216 i = a->alloc;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3217 a->alloc = size;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3218 for (; i < a->alloc; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3219 a->dp[i] = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3220 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3221 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3222 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3223 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3224 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3225
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3226 /* End: bn_mp_grow.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3227
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3228 /* Start: bn_mp_init.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3229 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3230 #ifdef BN_MP_INIT_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3231 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3232 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3233 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3234 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3235 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3236 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3237 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3238 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3239 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3240 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3241 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3242 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3243 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3244 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3245
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3246 /* init a new mp_int */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3247 int mp_init (mp_int * a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3248 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3249 int i;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3250
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3251 /* allocate memory required and clear it */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3252 a->dp = OPT_CAST(mp_digit) XMALLOC (sizeof (mp_digit) * MP_PREC);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3253 if (a->dp == NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3254 return MP_MEM;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3255 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3256
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3257 /* set the digits to zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3258 for (i = 0; i < MP_PREC; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3259 a->dp[i] = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3260 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3261
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3262 /* set the used to zero, allocated digits to the default precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3263 * and sign to positive */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3264 a->used = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3265 a->alloc = MP_PREC;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3266 a->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3267
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3268 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3269 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3270 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3271
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3272 /* End: bn_mp_init.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3273
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3274 /* Start: bn_mp_init_copy.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3275 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3276 #ifdef BN_MP_INIT_COPY_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3277 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3278 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3279 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3280 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3281 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3282 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3283 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3284 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3285 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3286 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3287 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3288 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3289 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3290 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3291
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3292 /* creates "a" then copies b into it */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3293 int mp_init_copy (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3294 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3295 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3296
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3297 if ((res = mp_init (a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3298 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3299 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3300 return mp_copy (b, a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3301 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3302 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3303
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3304 /* End: bn_mp_init_copy.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3305
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3306 /* Start: bn_mp_init_multi.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3307 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3308 #ifdef BN_MP_INIT_MULTI_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3309 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3310 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3311 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3312 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3313 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3314 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3315 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3316 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3317 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3318 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3319 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3320 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3321 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3322 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3323 #include <stdarg.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3324
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3325 int mp_init_multi(mp_int *mp, ...)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3326 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3327 mp_err res = MP_OKAY; /* Assume ok until proven otherwise */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3328 int n = 0; /* Number of ok inits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3329 mp_int* cur_arg = mp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3330 va_list args;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3331
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3332 va_start(args, mp); /* init args to next argument from caller */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3333 while (cur_arg != NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3334 if (mp_init(cur_arg) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3335 /* Oops - error! Back-track and mp_clear what we already
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3336 succeeded in init-ing, then return error.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3337 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3338 va_list clean_args;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3339
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3340 /* end the current list */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3341 va_end(args);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3342
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3343 /* now start cleaning up */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3344 cur_arg = mp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3345 va_start(clean_args, mp);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3346 while (n--) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3347 mp_clear(cur_arg);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3348 cur_arg = va_arg(clean_args, mp_int*);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3349 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3350 va_end(clean_args);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3351 res = MP_MEM;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3352 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3353 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3354 n++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3355 cur_arg = va_arg(args, mp_int*);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3356 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3357 va_end(args);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3358 return res; /* Assumed ok, if error flagged above. */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3359 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3360
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3361 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3362
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3363 /* End: bn_mp_init_multi.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3364
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3365 /* Start: bn_mp_init_set.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3366 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3367 #ifdef BN_MP_INIT_SET_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3368 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3369 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3370 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3371 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3372 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3373 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3374 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3375 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3376 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3377 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3378 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3379 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3380 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3381 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3382
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3383 /* initialize and set a digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3384 int mp_init_set (mp_int * a, mp_digit b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3385 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3386 int err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3387 if ((err = mp_init(a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3388 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3389 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3390 mp_set(a, b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3391 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3392 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3393 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3394
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3395 /* End: bn_mp_init_set.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3396
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3397 /* Start: bn_mp_init_set_int.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3398 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3399 #ifdef BN_MP_INIT_SET_INT_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3400 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3401 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3402 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3403 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3404 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3405 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3406 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3407 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3408 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3409 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3410 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3411 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3412 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3413 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3414
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3415 /* initialize and set a digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3416 int mp_init_set_int (mp_int * a, unsigned long b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3417 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3418 int err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3419 if ((err = mp_init(a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3420 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3421 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3422 return mp_set_int(a, b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3423 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3424 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3425
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3426 /* End: bn_mp_init_set_int.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3427
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3428 /* Start: bn_mp_init_size.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3429 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3430 #ifdef BN_MP_INIT_SIZE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3431 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3432 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3433 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3434 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3435 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3436 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3437 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3438 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3439 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3440 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3441 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3442 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3443 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3444 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3445
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3446 /* init an mp_init for a given size */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3447 int mp_init_size (mp_int * a, int size)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3448 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3449 int x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3450
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3451 /* pad size so there are always extra digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3452 size += (MP_PREC * 2) - (size % MP_PREC);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3453
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3454 /* alloc mem */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3455 a->dp = OPT_CAST(mp_digit) XMALLOC (sizeof (mp_digit) * size);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3456 if (a->dp == NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3457 return MP_MEM;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3458 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3459
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3460 /* set the members */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3461 a->used = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3462 a->alloc = size;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3463 a->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3464
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3465 /* zero the digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3466 for (x = 0; x < size; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3467 a->dp[x] = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3468 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3469
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3470 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3471 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3472 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3473
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3474 /* End: bn_mp_init_size.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3475
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3476 /* Start: bn_mp_invmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3477 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3478 #ifdef BN_MP_INVMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3479 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3480 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3481 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3482 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3483 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3484 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3485 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3486 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3487 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3488 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3489 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3490 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3491 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3492 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3493
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3494 /* hac 14.61, pp608 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3495 int mp_invmod (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3496 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3497 /* b cannot be negative */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3498 if (b->sign == MP_NEG \|\| mp_iszero(b) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3499 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3500 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3501
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3502 #ifdef BN_FAST_MP_INVMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3503 /* if the modulus is odd we can use a faster routine instead */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3504 if (mp_isodd (b) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3505 return fast_mp_invmod (a, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3506 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3507 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3508
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3509 #ifdef BN_MP_INVMOD_SLOW_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3510 return mp_invmod_slow(a, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3511 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3512
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3513 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3514 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3515 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3516
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3517 /* End: bn_mp_invmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3518
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3519 /* Start: bn_mp_invmod_slow.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3520 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3521 #ifdef BN_MP_INVMOD_SLOW_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3522 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3523 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3524 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3525 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3526 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3527 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3528 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3529 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3530 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3531 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3532 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3533 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3534 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3535 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3536
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3537 /* hac 14.61, pp608 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3538 int mp_invmod_slow (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3539 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3540 mp_int x, y, u, v, A, B, C, D;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3541 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3542
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3543 /* b cannot be negative */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3544 if (b->sign == MP_NEG \|\| mp_iszero(b) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3545 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3546 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3547
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3548 /* init temps */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3549 if ((res = mp_init_multi(&x, &y, &u, &v,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3550 &A, &B, &C, &D, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3551 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3552 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3553
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3554 /* x = a, y = b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3555 if ((res = mp_mod(a, b, &x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3556 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3557 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3558 if ((res = mp_copy (b, &y)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3559 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3560 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3561
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3562 /* 2. [modified] if x,y are both even then return an error! */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3563 if (mp_iseven (&x) == 1 && mp_iseven (&y) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3564 res = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3565 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3566 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3567
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3568 /* 3. u=x, v=y, A=1, B=0, C=0,D=1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3569 if ((res = mp_copy (&x, &u)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3570 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3571 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3572 if ((res = mp_copy (&y, &v)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3573 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3574 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3575 mp_set (&A, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3576 mp_set (&D, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3577
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3578 top:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3579 /* 4. while u is even do */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3580 while (mp_iseven (&u) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3581 /* 4.1 u = u/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3582 if ((res = mp_div_2 (&u, &u)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3583 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3584 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3585 /* 4.2 if A or B is odd then */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3586 if (mp_isodd (&A) == 1 \|\| mp_isodd (&B) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3587 /* A = (A+y)/2, B = (B-x)/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3588 if ((res = mp_add (&A, &y, &A)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3589 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3590 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3591 if ((res = mp_sub (&B, &x, &B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3592 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3593 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3594 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3595 /* A = A/2, B = B/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3596 if ((res = mp_div_2 (&A, &A)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3597 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3598 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3599 if ((res = mp_div_2 (&B, &B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3600 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3601 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3602 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3603
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3604 /* 5. while v is even do */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3605 while (mp_iseven (&v) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3606 /* 5.1 v = v/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3607 if ((res = mp_div_2 (&v, &v)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3608 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3609 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3610 /* 5.2 if C or D is odd then */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3611 if (mp_isodd (&C) == 1 \|\| mp_isodd (&D) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3612 /* C = (C+y)/2, D = (D-x)/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3613 if ((res = mp_add (&C, &y, &C)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3614 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3615 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3616 if ((res = mp_sub (&D, &x, &D)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3617 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3618 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3619 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3620 /* C = C/2, D = D/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3621 if ((res = mp_div_2 (&C, &C)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3622 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3623 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3624 if ((res = mp_div_2 (&D, &D)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3625 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3626 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3627 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3628
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3629 /* 6. if u >= v then */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3630 if (mp_cmp (&u, &v) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3631 /* u = u - v, A = A - C, B = B - D */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3632 if ((res = mp_sub (&u, &v, &u)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3633 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3634 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3635
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3636 if ((res = mp_sub (&A, &C, &A)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3637 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3638 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3639
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3640 if ((res = mp_sub (&B, &D, &B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3641 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3642 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3643 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3644 /* v - v - u, C = C - A, D = D - B */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3645 if ((res = mp_sub (&v, &u, &v)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3646 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3647 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3648
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3649 if ((res = mp_sub (&C, &A, &C)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3650 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3651 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3652
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3653 if ((res = mp_sub (&D, &B, &D)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3654 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3655 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3656 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3657
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3658 /* if not zero goto step 4 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3659 if (mp_iszero (&u) == 0)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3660 goto top;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3661
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3662 /* now a = C, b = D, gcd == gv /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3663
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3664 /* if v != 1 then there is no inverse */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3665 if (mp_cmp_d (&v, 1) != MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3666 res = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3667 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3668 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3669
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3670 /* if its too low */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3671 while (mp_cmp_d(&C, 0) == MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3672 if ((res = mp_add(&C, b, &C)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3673 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3674 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3675 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3676
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3677 /* too big */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3678 while (mp_cmp_mag(&C, b) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3679 if ((res = mp_sub(&C, b, &C)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3680 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3681 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3682 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3683
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3684 /* C is now the inverse */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3685 mp_exch (&C, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3686 res = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3687 LBL_ERR:mp_clear_multi (&x, &y, &u, &v, &A, &B, &C, &D, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3688 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3689 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3690 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3691
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3692 /* End: bn_mp_invmod_slow.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3693
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3694 /* Start: bn_mp_is_square.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3695 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3696 #ifdef BN_MP_IS_SQUARE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3697 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3698 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3699 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3700 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3701 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3702 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3703 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3704 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3705 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3706 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3707 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3708 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3709 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3710 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3711
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3712 /* Check if remainders are possible squares - fast exclude non-squares */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3713 static const char rem_128[128] = {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3714 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3715 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3716 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3717 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3718 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3719 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3720 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3721 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3722 };
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3723
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3724 static const char rem_105[105] = {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3725 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3726 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3727 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3728 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3729 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3730 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 1, 1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3731 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3732 };
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3733
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3734 /* Store non-zero to ret if arg is square, and zero if not */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3735 int mp_is_square(mp_int arg,int ret)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3736 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3737 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3738 mp_digit c;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3739 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3740 unsigned long r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3741
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3742 /* Default to Non-square :) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3743 *ret = MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3744
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3745 if (arg->sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3746 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3747 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3748
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3749 /* digits used? (TSD) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3750 if (arg->used == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3751 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3752 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3753
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3754 /* First check mod 128 (suppose that DIGIT_BIT is at least 7) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3755 if (rem_128[127 & DIGIT(arg,0)] == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3756 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3757 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3758
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3759 /* Next check mod 105 (357) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3760 if ((res = mp_mod_d(arg,105,&c)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3761 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3762 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3763 if (rem_105[c] == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3764 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3765 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3766
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3767
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3768 if ((res = mp_init_set_int(&t,11L13L17L19L23L29L31L)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3769 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3770 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3771 if ((res = mp_mod(arg,&t,&t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3772 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3773 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3774 r = mp_get_int(&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3775 /* Check for other prime modules, note it's not an ERROR but we must
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3776 * free "t" so the easiest way is to goto ERR. We know that res
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3777 * is already equal to MP_OKAY from the mp_mod call
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3778 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3779 if ( (1L<<(r%11)) & 0x5C4L ) goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3780 if ( (1L<<(r%13)) & 0x9E4L ) goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3781 if ( (1L<<(r%17)) & 0x5CE8L ) goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3782 if ( (1L<<(r%19)) & 0x4F50CL ) goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3783 if ( (1L<<(r%23)) & 0x7ACCA0L ) goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3784 if ( (1L<<(r%29)) & 0xC2EDD0CL ) goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3785 if ( (1L<<(r%31)) & 0x6DE2B848L ) goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3786
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3787 /* Final check - is sqr(sqrt(arg)) == arg ? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3788 if ((res = mp_sqrt(arg,&t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3789 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3790 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3791 if ((res = mp_sqr(&t,&t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3792 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3793 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3794
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3795 *ret = (mp_cmp_mag(&t,arg) == MP_EQ) ? MP_YES : MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3796 ERR:mp_clear(&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3797 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3798 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3799 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3800
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3801 /* End: bn_mp_is_square.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3802
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3803 /* Start: bn_mp_jacobi.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3804 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3805 #ifdef BN_MP_JACOBI_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3806 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3807 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3808 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3809 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3810 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3811 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3812 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3813 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3814 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3815 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3816 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3817 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3818 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3819 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3820
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3821 /* computes the jacobi c = (a \| n) (or Legendre if n is prime)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3822 * HAC pp. 73 Algorithm 2.149
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3823 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3824 int mp_jacobi (mp_int * a, mp_int * p, int *c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3825 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3826 mp_int a1, p1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3827 int k, s, r, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3828 mp_digit residue;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3829
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3830 /* if p <= 0 return MP_VAL */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3831 if (mp_cmp_d(p, 0) != MP_GT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3832 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3833 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3834
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3835 /* step 1. if a == 0, return 0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3836 if (mp_iszero (a) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3837 *c = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3838 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3839 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3840
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3841 /* step 2. if a == 1, return 1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3842 if (mp_cmp_d (a, 1) == MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3843 *c = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3844 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3845 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3846
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3847 /* default */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3848 s = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3849
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3850 /* step 3. write a = a1 * 2*k /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3851 if ((res = mp_init_copy (&a1, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3852 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3853 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3854
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3855 if ((res = mp_init (&p1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3856 goto LBL_A1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3857 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3858
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3859 /* divide out larger power of two */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3860 k = mp_cnt_lsb(&a1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3861 if ((res = mp_div_2d(&a1, k, &a1, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3862 goto LBL_P1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3863 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3864
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3865 /* step 4. if e is even set s=1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3866 if ((k & 1) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3867 s = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3868 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3869 /* else set s=1 if p = 1/7 (mod 8) or s=-1 if p = 3/5 (mod 8) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3870 residue = p->dp[0] & 7;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3871
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3872 if (residue == 1 \|\| residue == 7) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3873 s = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3874 } else if (residue == 3 \|\| residue == 5) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3875 s = -1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3876 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3877 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3878
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3879 /* step 5. if p == 3 (mod 4) and a1 == 3 (mod 4) then s = -s */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3880 if ( ((p->dp[0] & 3) == 3) && ((a1.dp[0] & 3) == 3)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3881 s = -s;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3882 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3883
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3884 /* if a1 == 1 we're done */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3885 if (mp_cmp_d (&a1, 1) == MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3886 *c = s;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3887 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3888 /* n1 = n mod a1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3889 if ((res = mp_mod (p, &a1, &p1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3890 goto LBL_P1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3891 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3892 if ((res = mp_jacobi (&p1, &a1, &r)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3893 goto LBL_P1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3894 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3895 c = s r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3896 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3897
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3898 /* done */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3899 res = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3900 LBL_P1:mp_clear (&p1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3901 LBL_A1:mp_clear (&a1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3902 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3903 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3904 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3905
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3906 /* End: bn_mp_jacobi.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3907
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3908 /* Start: bn_mp_karatsuba_mul.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3909 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3910 #ifdef BN_MP_KARATSUBA_MUL_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3911 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3912 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3913 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3914 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3915 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3916 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3917 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3918 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3919 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3920 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3921 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3922 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3923 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3924 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3925
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3926 /* c = \|a\| * \|b\| using Karatsuba Multiplication using
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3927 * three half size multiplications
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3928 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3929 * Let B represent the radix [e.g. 2**DIGIT_BIT] and
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3930 * let n represent half of the number of digits in
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3931 * the min(a,b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3932 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3933 * a = a1 * B**n + a0
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3934 * b = b1 * B**n + b0
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3935 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3936 * Then, a * b =>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3937 a1b1 * B*2n + ((a1 - a0)(b1 - b0) + a0b0 + a1b1) B + a0b0
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3938 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3939 * Note that a1b1 and a0b0 are used twice and only need to be
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3940 * computed once. So in total three half size (half # of
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3941 * digit) multiplications are performed, a0b0, a1b1 and
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3942 * (a1-b1)(a0-b0)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3943 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3944 * Note that a multiplication of half the digits requires
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3945 * 1/4th the number of single precision multiplications so in
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3946 * total after one call 25% of the single precision multiplications
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3947 * are saved. Note also that the call to mp_mul can end up back
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3948 * in this function if the a0, a1, b0, or b1 are above the threshold.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3949 * This is known as divide-and-conquer and leads to the famous
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3950 * O(Nlg(3)) or O(N1.584) work which is asymptopically lower than
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3951 * the standard O(N**2) that the baseline/comba methods use.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3952 * Generally though the overhead of this method doesn't pay off
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3953 * until a certain size (N ~ 80) is reached.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3954 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3955 int mp_karatsuba_mul (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3956 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3957 mp_int x0, x1, y0, y1, t1, x0y0, x1y1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3958 int B, err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3959
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3960 /* default the return code to an error */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3961 err = MP_MEM;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3962
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3963 /* min # of digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3964 B = MIN (a->used, b->used);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3965
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3966 /* now divide in two */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3967 B = B >> 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3968
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3969 /* init copy all the temps */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3970 if (mp_init_size (&x0, B) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3971 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3972 if (mp_init_size (&x1, a->used - B) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3973 goto X0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3974 if (mp_init_size (&y0, B) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3975 goto X1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3976 if (mp_init_size (&y1, b->used - B) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3977 goto Y0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3978
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3979 /* init temps */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3980 if (mp_init_size (&t1, B * 2) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3981 goto Y1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3982 if (mp_init_size (&x0y0, B * 2) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3983 goto T1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3984 if (mp_init_size (&x1y1, B * 2) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3985 goto X0Y0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3986
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3987 /* now shift the digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3988 x0.used = y0.used = B;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3989 x1.used = a->used - B;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3990 y1.used = b->used - B;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3991
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3992 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3993 register int x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3994 register mp_digit tmpa, tmpb, tmpx, tmpy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3995
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3996 /* we copy the digits directly instead of using higher level functions
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3997 * since we also need to shift the digits
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3998 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	3999 tmpa = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4000 tmpb = b->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4001
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4002 tmpx = x0.dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4003 tmpy = y0.dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4004 for (x = 0; x < B; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4005 tmpx++ = tmpa++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4006 tmpy++ = tmpb++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4007 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4008
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4009 tmpx = x1.dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4010 for (x = B; x < a->used; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4011 tmpx++ = tmpa++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4012 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4013
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4014 tmpy = y1.dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4015 for (x = B; x < b->used; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4016 tmpy++ = tmpb++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4017 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4018 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4019
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4020 /* only need to clamp the lower words since by definition the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4021 * upper words x1/y1 must have a known number of digits
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4022 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4023 mp_clamp (&x0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4024 mp_clamp (&y0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4025
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4026 /* now calc the products x0y0 and x1y1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4027 /* after this x0 is no longer required, free temp [x0==t2]! */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4028 if (mp_mul (&x0, &y0, &x0y0) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4029 goto X1Y1; /* x0y0 = x0y0 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4030 if (mp_mul (&x1, &y1, &x1y1) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4031 goto X1Y1; /* x1y1 = x1y1 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4032
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4033 /* now calc x1-x0 and y1-y0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4034 if (mp_sub (&x1, &x0, &t1) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4035 goto X1Y1; /* t1 = x1 - x0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4036 if (mp_sub (&y1, &y0, &x0) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4037 goto X1Y1; /* t2 = y1 - y0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4038 if (mp_mul (&t1, &x0, &t1) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4039 goto X1Y1; /* t1 = (x1 - x0) * (y1 - y0) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4040
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4041 /* add x0y0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4042 if (mp_add (&x0y0, &x1y1, &x0) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4043 goto X1Y1; /* t2 = x0y0 + x1y1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4044 if (mp_sub (&x0, &t1, &t1) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4045 goto X1Y1; /* t1 = x0y0 + x1y1 - (x1-x0)(y1-y0) /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4046
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4047 /* shift by B */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4048 if (mp_lshd (&t1, B) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4049 goto X1Y1; /* t1 = (x0y0 + x1y1 - (x1-x0)(y1-y0))<<B /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4050 if (mp_lshd (&x1y1, B * 2) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4051 goto X1Y1; /* x1y1 = x1y1 << 2B /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4052
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4053 if (mp_add (&x0y0, &t1, &t1) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4054 goto X1Y1; /* t1 = x0y0 + t1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4055 if (mp_add (&t1, &x1y1, c) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4056 goto X1Y1; /* t1 = x0y0 + t1 + x1y1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4057
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4058 /* Algorithm succeeded set the return code to MP_OKAY */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4059 err = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4060
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4061 X1Y1:mp_clear (&x1y1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4062 X0Y0:mp_clear (&x0y0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4063 T1:mp_clear (&t1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4064 Y1:mp_clear (&y1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4065 Y0:mp_clear (&y0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4066 X1:mp_clear (&x1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4067 X0:mp_clear (&x0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4068 ERR:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4069 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4070 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4071 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4072
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4073 /* End: bn_mp_karatsuba_mul.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4074
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4075 /* Start: bn_mp_karatsuba_sqr.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4076 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4077 #ifdef BN_MP_KARATSUBA_SQR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4078 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4079 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4080 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4081 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4082 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4083 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4084 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4085 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4086 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4087 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4088 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4089 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4090 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4091 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4092
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4093 /* Karatsuba squaring, computes b = a*a using three
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4094 * half size squarings
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4095 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4096 * See comments of karatsuba_mul for details. It
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4097 * is essentially the same algorithm but merely
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4098 * tuned to perform recursive squarings.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4099 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4100 int mp_karatsuba_sqr (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4101 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4102 mp_int x0, x1, t1, t2, x0x0, x1x1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4103 int B, err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4104
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4105 err = MP_MEM;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4106
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4107 /* min # of digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4108 B = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4109
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4110 /* now divide in two */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4111 B = B >> 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4112
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4113 /* init copy all the temps */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4114 if (mp_init_size (&x0, B) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4115 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4116 if (mp_init_size (&x1, a->used - B) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4117 goto X0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4118
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4119 /* init temps */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4120 if (mp_init_size (&t1, a->used * 2) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4121 goto X1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4122 if (mp_init_size (&t2, a->used * 2) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4123 goto T1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4124 if (mp_init_size (&x0x0, B * 2) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4125 goto T2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4126 if (mp_init_size (&x1x1, (a->used - B) * 2) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4127 goto X0X0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4128
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4129 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4130 register int x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4131 register mp_digit dst, src;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4132
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4133 src = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4134
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4135 /* now shift the digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4136 dst = x0.dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4137 for (x = 0; x < B; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4138 dst++ = src++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4139 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4140
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4141 dst = x1.dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4142 for (x = B; x < a->used; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4143 dst++ = src++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4144 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4145 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4146
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4147 x0.used = B;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4148 x1.used = a->used - B;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4149
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4150 mp_clamp (&x0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4151
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4152 /* now calc the products x0x0 and x1x1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4153 if (mp_sqr (&x0, &x0x0) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4154 goto X1X1; /* x0x0 = x0x0 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4155 if (mp_sqr (&x1, &x1x1) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4156 goto X1X1; /* x1x1 = x1x1 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4157
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4158 /* now calc (x1-x0)*2 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4159 if (mp_sub (&x1, &x0, &t1) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4160 goto X1X1; /* t1 = x1 - x0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4161 if (mp_sqr (&t1, &t1) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4162 goto X1X1; /* t1 = (x1 - x0) * (x1 - x0) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4163
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4164 /* add x0y0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4165 if (s_mp_add (&x0x0, &x1x1, &t2) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4166 goto X1X1; /* t2 = x0x0 + x1x1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4167 if (mp_sub (&t2, &t1, &t1) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4168 goto X1X1; /* t1 = x0x0 + x1x1 - (x1-x0)(x1-x0) /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4169
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4170 /* shift by B */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4171 if (mp_lshd (&t1, B) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4172 goto X1X1; /* t1 = (x0x0 + x1x1 - (x1-x0)(x1-x0))<<B /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4173 if (mp_lshd (&x1x1, B * 2) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4174 goto X1X1; /* x1x1 = x1x1 << 2B /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4175
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4176 if (mp_add (&x0x0, &t1, &t1) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4177 goto X1X1; /* t1 = x0x0 + t1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4178 if (mp_add (&t1, &x1x1, b) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4179 goto X1X1; /* t1 = x0x0 + t1 + x1x1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4180
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4181 err = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4182
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4183 X1X1:mp_clear (&x1x1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4184 X0X0:mp_clear (&x0x0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4185 T2:mp_clear (&t2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4186 T1:mp_clear (&t1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4187 X1:mp_clear (&x1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4188 X0:mp_clear (&x0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4189 ERR:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4190 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4191 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4192 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4193
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4194 /* End: bn_mp_karatsuba_sqr.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4195
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4196 /* Start: bn_mp_lcm.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4197 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4198 #ifdef BN_MP_LCM_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4199 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4200 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4201 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4202 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4203 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4204 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4205 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4206 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4207 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4208 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4209 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4210 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4211 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4212 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4213
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4214 /* computes least common multiple as \|ab\|/(a, b) /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4215 int mp_lcm (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4216 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4217 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4218 mp_int t1, t2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4219
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4220
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4221 if ((res = mp_init_multi (&t1, &t2, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4222 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4223 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4224
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4225 /* t1 = get the GCD of the two inputs */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4226 if ((res = mp_gcd (a, b, &t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4227 goto LBL_T;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4228 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4229
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4230 /* divide the smallest by the GCD */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4231 if (mp_cmp_mag(a, b) == MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4232 /* store quotient in t2 such that t2 * b is the LCM */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4233 if ((res = mp_div(a, &t1, &t2, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4234 goto LBL_T;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4235 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4236 res = mp_mul(b, &t2, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4237 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4238 /* store quotient in t2 such that t2 * a is the LCM */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4239 if ((res = mp_div(b, &t1, &t2, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4240 goto LBL_T;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4241 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4242 res = mp_mul(a, &t2, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4243 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4244
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4245 /* fix the sign to positive */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4246 c->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4247
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4248 LBL_T:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4249 mp_clear_multi (&t1, &t2, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4250 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4251 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4252 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4253
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4254 /* End: bn_mp_lcm.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4255
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4256 /* Start: bn_mp_lshd.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4257 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4258 #ifdef BN_MP_LSHD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4259 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4260 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4261 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4262 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4263 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4264 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4265 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4266 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4267 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4268 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4269 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4270 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4271 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4272 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4273
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4274 /* shift left a certain amount of digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4275 int mp_lshd (mp_int * a, int b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4276 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4277 int x, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4278
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4279 /* if its less than zero return */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4280 if (b <= 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4281 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4282 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4283
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4284 /* grow to fit the new digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4285 if (a->alloc < a->used + b) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4286 if ((res = mp_grow (a, a->used + b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4287 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4288 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4289 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4290
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4291 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4292 register mp_digit top, bottom;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4293
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4294 /* increment the used by the shift amount then copy upwards */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4295 a->used += b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4296
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4297 /* top */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4298 top = a->dp + a->used - 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4299
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4300 /* base */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4301 bottom = a->dp + a->used - 1 - b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4302
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4303 /* much like mp_rshd this is implemented using a sliding window
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4304 * except the window goes the otherway around. Copying from
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4305 * the bottom to the top. see bn_mp_rshd.c for more info.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4306 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4307 for (x = a->used - 1; x >= b; x--) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4308 top-- = bottom--;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4309 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4310
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4311 /* zero the lower digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4312 top = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4313 for (x = 0; x < b; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4314 *top++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4315 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4316 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4317 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4318 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4319 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4320
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4321 /* End: bn_mp_lshd.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4322
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4323 /* Start: bn_mp_mod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4324 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4325 #ifdef BN_MP_MOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4326 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4327 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4328 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4329 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4330 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4331 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4332 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4333 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4334 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4335 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4336 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4337 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4338 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4339 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4340
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4341 /* c = a mod b, 0 <= c < b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4342 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4343 mp_mod (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4344 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4345 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4346 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4347
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4348 if ((res = mp_init (&t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4349 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4350 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4351
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4352 if ((res = mp_div (a, b, NULL, &t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4353 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4354 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4355 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4356
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4357 if (t.sign != b->sign) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4358 res = mp_add (b, &t, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4359 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4360 res = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4361 mp_exch (&t, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4362 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4363
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4364 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4365 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4366 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4367 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4368
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4369 /* End: bn_mp_mod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4370
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4371 /* Start: bn_mp_mod_2d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4372 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4373 #ifdef BN_MP_MOD_2D_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4374 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4375 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4376 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4377 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4378 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4379 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4380 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4381 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4382 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4383 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4384 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4385 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4386 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4387 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4388
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4389 /* calc a value mod 2*b /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4390 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4391 mp_mod_2d (mp_int * a, int b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4392 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4393 int x, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4394
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4395 /* if b is <= 0 then zero the int */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4396 if (b <= 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4397 mp_zero (c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4398 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4399 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4400
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4401 /* if the modulus is larger than the value than return */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4402 if (b >= (int) (a->used * DIGIT_BIT)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4403 res = mp_copy (a, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4404 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4405 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4406
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4407 /* copy */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4408 if ((res = mp_copy (a, c)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4409 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4410 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4411
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4412 /* zero digits above the last digit of the modulus */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4413 for (x = (b / DIGIT_BIT) + ((b % DIGIT_BIT) == 0 ? 0 : 1); x < c->used; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4414 c->dp[x] = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4415 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4416 /* clear the digit that is not completely outside/inside the modulus */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4417 c->dp[b / DIGIT_BIT] &=
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4418 (mp_digit) ((((mp_digit) 1) << (((mp_digit) b) % DIGIT_BIT)) - ((mp_digit) 1));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4419 mp_clamp (c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4420 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4421 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4422 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4423
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4424 /* End: bn_mp_mod_2d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4425
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4426 /* Start: bn_mp_mod_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4427 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4428 #ifdef BN_MP_MOD_D_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4429 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4430 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4431 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4432 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4433 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4434 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4435 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4436 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4437 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4438 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4439 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4440 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4441 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4442 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4443
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4444 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4445 mp_mod_d (mp_int * a, mp_digit b, mp_digit * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4446 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4447 return mp_div_d(a, b, NULL, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4448 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4449 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4450
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4451 /* End: bn_mp_mod_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4452
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4453 /* Start: bn_mp_montgomery_calc_normalization.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4454 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4455 #ifdef BN_MP_MONTGOMERY_CALC_NORMALIZATION_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4456 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4457 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4458 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4459 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4460 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4461 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4462 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4463 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4464 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4465 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4466 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4467 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4468 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4469 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4470
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4471 /*
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4472 * shifts with subtractions when the result is greater than b.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4473 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4474 * The method is slightly modified to shift B unconditionally upto just under
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4475 * the leading bit of b. This saves alot of multiple precision shifting.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4476 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4477 int mp_montgomery_calc_normalization (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4478 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4479 int x, bits, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4480
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4481 /* how many bits of last digit does b use */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4482 bits = mp_count_bits (b) % DIGIT_BIT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4483
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4484 if (b->used > 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4485 if ((res = mp_2expt (a, (b->used - 1) * DIGIT_BIT + bits - 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4486 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4487 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4488 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4489 mp_set(a, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4490 bits = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4491 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4492
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4493
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4494 /* now compute C = A * B mod b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4495 for (x = bits - 1; x < (int)DIGIT_BIT; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4496 if ((res = mp_mul_2 (a, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4497 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4498 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4499 if (mp_cmp_mag (a, b) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4500 if ((res = s_mp_sub (a, b, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4501 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4502 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4503 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4504 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4505
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4506 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4507 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4508 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4509
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4510 /* End: bn_mp_montgomery_calc_normalization.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4511
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4512 /* Start: bn_mp_montgomery_reduce.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4513 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4514 #ifdef BN_MP_MONTGOMERY_REDUCE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4515 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4516 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4517 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4518 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4519 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4520 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4521 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4522 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4523 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4524 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4525 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4526 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4527 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4528 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4529
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4530 /* computes xR*-1 == x (mod N) via Montgomery Reduction /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4531 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4532 mp_montgomery_reduce (mp_int * x, mp_int * n, mp_digit rho)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4533 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4534 int ix, res, digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4535 mp_digit mu;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4536
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4537 /* can the fast reduction [comba] method be used?
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4538 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4539 * Note that unlike in mul you're safely allowed less
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4540 * than the available columns [255 per default] since carries
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4541 * are fixed up in the inner loop.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4542 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4543 digs = n->used * 2 + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4544 if ((digs < MP_WARRAY) &&
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4545 n->used <
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4546 (1 << ((CHAR_BIT * sizeof (mp_word)) - (2 * DIGIT_BIT)))) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4547 return fast_mp_montgomery_reduce (x, n, rho);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4548 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4549
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4550 /* grow the input as required */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4551 if (x->alloc < digs) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4552 if ((res = mp_grow (x, digs)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4553 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4554 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4555 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4556 x->used = digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4557
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4558 for (ix = 0; ix < n->used; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4559 /* mu = ai * rho mod b
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4560 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4561 * The value of rho must be precalculated via
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4562 * montgomery_setup() such that
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4563 * it equals -1/n0 mod b this allows the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4564 * following inner loop to reduce the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4565 * input one digit at a time
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4566 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4567 mu = (mp_digit) (((mp_word)x->dp[ix]) * ((mp_word)rho) & MP_MASK);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4568
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4569 /* a = a + mu * m * b*i /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4570 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4571 register int iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4572 register mp_digit tmpn, tmpx, u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4573 register mp_word r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4574
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4575 /* alias for digits of the modulus */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4576 tmpn = n->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4577
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4578 /* alias for the digits of x [the input] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4579 tmpx = x->dp + ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4580
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4581 /* set the carry to zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4582 u = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4583
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4584 /* Multiply and add in place */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4585 for (iy = 0; iy < n->used; iy++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4586 /* compute product and sum */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4587 r = ((mp_word)mu) * ((mp_word)*tmpn++) +
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4588 ((mp_word) u) + ((mp_word) * tmpx);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4589
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4590 /* get carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4591 u = (mp_digit)(r >> ((mp_word) DIGIT_BIT));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4592
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4593 /* fix digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4594 *tmpx++ = (mp_digit)(r & ((mp_word) MP_MASK));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4595 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4596 /* At this point the ix'th digit of x should be zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4597
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4598
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4599 /* propagate carries upwards as required*/
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4600 while (u) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4601 *tmpx += u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4602 u = *tmpx >> DIGIT_BIT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4603 *tmpx++ &= MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4604 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4605 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4606 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4607
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4608 /* at this point the n.used'th least
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4609 * significant digits of x are all zero
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4610 * which means we can shift x to the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4611 * right by n.used digits and the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4612 * residue is unchanged.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4613 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4614
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4615 /* x = x/b*n.used /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4616 mp_clamp(x);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4617 mp_rshd (x, n->used);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4618
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4619 /* if x >= n then x = x - n */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4620 if (mp_cmp_mag (x, n) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4621 return s_mp_sub (x, n, x);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4622 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4623
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4624 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4625 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4626 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4627
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4628 /* End: bn_mp_montgomery_reduce.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4629
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4630 /* Start: bn_mp_montgomery_setup.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4631 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4632 #ifdef BN_MP_MONTGOMERY_SETUP_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4633 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4634 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4635 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4636 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4637 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4638 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4639 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4640 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4641 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4642 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4643 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4644 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4645 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4646 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4647
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4648 /* setups the montgomery reduction stuff */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4649 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4650 mp_montgomery_setup (mp_int * n, mp_digit * rho)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4651 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4652 mp_digit x, b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4653
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4654 /* fast inversion mod 2**k
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4655 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4656 * Based on the fact that
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4657 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4658 * XA = 1 (mod 2n) => (X(2-XA)) A = 1 (mod 22n)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4659 * => 2XA - XXA*A = 1
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4660 * => 2*(1) - (1) = 1
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4661 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4662 b = n->dp[0];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4663
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4664 if ((b & 1) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4665 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4666 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4667
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4668 x = (((b + 2) & 4) << 1) + b; /* here xa==1 mod 24 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4669 x = 2 - b x; /* here xa==1 mod 28 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4670 #if !defined(MP_8BIT)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4671 x = 2 - b x; /* here xa==1 mod 216 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4672 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4673 #if defined(MP_64BIT) \|\| !(defined(MP_8BIT) \|\| defined(MP_16BIT))
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4674 x = 2 - b x; /* here xa==1 mod 232 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4675 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4676 #ifdef MP_64BIT
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4677 x = 2 - b x; /* here xa==1 mod 264 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4678 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4679
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4680 /* rho = -1/m mod b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4681 *rho = (((mp_word)1 << ((mp_word) DIGIT_BIT)) - x) & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4682
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4683 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4684 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4685 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4686
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4687 /* End: bn_mp_montgomery_setup.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4688
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4689 /* Start: bn_mp_mul.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4690 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4691 #ifdef BN_MP_MUL_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4692 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4693 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4694 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4695 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4696 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4697 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4698 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4699 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4700 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4701 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4702 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4703 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4704 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4705 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4706
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4707 /* high level multiplication (handles sign) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4708 int mp_mul (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4709 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4710 int res, neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4711 neg = (a->sign == b->sign) ? MP_ZPOS : MP_NEG;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4712
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4713 /* use Toom-Cook? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4714 #ifdef BN_MP_TOOM_MUL_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4715 if (MIN (a->used, b->used) >= TOOM_MUL_CUTOFF) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4716 res = mp_toom_mul(a, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4717 } else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4718 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4719 #ifdef BN_MP_KARATSUBA_MUL_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4720 /* use Karatsuba? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4721 if (MIN (a->used, b->used) >= KARATSUBA_MUL_CUTOFF) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4722 res = mp_karatsuba_mul (a, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4723 } else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4724 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4725 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4726 /* can we use the fast multiplier?
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4727 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4728 * The fast multiplier can be used if the output will
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4729 * have less than MP_WARRAY digits and the number of
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4730 * digits won't affect carry propagation
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4731 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4732 int digs = a->used + b->used + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4733
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4734 #ifdef BN_FAST_S_MP_MUL_DIGS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4735 if ((digs < MP_WARRAY) &&
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4736 MIN(a->used, b->used) <=
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4737 (1 << ((CHAR_BIT * sizeof (mp_word)) - (2 * DIGIT_BIT)))) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4738 res = fast_s_mp_mul_digs (a, b, c, digs);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4739 } else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4740 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4741 #ifdef BN_S_MP_MUL_DIGS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4742 res = s_mp_mul (a, b, c); /* uses s_mp_mul_digs */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4743 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4744 res = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4745 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4746
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4747 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4748 c->sign = (c->used > 0) ? neg : MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4749 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4750 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4751 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4752
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4753 /* End: bn_mp_mul.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4754
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4755 /* Start: bn_mp_mul_2.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4756 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4757 #ifdef BN_MP_MUL_2_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4758 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4759 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4760 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4761 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4762 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4763 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4764 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4765 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4766 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4767 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4768 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4769 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4770 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4771 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4772
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4773 /* b = a2 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4774 int mp_mul_2(mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4775 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4776 int x, res, oldused;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4777
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4778 /* grow to accomodate result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4779 if (b->alloc < a->used + 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4780 if ((res = mp_grow (b, a->used + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4781 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4782 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4783 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4784
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4785 oldused = b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4786 b->used = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4787
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4788 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4789 register mp_digit r, rr, tmpa, tmpb;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4790
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4791 /* alias for source */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4792 tmpa = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4793
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4794 /* alias for dest */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4795 tmpb = b->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4796
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4797 /* carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4798 r = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4799 for (x = 0; x < a->used; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4800
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4801 /* get what will be the next carry bit from the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4802 * MSB of the current digit
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4803 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4804 rr = *tmpa >> ((mp_digit)(DIGIT_BIT - 1));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4805
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4806 /* now shift up this digit, add in the carry [from the previous] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4807 tmpb++ = ((tmpa++ << ((mp_digit)1)) \| r) & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4808
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4809 /* copy the carry that would be from the source
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4810 * digit into the next iteration
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4811 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4812 r = rr;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4813 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4814
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4815 /* new leading digit? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4816 if (r != 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4817 /* add a MSB which is always 1 at this point */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4818 *tmpb = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4819 ++(b->used);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4820 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4821
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4822 /* now zero any excess digits on the destination
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4823 * that we didn't write to
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4824 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4825 tmpb = b->dp + b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4826 for (x = b->used; x < oldused; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4827 *tmpb++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4828 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4829 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4830 b->sign = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4831 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4832 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4833 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4834
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4835 /* End: bn_mp_mul_2.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4836
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4837 /* Start: bn_mp_mul_2d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4838 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4839 #ifdef BN_MP_MUL_2D_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4840 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4841 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4842 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4843 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4844 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4845 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4846 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4847 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4848 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4849 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4850 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4851 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4852 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4853 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4854
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4855 /* shift left by a certain bit count */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4856 int mp_mul_2d (mp_int * a, int b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4857 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4858 mp_digit d;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4859 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4860
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4861 /* copy */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4862 if (a != c) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4863 if ((res = mp_copy (a, c)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4864 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4865 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4866 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4867
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4868 if (c->alloc < (int)(c->used + b/DIGIT_BIT + 1)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4869 if ((res = mp_grow (c, c->used + b / DIGIT_BIT + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4870 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4871 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4872 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4873
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4874 /* shift by as many digits in the bit count */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4875 if (b >= (int)DIGIT_BIT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4876 if ((res = mp_lshd (c, b / DIGIT_BIT)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4877 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4878 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4879 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4880
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4881 /* shift any bit count < DIGIT_BIT */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4882 d = (mp_digit) (b % DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4883 if (d != 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4884 register mp_digit *tmpc, shift, mask, r, rr;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4885 register int x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4886
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4887 /* bitmask for carries */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4888 mask = (((mp_digit)1) << d) - 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4889
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4890 /* shift for msbs */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4891 shift = DIGIT_BIT - d;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4892
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4893 /* alias */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4894 tmpc = c->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4895
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4896 /* carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4897 r = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4898 for (x = 0; x < c->used; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4899 /* get the higher bits of the current word */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4900 rr = (*tmpc >> shift) & mask;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4901
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4902 /* shift the current word and OR in the carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4903 tmpc = ((tmpc << d) \| r) & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4904 ++tmpc;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4905
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4906 /* set the carry to the carry bits of the current word */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4907 r = rr;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4908 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4909
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4910 /* set final carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4911 if (r != 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4912 c->dp[(c->used)++] = r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4913 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4914 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4915 mp_clamp (c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4916 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4917 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4918 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4919
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4920 /* End: bn_mp_mul_2d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4921
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4922 /* Start: bn_mp_mul_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4923 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4924 #ifdef BN_MP_MUL_D_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4925 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4926 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4927 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4928 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4929 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4930 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4931 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4932 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4933 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4934 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4935 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4936 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4937 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4938 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4939
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4940 /* multiply by a digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4941 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4942 mp_mul_d (mp_int * a, mp_digit b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4943 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4944 mp_digit u, tmpa, tmpc;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4945 mp_word r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4946 int ix, res, olduse;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4947
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4948 /* make sure c is big enough to hold ab /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4949 if (c->alloc < a->used + 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4950 if ((res = mp_grow (c, a->used + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4951 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4952 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4953 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4954
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4955 /* get the original destinations used count */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4956 olduse = c->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4957
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4958 /* set the sign */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4959 c->sign = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4960
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4961 /* alias for a->dp [source] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4962 tmpa = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4963
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4964 /* alias for c->dp [dest] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4965 tmpc = c->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4966
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4967 /* zero carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4968 u = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4969
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4970 /* compute columns */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4971 for (ix = 0; ix < a->used; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4972 /* compute product and carry sum for this term */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4973 r = ((mp_word) u) + ((mp_word)tmpa++) ((mp_word)b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4974
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4975 /* mask off higher bits to get a single digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4976 *tmpc++ = (mp_digit) (r & ((mp_word) MP_MASK));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4977
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4978 /* send carry into next iteration */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4979 u = (mp_digit) (r >> ((mp_word) DIGIT_BIT));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4980 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4981
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4982 /* store final carry [if any] and increment ix offset */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4983 *tmpc++ = u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4984 ++ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4985
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4986 /* now zero digits above the top */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4987 while (ix++ < olduse) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4988 *tmpc++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4989 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4990
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4991 /* set used count */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4992 c->used = a->used + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4993 mp_clamp(c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4994
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4995 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4996 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4997 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4998
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	4999 /* End: bn_mp_mul_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5000
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5001 /* Start: bn_mp_mulmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5002 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5003 #ifdef BN_MP_MULMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5004 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5005 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5006 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5007 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5008 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5009 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5010 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5011 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5012 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5013 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5014 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5015 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5016 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5017 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5018
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5019 /* d = a * b (mod c) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5020 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5021 mp_mulmod (mp_int * a, mp_int * b, mp_int * c, mp_int * d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5022 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5023 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5024 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5025
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5026 if ((res = mp_init (&t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5027 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5028 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5029
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5030 if ((res = mp_mul (a, b, &t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5031 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5032 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5033 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5034 res = mp_mod (&t, c, d);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5035 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5036 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5037 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5038 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5039
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5040 /* End: bn_mp_mulmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5041
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5042 /* Start: bn_mp_n_root.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5043 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5044 #ifdef BN_MP_N_ROOT_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5045 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5046 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5047 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5048 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5049 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5050 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5051 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5052 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5053 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5054 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5055 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5056 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5057 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5058 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5059
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5060 /* find the n'th root of an integer
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5061 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5062 * Result found such that (c)b <= a and (c+1)b > a
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5063 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5064 * This algorithm uses Newton's approximation
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5065 * x[i+1] = x[i] - f(x[i])/f'(x[i])
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5066 * which will find the root in log(N) time where
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5067 * each step involves a fair bit. This is not meant to
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5068 * find huge roots [square and cube, etc].
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5069 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5070 int mp_n_root (mp_int * a, mp_digit b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5071 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5072 mp_int t1, t2, t3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5073 int res, neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5074
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5075 /* input must be positive if b is even */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5076 if ((b & 1) == 0 && a->sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5077 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5078 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5079
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5080 if ((res = mp_init (&t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5081 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5082 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5083
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5084 if ((res = mp_init (&t2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5085 goto LBL_T1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5086 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5087
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5088 if ((res = mp_init (&t3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5089 goto LBL_T2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5090 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5091
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5092 /* if a is negative fudge the sign but keep track */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5093 neg = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5094 a->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5095
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5096 /* t2 = 2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5097 mp_set (&t2, 2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5098
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5099 do {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5100 /* t1 = t2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5101 if ((res = mp_copy (&t2, &t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5102 goto LBL_T3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5103 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5104
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5105 /* t2 = t1 - ((t1*b - a) / (b t1*(b-1))) /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5106
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5107 /* t3 = t1*(b-1) /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5108 if ((res = mp_expt_d (&t1, b - 1, &t3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5109 goto LBL_T3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5110 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5111
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5112 /* numerator */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5113 /* t2 = t1*b /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5114 if ((res = mp_mul (&t3, &t1, &t2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5115 goto LBL_T3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5116 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5117
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5118 /* t2 = t1*b - a /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5119 if ((res = mp_sub (&t2, a, &t2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5120 goto LBL_T3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5121 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5122
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5123 /* denominator */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5124 /* t3 = t1*(b-1) b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5125 if ((res = mp_mul_d (&t3, b, &t3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5126 goto LBL_T3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5127 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5128
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5129 /* t3 = (t1*b - a)/(b t1*(b-1)) /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5130 if ((res = mp_div (&t2, &t3, &t3, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5131 goto LBL_T3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5132 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5133
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5134 if ((res = mp_sub (&t1, &t3, &t2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5135 goto LBL_T3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5136 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5137 } while (mp_cmp (&t1, &t2) != MP_EQ);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5138
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5139 /* result can be off by a few so check */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5140 for (;;) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5141 if ((res = mp_expt_d (&t1, b, &t2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5142 goto LBL_T3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5143 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5144
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5145 if (mp_cmp (&t2, a) == MP_GT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5146 if ((res = mp_sub_d (&t1, 1, &t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5147 goto LBL_T3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5148 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5149 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5150 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5151 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5152 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5153
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5154 /* reset the sign of a first */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5155 a->sign = neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5156
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5157 /* set the result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5158 mp_exch (&t1, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5159
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5160 /* set the sign of the result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5161 c->sign = neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5162
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5163 res = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5164
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5165 LBL_T3:mp_clear (&t3);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5166 LBL_T2:mp_clear (&t2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5167 LBL_T1:mp_clear (&t1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5168 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5169 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5170 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5171
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5172 /* End: bn_mp_n_root.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5173
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5174 /* Start: bn_mp_neg.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5175 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5176 #ifdef BN_MP_NEG_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5177 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5178 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5179 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5180 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5181 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5182 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5183 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5184 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5185 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5186 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5187 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5188 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5189 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5190 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5191
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5192 /* b = -a */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5193 int mp_neg (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5194 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5195 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5196 if (a != b) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5197 if ((res = mp_copy (a, b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5198 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5199 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5200 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5201
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5202 if (mp_iszero(b) != MP_YES) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5203 b->sign = (a->sign == MP_ZPOS) ? MP_NEG : MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5204 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5205 b->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5206 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5207
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5208 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5209 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5210 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5211
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5212 /* End: bn_mp_neg.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5213
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5214 /* Start: bn_mp_or.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5215 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5216 #ifdef BN_MP_OR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5217 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5218 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5219 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5220 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5221 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5222 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5223 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5224 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5225 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5226 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5227 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5228 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5229 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5230 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5231
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5232 /* OR two ints together */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5233 int mp_or (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5234 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5235 int res, ix, px;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5236 mp_int t, *x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5237
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5238 if (a->used > b->used) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5239 if ((res = mp_init_copy (&t, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5240 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5241 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5242 px = b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5243 x = b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5244 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5245 if ((res = mp_init_copy (&t, b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5246 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5247 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5248 px = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5249 x = a;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5250 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5251
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5252 for (ix = 0; ix < px; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5253 t.dp[ix] \|= x->dp[ix];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5254 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5255 mp_clamp (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5256 mp_exch (c, &t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5257 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5258 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5259 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5260 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5261
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5262 /* End: bn_mp_or.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5263
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5264 /* Start: bn_mp_prime_fermat.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5265 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5266 #ifdef BN_MP_PRIME_FERMAT_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5267 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5268 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5269 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5270 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5271 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5272 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5273 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5274 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5275 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5276 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5277 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5278 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5279 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5280 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5281
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5282 /* performs one Fermat test.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5283 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5284 * If "a" were prime then b**a == b (mod a) since the order of
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5285 * the multiplicative sub-group would be phi(a) = a-1. That means
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5286 * it would be the same as b(a mod (a-1)) == b1 == b (mod a).
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5287 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5288 * Sets result to 1 if the congruence holds, or zero otherwise.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5289 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5290 int mp_prime_fermat (mp_int * a, mp_int * b, int *result)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5291 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5292 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5293 int err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5294
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5295 /* default to composite */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5296 *result = MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5297
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5298 /* ensure b > 1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5299 if (mp_cmp_d(b, 1) != MP_GT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5300 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5301 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5302
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5303 /* init t */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5304 if ((err = mp_init (&t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5305 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5306 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5307
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5308 /* compute t = b*a mod a /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5309 if ((err = mp_exptmod (b, a, a, &t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5310 goto LBL_T;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5311 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5312
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5313 /* is it equal to b? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5314 if (mp_cmp (&t, b) == MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5315 *result = MP_YES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5316 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5317
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5318 err = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5319 LBL_T:mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5320 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5321 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5322 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5323
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5324 /* End: bn_mp_prime_fermat.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5325
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5326 /* Start: bn_mp_prime_is_divisible.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5327 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5328 #ifdef BN_MP_PRIME_IS_DIVISIBLE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5329 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5330 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5331 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5332 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5333 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5334 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5335 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5336 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5337 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5338 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5339 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5340 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5341 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5342 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5343
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5344 /* determines if an integers is divisible by one
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5345 * of the first PRIME_SIZE primes or not
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5346 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5347 * sets result to 0 if not, 1 if yes
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5348 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5349 int mp_prime_is_divisible (mp_int * a, int *result)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5350 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5351 int err, ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5352 mp_digit res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5353
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5354 /* default to not */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5355 *result = MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5356
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5357 for (ix = 0; ix < PRIME_SIZE; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5358 /* what is a mod LBL_prime_tab[ix] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5359 if ((err = mp_mod_d (a, ltm_prime_tab[ix], &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5360 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5361 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5362
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5363 /* is the residue zero? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5364 if (res == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5365 *result = MP_YES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5366 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5367 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5368 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5369
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5370 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5371 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5372 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5373
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5374 /* End: bn_mp_prime_is_divisible.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5375
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5376 /* Start: bn_mp_prime_is_prime.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5377 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5378 #ifdef BN_MP_PRIME_IS_PRIME_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5379 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5380 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5381 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5382 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5383 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5384 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5385 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5386 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5387 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5388 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5389 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5390 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5391 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5392 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5393
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5394 /* performs a variable number of rounds of Miller-Rabin
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5395 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5396 * Probability of error after t rounds is no more than
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5397
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5398 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5399 * Sets result to 1 if probably prime, 0 otherwise
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5400 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5401 int mp_prime_is_prime (mp_int * a, int t, int *result)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5402 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5403 mp_int b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5404 int ix, err, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5405
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5406 /* default to no */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5407 *result = MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5408
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5409 /* valid value of t? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5410 if (t <= 0 \|\| t > PRIME_SIZE) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5411 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5412 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5413
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5414 /* is the input equal to one of the primes in the table? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5415 for (ix = 0; ix < PRIME_SIZE; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5416 if (mp_cmp_d(a, ltm_prime_tab[ix]) == MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5417 *result = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5418 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5419 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5420 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5421
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5422 /* first perform trial division */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5423 if ((err = mp_prime_is_divisible (a, &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5424 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5425 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5426
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5427 /* return if it was trivially divisible */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5428 if (res == MP_YES) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5429 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5430 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5431
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5432 /* now perform the miller-rabin rounds */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5433 if ((err = mp_init (&b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5434 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5435 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5436
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5437 for (ix = 0; ix < t; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5438 /* set the prime */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5439 mp_set (&b, ltm_prime_tab[ix]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5440
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5441 if ((err = mp_prime_miller_rabin (a, &b, &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5442 goto LBL_B;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5443 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5444
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5445 if (res == MP_NO) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5446 goto LBL_B;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5447 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5448 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5449
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5450 /* passed the test */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5451 *result = MP_YES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5452 LBL_B:mp_clear (&b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5453 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5454 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5455 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5456
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5457 /* End: bn_mp_prime_is_prime.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5458
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5459 /* Start: bn_mp_prime_miller_rabin.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5460 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5461 #ifdef BN_MP_PRIME_MILLER_RABIN_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5462 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5463 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5464 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5465 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5466 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5467 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5468 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5469 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5470 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5471 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5472 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5473 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5474 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5475 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5476
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5477 /* Miller-Rabin test of "a" to the base of "b" as described in
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5478 * HAC pp. 139 Algorithm 4.24
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5479 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5480 * Sets result to 0 if definitely composite or 1 if probably prime.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5481 * Randomly the chance of error is no more than 1/4 and often
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5482 * very much lower.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5483 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5484 int mp_prime_miller_rabin (mp_int * a, mp_int * b, int *result)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5485 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5486 mp_int n1, y, r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5487 int s, j, err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5488
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5489 /* default */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5490 *result = MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5491
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5492 /* ensure b > 1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5493 if (mp_cmp_d(b, 1) != MP_GT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5494 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5495 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5496
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5497 /* get n1 = a - 1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5498 if ((err = mp_init_copy (&n1, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5499 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5500 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5501 if ((err = mp_sub_d (&n1, 1, &n1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5502 goto LBL_N1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5503 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5504
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5505 /* set 2*s r = n1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5506 if ((err = mp_init_copy (&r, &n1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5507 goto LBL_N1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5508 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5509
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5510 /* count the number of least significant bits
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5511 * which are zero
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5512 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5513 s = mp_cnt_lsb(&r);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5514
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5515 /* now divide n - 1 by 2*s /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5516 if ((err = mp_div_2d (&r, s, &r, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5517 goto LBL_R;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5518 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5519
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5520 /* compute y = b*r mod a /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5521 if ((err = mp_init (&y)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5522 goto LBL_R;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5523 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5524 if ((err = mp_exptmod (b, &r, a, &y)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5525 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5526 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5527
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5528 /* if y != 1 and y != n1 do */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5529 if (mp_cmp_d (&y, 1) != MP_EQ && mp_cmp (&y, &n1) != MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5530 j = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5531 /* while j <= s-1 and y != n1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5532 while ((j <= (s - 1)) && mp_cmp (&y, &n1) != MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5533 if ((err = mp_sqrmod (&y, a, &y)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5534 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5535 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5536
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5537 /* if y == 1 then composite */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5538 if (mp_cmp_d (&y, 1) == MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5539 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5540 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5541
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5542 ++j;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5543 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5544
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5545 /* if y != n1 then composite */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5546 if (mp_cmp (&y, &n1) != MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5547 goto LBL_Y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5548 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5549 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5550
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5551 /* probably prime now */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5552 *result = MP_YES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5553 LBL_Y:mp_clear (&y);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5554 LBL_R:mp_clear (&r);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5555 LBL_N1:mp_clear (&n1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5556 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5557 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5558 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5559
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5560 /* End: bn_mp_prime_miller_rabin.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5561
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5562 /* Start: bn_mp_prime_next_prime.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5563 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5564 #ifdef BN_MP_PRIME_NEXT_PRIME_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5565 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5566 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5567 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5568 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5569 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5570 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5571 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5572 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5573 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5574 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5575 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5576 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5577 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5578 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5579
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5580 /* finds the next prime after the number "a" using "t" trials
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5581 * of Miller-Rabin.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5582 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5583 * bbs_style = 1 means the prime must be congruent to 3 mod 4
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5584 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5585 int mp_prime_next_prime(mp_int *a, int t, int bbs_style)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5586 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5587 int err, res, x, y;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5588 mp_digit res_tab[PRIME_SIZE], step, kstep;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5589 mp_int b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5590
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5591 /* ensure t is valid */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5592 if (t <= 0 \|\| t > PRIME_SIZE) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5593 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5594 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5595
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5596 /* force positive */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5597 a->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5598
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5599 /* simple algo if a is less than the largest prime in the table */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5600 if (mp_cmp_d(a, ltm_prime_tab[PRIME_SIZE-1]) == MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5601 /* find which prime it is bigger than */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5602 for (x = PRIME_SIZE - 2; x >= 0; x--) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5603 if (mp_cmp_d(a, ltm_prime_tab[x]) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5604 if (bbs_style == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5605 /* ok we found a prime smaller or
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5606 * equal [so the next is larger]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5607 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5608 * however, the prime must be
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5609 * congruent to 3 mod 4
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5610 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5611 if ((ltm_prime_tab[x + 1] & 3) != 3) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5612 /* scan upwards for a prime congruent to 3 mod 4 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5613 for (y = x + 1; y < PRIME_SIZE; y++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5614 if ((ltm_prime_tab[y] & 3) == 3) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5615 mp_set(a, ltm_prime_tab[y]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5616 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5617 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5618 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5619 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5620 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5621 mp_set(a, ltm_prime_tab[x + 1]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5622 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5623 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5624 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5625 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5626 /* at this point a maybe 1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5627 if (mp_cmp_d(a, 1) == MP_EQ) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5628 mp_set(a, 2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5629 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5630 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5631 /* fall through to the sieve */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5632 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5633
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5634 /* generate a prime congruent to 3 mod 4 or 1/3 mod 4? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5635 if (bbs_style == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5636 kstep = 4;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5637 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5638 kstep = 2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5639 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5640
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5641 /* at this point we will use a combination of a sieve and Miller-Rabin */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5642
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5643 if (bbs_style == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5644 /* if a mod 4 != 3 subtract the correct value to make it so */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5645 if ((a->dp[0] & 3) != 3) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5646 if ((err = mp_sub_d(a, (a->dp[0] & 3) + 1, a)) != MP_OKAY) { return err; };
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5647 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5648 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5649 if (mp_iseven(a) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5650 /* force odd */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5651 if ((err = mp_sub_d(a, 1, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5652 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5653 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5654 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5655 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5656
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5657 /* generate the restable */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5658 for (x = 1; x < PRIME_SIZE; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5659 if ((err = mp_mod_d(a, ltm_prime_tab[x], res_tab + x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5660 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5661 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5662 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5663
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5664 /* init temp used for Miller-Rabin Testing */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5665 if ((err = mp_init(&b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5666 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5667 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5668
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5669 for (;;) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5670 /* skip to the next non-trivially divisible candidate */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5671 step = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5672 do {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5673 /* y == 1 if any residue was zero [e.g. cannot be prime] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5674 y = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5675
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5676 /* increase step to next candidate */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5677 step += kstep;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5678
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5679 /* compute the new residue without using division */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5680 for (x = 1; x < PRIME_SIZE; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5681 /* add the step to each residue */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5682 res_tab[x] += kstep;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5683
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5684 /* subtract the modulus [instead of using division] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5685 if (res_tab[x] >= ltm_prime_tab[x]) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5686 res_tab[x] -= ltm_prime_tab[x];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5687 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5688
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5689 /* set flag if zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5690 if (res_tab[x] == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5691 y = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5692 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5693 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5694 } while (y == 1 && step < ((((mp_digit)1)<<DIGIT_BIT) - kstep));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5695
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5696 /* add the step */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5697 if ((err = mp_add_d(a, step, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5698 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5699 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5700
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5701 /* if didn't pass sieve and step == MAX then skip test */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5702 if (y == 1 && step >= ((((mp_digit)1)<<DIGIT_BIT) - kstep)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5703 continue;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5704 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5705
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5706 /* is this prime? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5707 for (x = 0; x < t; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5708 mp_set(&b, ltm_prime_tab[t]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5709 if ((err = mp_prime_miller_rabin(a, &b, &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5710 goto LBL_ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5711 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5712 if (res == MP_NO) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5713 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5714 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5715 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5716
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5717 if (res == MP_YES) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5718 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5719 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5720 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5721
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5722 err = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5723 LBL_ERR:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5724 mp_clear(&b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5725 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5726 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5727
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5728 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5729
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5730 /* End: bn_mp_prime_next_prime.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5731
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5732 /* Start: bn_mp_prime_rabin_miller_trials.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5733 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5734 #ifdef BN_MP_PRIME_RABIN_MILLER_TRIALS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5735 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5736 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5737 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5738 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5739 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5740 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5741 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5742 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5743 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5744 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5745 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5746 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5747 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5748 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5749
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5750
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5751 static const struct {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5752 int k, t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5753 } sizes[] = {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5754 { 128, 28 },
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5755 { 256, 16 },
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5756 { 384, 10 },
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5757 { 512, 7 },
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5758 { 640, 6 },
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5759 { 768, 5 },
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5760 { 896, 4 },
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5761 { 1024, 4 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5762 };
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5763
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5764 /* returns # of RM trials required for a given bit size */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5765 int mp_prime_rabin_miller_trials(int size)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5766 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5767 int x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5768
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5769 for (x = 0; x < (int)(sizeof(sizes)/(sizeof(sizes[0]))); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5770 if (sizes[x].k == size) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5771 return sizes[x].t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5772 } else if (sizes[x].k > size) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5773 return (x == 0) ? sizes[0].t : sizes[x - 1].t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5774 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5775 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5776 return sizes[x-1].t + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5777 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5778
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5779
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5780 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5781
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5782 /* End: bn_mp_prime_rabin_miller_trials.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5783
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5784 /* Start: bn_mp_prime_random_ex.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5785 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5786 #ifdef BN_MP_PRIME_RANDOM_EX_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5787 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5788 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5789 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5790 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5791 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5792 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5793 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5794 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5795 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5796 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5797 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5798 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5799 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5800 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5801
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5802 /* makes a truly random prime of a given size (bits),
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5803 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5804 * Flags are as follows:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5805 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5806 * LTM_PRIME_BBS - make prime congruent to 3 mod 4
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5807 * LTM_PRIME_SAFE - make sure (p-1)/2 is prime as well (implies LTM_PRIME_BBS)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5808 * LTM_PRIME_2MSB_OFF - make the 2nd highest bit zero
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5809 * LTM_PRIME_2MSB_ON - make the 2nd highest bit one
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5810 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5811 * You have to supply a callback which fills in a buffer with random bytes. "dat" is a parameter you can
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5812 * have passed to the callback (e.g. a state or something). This function doesn't use "dat" itself
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5813 * so it can be NULL
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5814 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5815 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5816
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5817 /* This is possibly the mother of all prime generation functions, muahahahahaha! */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5818 int mp_prime_random_ex(mp_int a, int t, int size, int flags, ltm_prime_callback cb, void dat)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5819 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5820 unsigned char *tmp, maskAND, maskOR_msb, maskOR_lsb;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5821 int res, err, bsize, maskOR_msb_offset;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5822
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5823 /* sanity check the input */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5824 if (size <= 1 \|\| t <= 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5825 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5826 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5827
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5828 /* LTM_PRIME_SAFE implies LTM_PRIME_BBS */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5829 if (flags & LTM_PRIME_SAFE) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5830 flags \|= LTM_PRIME_BBS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5831 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5832
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5833 /* calc the byte size */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5834 bsize = (size>>3) + ((size&7)?1:0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5835
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5836 /* we need a buffer of bsize bytes */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5837 tmp = OPT_CAST(unsigned char) XMALLOC(bsize);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5838 if (tmp == NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5839 return MP_MEM;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5840 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5841
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5842 /* calc the maskAND value for the MSbyte*/
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5843 maskAND = ((size&7) == 0) ? 0xFF : (0xFF >> (8 - (size & 7)));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5844
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5845 /* calc the maskOR_msb */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5846 maskOR_msb = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5847 maskOR_msb_offset = ((size & 7) == 1) ? 1 : 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5848 if (flags & LTM_PRIME_2MSB_ON) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5849 maskOR_msb \|= 0x80 >> ((9 - size) & 7);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5850 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5851
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5852 /* get the maskOR_lsb */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5853 maskOR_lsb = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5854 if (flags & LTM_PRIME_BBS) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5855 maskOR_lsb \|= 3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5856 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5857
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5858 do {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5859 /* read the bytes */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5860 if (cb(tmp, bsize, dat) != bsize) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5861 err = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5862 goto error;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5863 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5864
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5865 /* work over the MSbyte */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5866 tmp[0] &= maskAND;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5867 tmp[0] \|= 1 << ((size - 1) & 7);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5868
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5869 /* mix in the maskORs */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5870 tmp[maskOR_msb_offset] \|= maskOR_msb;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5871 tmp[bsize-1] \|= maskOR_lsb;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5872
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5873 /* read it in */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5874 if ((err = mp_read_unsigned_bin(a, tmp, bsize)) != MP_OKAY) { goto error; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5875
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5876 /* is it prime? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5877 if ((err = mp_prime_is_prime(a, t, &res)) != MP_OKAY) { goto error; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5878 if (res == MP_NO) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5879 continue;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5880 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5881
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5882 if (flags & LTM_PRIME_SAFE) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5883 /* see if (a-1)/2 is prime */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5884 if ((err = mp_sub_d(a, 1, a)) != MP_OKAY) { goto error; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5885 if ((err = mp_div_2(a, a)) != MP_OKAY) { goto error; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5886
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5887 /* is it prime? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5888 if ((err = mp_prime_is_prime(a, t, &res)) != MP_OKAY) { goto error; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5889 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5890 } while (res == MP_NO);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5891
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5892 if (flags & LTM_PRIME_SAFE) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5893 /* restore a to the original value */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5894 if ((err = mp_mul_2(a, a)) != MP_OKAY) { goto error; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5895 if ((err = mp_add_d(a, 1, a)) != MP_OKAY) { goto error; }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5896 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5897
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5898 err = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5899 error:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5900 XFREE(tmp);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5901 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5902 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5903
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5904
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5905 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5906
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5907 /* End: bn_mp_prime_random_ex.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5908
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5909 /* Start: bn_mp_radix_size.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5910 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5911 #ifdef BN_MP_RADIX_SIZE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5912 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5913 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5914 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5915 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5916 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5917 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5918 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5919 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5920 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5921 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5922 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5923 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5924 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5925 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5926
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5927 /* returns size of ASCII reprensentation */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5928 int mp_radix_size (mp_int * a, int radix, int *size)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5929 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5930 int res, digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5931 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5932 mp_digit d;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5933
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5934 *size = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5935
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5936 /* special case for binary */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5937 if (radix == 2) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5938 *size = mp_count_bits (a) + (a->sign == MP_NEG ? 1 : 0) + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5939 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5940 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5941
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5942 /* make sure the radix is in range */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5943 if (radix < 2 \|\| radix > 64) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5944 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5945 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5946
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5947 if (mp_iszero(a) == MP_YES) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5948 *size = 2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5949 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5950 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5951
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5952 /* digs is the digit count */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5953 digs = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5954
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5955 /* if it's negative add one for the sign */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5956 if (a->sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5957 ++digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5958 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5959
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5960 /* init a copy of the input */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5961 if ((res = mp_init_copy (&t, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5962 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5963 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5964
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5965 /* force temp to positive */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5966 t.sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5967
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5968 /* fetch out all of the digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5969 while (mp_iszero (&t) == MP_NO) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5970 if ((res = mp_div_d (&t, (mp_digit) radix, &t, &d)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5971 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5972 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5973 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5974 ++digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5975 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5976 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5977
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5978 /* return digs + 1, the 1 is for the NULL byte that would be required. */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5979 *size = digs + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5980 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5981 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5982
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5983 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5984
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5985 /* End: bn_mp_radix_size.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5986
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5987 /* Start: bn_mp_radix_smap.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5988 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5989 #ifdef BN_MP_RADIX_SMAP_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5990 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5991 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5992 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5993 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5994 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5995 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5996 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5997 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5998 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	5999 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6000 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6001 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6002 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6003 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6004
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6005 /* chars used in radix conversions */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6006 const char *mp_s_rmap = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/";
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6007 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6008
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6009 /* End: bn_mp_radix_smap.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6010
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6011 /* Start: bn_mp_rand.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6012 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6013 #ifdef BN_MP_RAND_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6014 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6015 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6016 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6017 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6018 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6019 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6020 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6021 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6022 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6023 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6024 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6025 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6026 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6027 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6028
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6029 /* makes a pseudo-random int of a given size */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6030 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6031 mp_rand (mp_int * a, int digits)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6032 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6033 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6034 mp_digit d;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6035
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6036 mp_zero (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6037 if (digits <= 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6038 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6039 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6040
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6041 /* first place a random non-zero digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6042 do {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6043 d = ((mp_digit) abs (rand ())) & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6044 } while (d == 0);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6045
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6046 if ((res = mp_add_d (a, d, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6047 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6048 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6049
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6050 while (--digits > 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6051 if ((res = mp_lshd (a, 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6052 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6053 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6054
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6055 if ((res = mp_add_d (a, ((mp_digit) abs (rand ())), a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6056 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6057 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6058 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6059
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6060 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6061 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6062 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6063
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6064 /* End: bn_mp_rand.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6065
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6066 /* Start: bn_mp_read_radix.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6067 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6068 #ifdef BN_MP_READ_RADIX_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6069 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6070 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6071 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6072 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6073 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6074 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6075 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6076 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6077 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6078 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6079 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6080 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6081 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6082 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6083
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6084 /* read a string [ASCII] in a given radix */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6085 int mp_read_radix (mp_int * a, const char *str, int radix)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6086 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6087 int y, res, neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6088 char ch;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6089
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6090 /* make sure the radix is ok */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6091 if (radix < 2 \|\| radix > 64) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6092 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6093 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6094
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6095 /* if the leading digit is a
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6096 * minus set the sign to negative.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6097 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6098 if (*str == '-') {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6099 ++str;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6100 neg = MP_NEG;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6101 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6102 neg = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6103 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6104
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6105 /* set the integer to the default of zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6106 mp_zero (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6107
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6108 /* process each digit of the string */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6109 while (*str) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6110 /* if the radix < 36 the conversion is case insensitive
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6111 * this allows numbers like 1AB and 1ab to represent the same value
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6112 * [e.g. in hex]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6113 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6114 ch = (char) ((radix < 36) ? toupper (str) : str);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6115 for (y = 0; y < 64; y++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6116 if (ch == mp_s_rmap[y]) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6117 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6118 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6119 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6120
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6121 /* if the char was found in the map
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6122 * and is less than the given radix add it
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6123 * to the number, otherwise exit the loop.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6124 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6125 if (y < radix) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6126 if ((res = mp_mul_d (a, (mp_digit) radix, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6127 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6128 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6129 if ((res = mp_add_d (a, (mp_digit) y, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6130 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6131 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6132 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6133 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6134 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6135 ++str;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6136 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6137
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6138 /* set the sign only if a != 0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6139 if (mp_iszero(a) != 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6140 a->sign = neg;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6141 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6142 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6143 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6144 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6145
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6146 /* End: bn_mp_read_radix.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6147
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6148 /* Start: bn_mp_read_signed_bin.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6149 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6150 #ifdef BN_MP_READ_SIGNED_BIN_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6151 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6152 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6153 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6154 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6155 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6156 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6157 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6158 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6159 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6160 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6161 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6162 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6163 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6164 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6165
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6166 /* read signed bin, big endian, first byte is 0==positive or 1==negative */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6167 int mp_read_signed_bin (mp_int * a, const unsigned char *b, int c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6168 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6169 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6170
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6171 /* read magnitude */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6172 if ((res = mp_read_unsigned_bin (a, b + 1, c - 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6173 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6174 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6175
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6176 /* first byte is 0 for positive, non-zero for negative */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6177 if (b[0] == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6178 a->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6179 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6180 a->sign = MP_NEG;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6181 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6182
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6183 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6184 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6185 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6186
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6187 /* End: bn_mp_read_signed_bin.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6188
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6189 /* Start: bn_mp_read_unsigned_bin.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6190 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6191 #ifdef BN_MP_READ_UNSIGNED_BIN_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6192 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6193 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6194 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6195 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6196 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6197 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6198 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6199 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6200 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6201 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6202 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6203 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6204 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6205 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6206
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6207 /* reads a unsigned char array, assumes the msb is stored first [big endian] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6208 int mp_read_unsigned_bin (mp_int * a, const unsigned char *b, int c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6209 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6210 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6211
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6212 /* make sure there are at least two digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6213 if (a->alloc < 2) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6214 if ((res = mp_grow(a, 2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6215 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6216 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6217 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6218
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6219 /* zero the int */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6220 mp_zero (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6221
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6222 /* read the bytes in */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6223 while (c-- > 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6224 if ((res = mp_mul_2d (a, 8, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6225 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6226 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6227
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6228 #ifndef MP_8BIT
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6229 a->dp[0] \|= *b++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6230 a->used += 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6231 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6232 a->dp[0] = (*b & MP_MASK);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6233 a->dp[1] \|= ((*b++ >> 7U) & 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6234 a->used += 2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6235 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6236 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6237 mp_clamp (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6238 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6239 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6240 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6241
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6242 /* End: bn_mp_read_unsigned_bin.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6243
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6244 /* Start: bn_mp_reduce.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6245 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6246 #ifdef BN_MP_REDUCE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6247 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6248 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6249 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6250 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6251 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6252 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6253 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6254 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6255 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6256 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6257 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6258 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6259 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6260 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6261
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6262 /* reduces x mod m, assumes 0 < x < m**2, mu is
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6263 * precomputed via mp_reduce_setup.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6264 * From HAC pp.604 Algorithm 14.42
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6265 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6266 int mp_reduce (mp_int * x, mp_int * m, mp_int * mu)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6267 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6268 mp_int q;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6269 int res, um = m->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6270
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6271 /* q = x */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6272 if ((res = mp_init_copy (&q, x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6273 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6274 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6275
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6276 /* q1 = x / b*(k-1) /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6277 mp_rshd (&q, um - 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6278
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6279 /* according to HAC this optimization is ok */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6280 if (((unsigned long) um) > (((mp_digit)1) << (DIGIT_BIT - 1))) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6281 if ((res = mp_mul (&q, mu, &q)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6282 goto CLEANUP;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6283 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6284 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6285 #ifdef BN_S_MP_MUL_HIGH_DIGS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6286 if ((res = s_mp_mul_high_digs (&q, mu, &q, um)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6287 goto CLEANUP;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6288 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6289 #elif defined(BN_FAST_S_MP_MUL_HIGH_DIGS_C)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6290 if ((res = fast_s_mp_mul_high_digs (&q, mu, &q, um)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6291 goto CLEANUP;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6292 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6293 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6294 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6295 res = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6296 goto CLEANUP;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6297 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6298 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6299 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6300
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6301 /* q3 = q2 / b*(k+1) /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6302 mp_rshd (&q, um + 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6303
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6304 /* x = x mod b*(k+1), quick (no division) /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6305 if ((res = mp_mod_2d (x, DIGIT_BIT * (um + 1), x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6306 goto CLEANUP;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6307 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6308
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6309 /* q = q * m mod b*(k+1), quick (no division) /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6310 if ((res = s_mp_mul_digs (&q, m, &q, um + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6311 goto CLEANUP;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6312 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6313
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6314 /* x = x - q */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6315 if ((res = mp_sub (x, &q, x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6316 goto CLEANUP;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6317 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6318
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6319 /* If x < 0, add b*(k+1) to it /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6320 if (mp_cmp_d (x, 0) == MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6321 mp_set (&q, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6322 if ((res = mp_lshd (&q, um + 1)) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6323 goto CLEANUP;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6324 if ((res = mp_add (x, &q, x)) != MP_OKAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6325 goto CLEANUP;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6326 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6327
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6328 /* Back off if it's too big */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6329 while (mp_cmp (x, m) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6330 if ((res = s_mp_sub (x, m, x)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6331 goto CLEANUP;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6332 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6333 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6334
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6335 CLEANUP:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6336 mp_clear (&q);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6337
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6338 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6339 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6340 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6341
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6342 /* End: bn_mp_reduce.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6343
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6344 /* Start: bn_mp_reduce_2k.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6345 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6346 #ifdef BN_MP_REDUCE_2K_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6347 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6348 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6349 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6350 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6351 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6352 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6353 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6354 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6355 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6356 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6357 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6358 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6359 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6360 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6361
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6362 /* reduces a modulo n where n is of the form 2*p - d /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6363 int mp_reduce_2k(mp_int a, mp_int n, mp_digit d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6364 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6365 mp_int q;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6366 int p, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6367
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6368 if ((res = mp_init(&q)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6369 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6370 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6371
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6372 p = mp_count_bits(n);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6373 top:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6374 /* q = a/2p, a = a mod 2p */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6375 if ((res = mp_div_2d(a, p, &q, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6376 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6377 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6378
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6379 if (d != 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6380 /* q = q * d */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6381 if ((res = mp_mul_d(&q, d, &q)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6382 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6383 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6384 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6385
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6386 /* a = a + q */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6387 if ((res = s_mp_add(a, &q, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6388 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6389 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6390
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6391 if (mp_cmp_mag(a, n) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6392 s_mp_sub(a, n, a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6393 goto top;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6394 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6395
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6396 ERR:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6397 mp_clear(&q);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6398 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6399 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6400
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6401 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6402
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6403 /* End: bn_mp_reduce_2k.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6404
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6405 /* Start: bn_mp_reduce_2k_l.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6406 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6407 #ifdef BN_MP_REDUCE_2K_L_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6408 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6409 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6410 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6411 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6412 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6413 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6414 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6415 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6416 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6417 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6418 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6419 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6420 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6421 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6422
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6423 /* reduces a modulo n where n is of the form 2**p - d
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6424 This differs from reduce_2k since "d" can be larger
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6425 than a single digit.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6426 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6427 int mp_reduce_2k_l(mp_int a, mp_int n, mp_int *d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6428 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6429 mp_int q;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6430 int p, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6431
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6432 if ((res = mp_init(&q)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6433 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6434 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6435
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6436 p = mp_count_bits(n);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6437 top:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6438 /* q = a/2p, a = a mod 2p */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6439 if ((res = mp_div_2d(a, p, &q, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6440 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6441 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6442
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6443 /* q = q * d */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6444 if ((res = mp_mul(&q, d, &q)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6445 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6446 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6447
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6448 /* a = a + q */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6449 if ((res = s_mp_add(a, &q, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6450 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6451 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6452
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6453 if (mp_cmp_mag(a, n) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6454 s_mp_sub(a, n, a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6455 goto top;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6456 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6457
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6458 ERR:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6459 mp_clear(&q);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6460 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6461 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6462
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6463 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6464
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6465 /* End: bn_mp_reduce_2k_l.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6466
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6467 /* Start: bn_mp_reduce_2k_setup.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6468 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6469 #ifdef BN_MP_REDUCE_2K_SETUP_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6470 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6471 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6472 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6473 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6474 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6475 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6476 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6477 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6478 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6479 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6480 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6481 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6482 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6483 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6484
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6485 /* determines the setup value */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6486 int mp_reduce_2k_setup(mp_int a, mp_digit d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6487 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6488 int res, p;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6489 mp_int tmp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6490
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6491 if ((res = mp_init(&tmp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6492 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6493 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6494
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6495 p = mp_count_bits(a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6496 if ((res = mp_2expt(&tmp, p)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6497 mp_clear(&tmp);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6498 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6499 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6500
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6501 if ((res = s_mp_sub(&tmp, a, &tmp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6502 mp_clear(&tmp);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6503 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6504 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6505
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6506 *d = tmp.dp[0];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6507 mp_clear(&tmp);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6508 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6509 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6510 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6511
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6512 /* End: bn_mp_reduce_2k_setup.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6513
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6514 /* Start: bn_mp_reduce_2k_setup_l.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6515 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6516 #ifdef BN_MP_REDUCE_2K_SETUP_L_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6517 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6518 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6519 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6520 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6521 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6522 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6523 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6524 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6525 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6526 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6527 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6528 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6529 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6530 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6531
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6532 /* determines the setup value */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6533 int mp_reduce_2k_setup_l(mp_int a, mp_int d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6534 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6535 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6536 mp_int tmp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6537
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6538 if ((res = mp_init(&tmp)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6539 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6540 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6541
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6542 if ((res = mp_2expt(&tmp, mp_count_bits(a))) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6543 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6544 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6545
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6546 if ((res = s_mp_sub(&tmp, a, d)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6547 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6548 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6549
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6550 ERR:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6551 mp_clear(&tmp);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6552 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6553 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6554 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6555
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6556 /* End: bn_mp_reduce_2k_setup_l.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6557
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6558 /* Start: bn_mp_reduce_is_2k.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6559 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6560 #ifdef BN_MP_REDUCE_IS_2K_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6561 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6562 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6563 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6564 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6565 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6566 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6567 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6568 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6569 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6570 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6571 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6572 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6573 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6574 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6575
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6576 /* determines if mp_reduce_2k can be used */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6577 int mp_reduce_is_2k(mp_int *a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6578 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6579 int ix, iy, iw;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6580 mp_digit iz;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6581
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6582 if (a->used == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6583 return MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6584 } else if (a->used == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6585 return MP_YES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6586 } else if (a->used > 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6587 iy = mp_count_bits(a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6588 iz = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6589 iw = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6590
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6591 /* Test every bit from the second digit up, must be 1 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6592 for (ix = DIGIT_BIT; ix < iy; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6593 if ((a->dp[iw] & iz) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6594 return MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6595 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6596 iz <<= 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6597 if (iz > (mp_digit)MP_MASK) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6598 ++iw;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6599 iz = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6600 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6601 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6602 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6603 return MP_YES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6604 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6605
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6606 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6607
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6608 /* End: bn_mp_reduce_is_2k.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6609
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6610 /* Start: bn_mp_reduce_is_2k_l.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6611 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6612 #ifdef BN_MP_REDUCE_IS_2K_L_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6613 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6614 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6615 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6616 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6617 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6618 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6619 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6620 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6621 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6622 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6623 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6624 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6625 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6626 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6627
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6628 /* determines if reduce_2k_l can be used */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6629 int mp_reduce_is_2k_l(mp_int *a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6630 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6631 int ix, iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6632
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6633 if (a->used == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6634 return MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6635 } else if (a->used == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6636 return MP_YES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6637 } else if (a->used > 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6638 /* if more than half of the digits are -1 we're sold */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6639 for (iy = ix = 0; ix < a->used; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6640 if (a->dp[ix] == MP_MASK) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6641 ++iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6642 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6643 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6644 return (iy >= (a->used/2)) ? MP_YES : MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6645
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6646 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6647 return MP_NO;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6648 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6649
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6650 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6651
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6652 /* End: bn_mp_reduce_is_2k_l.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6653
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6654 /* Start: bn_mp_reduce_setup.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6655 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6656 #ifdef BN_MP_REDUCE_SETUP_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6657 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6658 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6659 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6660 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6661 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6662 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6663 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6664 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6665 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6666 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6667 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6668 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6669 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6670 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6671
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6672 /* pre-calculate the value required for Barrett reduction
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6673 * For a given modulus "b" it calulates the value required in "a"
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6674 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6675 int mp_reduce_setup (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6676 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6677 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6678
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6679 if ((res = mp_2expt (a, b->used * 2 * DIGIT_BIT)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6680 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6681 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6682 return mp_div (a, b, a, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6683 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6684 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6685
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6686 /* End: bn_mp_reduce_setup.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6687
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6688 /* Start: bn_mp_rshd.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6689 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6690 #ifdef BN_MP_RSHD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6691 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6692 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6693 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6694 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6695 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6696 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6697 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6698 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6699 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6700 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6701 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6702 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6703 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6704 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6705
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6706 /* shift right a certain amount of digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6707 void mp_rshd (mp_int * a, int b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6708 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6709 int x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6710
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6711 /* if b <= 0 then ignore it */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6712 if (b <= 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6713 return;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6714 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6715
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6716 /* if b > used then simply zero it and return */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6717 if (a->used <= b) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6718 mp_zero (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6719 return;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6720 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6721
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6722 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6723 register mp_digit bottom, top;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6724
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6725 /* shift the digits down */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6726
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6727 /* bottom */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6728 bottom = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6729
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6730 /* top [offset into digits] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6731 top = a->dp + b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6732
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6733 /* this is implemented as a sliding window where
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6734 * the window is b-digits long and digits from
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6735 * the top of the window are copied to the bottom
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6736 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6737 * e.g.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6738
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6739 b-2 \| b-1 \| b0 \| b1 \| b2 \| ... \| bb \| ---->
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6740 /\ \| ---->
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6741 \-------------------/ ---->
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6742 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6743 for (x = 0; x < (a->used - b); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6744 bottom++ = top++;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6745 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6746
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6747 /* zero the top digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6748 for (; x < a->used; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6749 *bottom++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6750 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6751 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6752
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6753 /* remove excess digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6754 a->used -= b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6755 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6756 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6757
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6758 /* End: bn_mp_rshd.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6759
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6760 /* Start: bn_mp_set.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6761 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6762 #ifdef BN_MP_SET_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6763 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6764 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6765 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6766 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6767 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6768 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6769 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6770 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6771 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6772 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6773 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6774 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6775 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6776 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6777
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6778 /* set to a digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6779 void mp_set (mp_int * a, mp_digit b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6780 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6781 mp_zero (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6782 a->dp[0] = b & MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6783 a->used = (a->dp[0] != 0) ? 1 : 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6784 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6785 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6786
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6787 /* End: bn_mp_set.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6788
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6789 /* Start: bn_mp_set_int.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6790 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6791 #ifdef BN_MP_SET_INT_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6792 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6793 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6794 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6795 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6796 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6797 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6798 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6799 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6800 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6801 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6802 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6803 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6804 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6805 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6806
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6807 /* set a 32-bit const */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6808 int mp_set_int (mp_int * a, unsigned long b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6809 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6810 int x, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6811
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6812 mp_zero (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6813
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6814 /* set four bits at a time */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6815 for (x = 0; x < 8; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6816 /* shift the number up four bits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6817 if ((res = mp_mul_2d (a, 4, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6818 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6819 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6820
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6821 /* OR in the top four bits of the source */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6822 a->dp[0] \|= (b >> 28) & 15;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6823
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6824 /* shift the source up to the next four bits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6825 b <<= 4;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6826
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6827 /* ensure that digits are not clamped off */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6828 a->used += 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6829 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6830 mp_clamp (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6831 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6832 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6833 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6834
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6835 /* End: bn_mp_set_int.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6836
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6837 /* Start: bn_mp_shrink.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6838 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6839 #ifdef BN_MP_SHRINK_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6840 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6841 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6842 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6843 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6844 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6845 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6846 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6847 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6848 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6849 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6850 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6851 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6852 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6853 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6854
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6855 /* shrink a bignum */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6856 int mp_shrink (mp_int * a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6857 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6858 mp_digit *tmp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6859 if (a->alloc != a->used && a->used > 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6860 if ((tmp = OPT_CAST(mp_digit) XREALLOC (a->dp, sizeof (mp_digit) * a->used)) == NULL) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6861 return MP_MEM;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6862 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6863 a->dp = tmp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6864 a->alloc = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6865 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6866 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6867 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6868 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6869
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6870 /* End: bn_mp_shrink.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6871
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6872 /* Start: bn_mp_signed_bin_size.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6873 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6874 #ifdef BN_MP_SIGNED_BIN_SIZE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6875 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6876 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6877 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6878 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6879 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6880 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6881 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6882 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6883 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6884 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6885 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6886 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6887 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6888 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6889
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6890 /* get the size for an signed equivalent */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6891 int mp_signed_bin_size (mp_int * a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6892 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6893 return 1 + mp_unsigned_bin_size (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6894 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6895 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6896
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6897 /* End: bn_mp_signed_bin_size.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6898
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6899 /* Start: bn_mp_sqr.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6900 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6901 #ifdef BN_MP_SQR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6902 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6903 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6904 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6905 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6906 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6907 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6908 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6909 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6910 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6911 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6912 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6913 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6914 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6915 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6916
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6917 /* computes b = aa /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6918 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6919 mp_sqr (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6920 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6921 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6922
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6923 #ifdef BN_MP_TOOM_SQR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6924 /* use Toom-Cook? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6925 if (a->used >= TOOM_SQR_CUTOFF) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6926 res = mp_toom_sqr(a, b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6927 /* Karatsuba? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6928 } else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6929 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6930 #ifdef BN_MP_KARATSUBA_SQR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6931 if (a->used >= KARATSUBA_SQR_CUTOFF) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6932 res = mp_karatsuba_sqr (a, b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6933 } else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6934 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6935 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6936 #ifdef BN_FAST_S_MP_SQR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6937 /* can we use the fast comba multiplier? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6938 if ((a->used * 2 + 1) < MP_WARRAY &&
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6939 a->used <
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6940 (1 << (sizeof(mp_word) * CHAR_BIT - 2*DIGIT_BIT - 1))) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6941 res = fast_s_mp_sqr (a, b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6942 } else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6943 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6944 #ifdef BN_S_MP_SQR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6945 res = s_mp_sqr (a, b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6946 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6947 res = MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6948 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6949 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6950 b->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6951 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6952 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6953 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6954
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6955 /* End: bn_mp_sqr.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6956
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6957 /* Start: bn_mp_sqrmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6958 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6959 #ifdef BN_MP_SQRMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6960 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6961 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6962 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6963 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6964 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6965 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6966 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6967 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6968 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6969 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6970 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6971 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6972 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6973 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6974
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6975 /* c = a * a (mod b) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6976 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6977 mp_sqrmod (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6978 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6979 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6980 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6981
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6982 if ((res = mp_init (&t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6983 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6984 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6985
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6986 if ((res = mp_sqr (a, &t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6987 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6988 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6989 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6990 res = mp_mod (&t, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6991 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6992 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6993 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6994 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6995
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6996 /* End: bn_mp_sqrmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6997
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6998 /* Start: bn_mp_sqrt.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	6999 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7000 #ifdef BN_MP_SQRT_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7001 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7002 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7003 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7004 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7005 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7006 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7007 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7008 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7009 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7010 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7011 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7012 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7013 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7014 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7015
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7016 /* this function is less generic than mp_n_root, simpler and faster */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7017 int mp_sqrt(mp_int arg, mp_int ret)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7018 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7019 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7020 mp_int t1,t2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7021
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7022 /* must be positive */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7023 if (arg->sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7024 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7025 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7026
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7027 /* easy out */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7028 if (mp_iszero(arg) == MP_YES) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7029 mp_zero(ret);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7030 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7031 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7032
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7033 if ((res = mp_init_copy(&t1, arg)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7034 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7035 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7036
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7037 if ((res = mp_init(&t2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7038 goto E2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7039 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7040
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7041 /* First approx. (not very bad for large arg) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7042 mp_rshd (&t1,t1.used/2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7043
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7044 /* t1 > 0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7045 if ((res = mp_div(arg,&t1,&t2,NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7046 goto E1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7047 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7048 if ((res = mp_add(&t1,&t2,&t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7049 goto E1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7050 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7051 if ((res = mp_div_2(&t1,&t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7052 goto E1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7053 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7054 /* And now t1 > sqrt(arg) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7055 do {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7056 if ((res = mp_div(arg,&t1,&t2,NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7057 goto E1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7058 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7059 if ((res = mp_add(&t1,&t2,&t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7060 goto E1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7061 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7062 if ((res = mp_div_2(&t1,&t1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7063 goto E1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7064 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7065 /* t1 >= sqrt(arg) >= t2 at this point */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7066 } while (mp_cmp_mag(&t1,&t2) == MP_GT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7067
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7068 mp_exch(&t1,ret);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7069
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7070 E1: mp_clear(&t2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7071 E2: mp_clear(&t1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7072 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7073 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7074
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7075 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7076
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7077 /* End: bn_mp_sqrt.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7078
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7079 /* Start: bn_mp_sub.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7080 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7081 #ifdef BN_MP_SUB_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7082 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7083 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7084 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7085 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7086 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7087 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7088 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7089 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7090 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7091 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7092 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7093 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7094 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7095 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7096
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7097 /* high level subtraction (handles signs) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7098 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7099 mp_sub (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7100 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7101 int sa, sb, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7102
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7103 sa = a->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7104 sb = b->sign;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7105
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7106 if (sa != sb) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7107 /* subtract a negative from a positive, OR */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7108 /* subtract a positive from a negative. */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7109 /* In either case, ADD their magnitudes, */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7110 /* and use the sign of the first number. */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7111 c->sign = sa;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7112 res = s_mp_add (a, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7113 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7114 /* subtract a positive from a positive, OR */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7115 /* subtract a negative from a negative. */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7116 /* First, take the difference between their */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7117 /* magnitudes, then... */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7118 if (mp_cmp_mag (a, b) != MP_LT) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7119 /* Copy the sign from the first */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7120 c->sign = sa;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7121 /* The first has a larger or equal magnitude */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7122 res = s_mp_sub (a, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7123 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7124 /* The result has the opposite sign from */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7125 /* the first number. */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7126 c->sign = (sa == MP_ZPOS) ? MP_NEG : MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7127 /* The second has a larger magnitude */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7128 res = s_mp_sub (b, a, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7129 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7130 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7131 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7132 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7133
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7134 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7135
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7136 /* End: bn_mp_sub.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7137
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7138 /* Start: bn_mp_sub_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7139 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7140 #ifdef BN_MP_SUB_D_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7141 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7142 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7143 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7144 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7145 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7146 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7147 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7148 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7149 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7150 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7151 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7152 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7153 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7154 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7155
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7156 /* single digit subtraction */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7157 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7158 mp_sub_d (mp_int * a, mp_digit b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7159 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7160 mp_digit tmpa, tmpc, mu;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7161 int res, ix, oldused;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7162
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7163 /* grow c as required */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7164 if (c->alloc < a->used + 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7165 if ((res = mp_grow(c, a->used + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7166 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7167 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7168 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7169
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7170 /* if a is negative just do an unsigned
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7171 * addition [with fudged signs]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7172 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7173 if (a->sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7174 a->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7175 res = mp_add_d(a, b, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7176 a->sign = c->sign = MP_NEG;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7177 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7178 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7179
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7180 /* setup regs */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7181 oldused = c->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7182 tmpa = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7183 tmpc = c->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7184
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7185 /* if a <= b simply fix the single digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7186 if ((a->used == 1 && a->dp[0] <= b) \|\| a->used == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7187 if (a->used == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7188 tmpc++ = b - tmpa;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7189 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7190 *tmpc++ = b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7191 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7192 ix = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7193
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7194 /* negative/1digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7195 c->sign = MP_NEG;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7196 c->used = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7197 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7198 /* positive/size */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7199 c->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7200 c->used = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7201
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7202 /* subtract first digit */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7203 tmpc = tmpa++ - b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7204 mu = tmpc >> (sizeof(mp_digit) CHAR_BIT - 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7205 *tmpc++ &= MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7206
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7207 /* handle rest of the digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7208 for (ix = 1; ix < a->used; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7209 tmpc = tmpa++ - mu;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7210 mu = tmpc >> (sizeof(mp_digit) CHAR_BIT - 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7211 *tmpc++ &= MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7212 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7213 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7214
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7215 /* zero excess digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7216 while (ix++ < oldused) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7217 *tmpc++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7218 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7219 mp_clamp(c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7220 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7221 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7222
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7223 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7224
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7225 /* End: bn_mp_sub_d.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7226
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7227 /* Start: bn_mp_submod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7228 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7229 #ifdef BN_MP_SUBMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7230 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7231 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7232 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7233 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7234 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7235 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7236 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7237 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7238 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7239 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7240 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7241 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7242 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7243 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7244
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7245 /* d = a - b (mod c) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7246 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7247 mp_submod (mp_int * a, mp_int * b, mp_int * c, mp_int * d)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7248 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7249 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7250 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7251
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7252
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7253 if ((res = mp_init (&t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7254 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7255 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7256
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7257 if ((res = mp_sub (a, b, &t)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7258 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7259 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7260 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7261 res = mp_mod (&t, c, d);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7262 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7263 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7264 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7265 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7266
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7267 /* End: bn_mp_submod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7268
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7269 /* Start: bn_mp_to_signed_bin.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7270 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7271 #ifdef BN_MP_TO_SIGNED_BIN_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7272 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7273 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7274 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7275 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7276 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7277 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7278 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7279 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7280 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7281 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7282 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7283 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7284 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7285 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7286
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7287 /* store in signed [big endian] format */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7288 int mp_to_signed_bin (mp_int * a, unsigned char *b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7289 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7290 int res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7291
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7292 if ((res = mp_to_unsigned_bin (a, b + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7293 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7294 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7295 b[0] = (unsigned char) ((a->sign == MP_ZPOS) ? 0 : 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7296 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7297 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7298 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7299
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7300 /* End: bn_mp_to_signed_bin.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7301
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7302 /* Start: bn_mp_to_signed_bin_n.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7303 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7304 #ifdef BN_MP_TO_SIGNED_BIN_N_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7305 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7306 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7307 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7308 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7309 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7310 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7311 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7312 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7313 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7314 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7315 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7316 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7317 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7318 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7319
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7320 /* store in signed [big endian] format */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7321 int mp_to_signed_bin_n (mp_int * a, unsigned char b, unsigned long outlen)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7322 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7323 if (*outlen < (unsigned long)mp_signed_bin_size(a)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7324 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7325 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7326 *outlen = mp_signed_bin_size(a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7327 return mp_to_signed_bin(a, b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7328 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7329 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7330
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7331 /* End: bn_mp_to_signed_bin_n.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7332
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7333 /* Start: bn_mp_to_unsigned_bin.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7334 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7335 #ifdef BN_MP_TO_UNSIGNED_BIN_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7336 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7337 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7338 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7339 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7340 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7341 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7342 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7343 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7344 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7345 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7346 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7347 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7348 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7349 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7350
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7351 /* store in unsigned [big endian] format */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7352 int mp_to_unsigned_bin (mp_int * a, unsigned char *b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7353 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7354 int x, res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7355 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7356
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7357 if ((res = mp_init_copy (&t, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7358 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7359 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7360
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7361 x = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7362 while (mp_iszero (&t) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7363 #ifndef MP_8BIT
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7364 b[x++] = (unsigned char) (t.dp[0] & 255);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7365 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7366 b[x++] = (unsigned char) (t.dp[0] \| ((t.dp[1] & 0x01) << 7));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7367 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7368 if ((res = mp_div_2d (&t, 8, &t, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7369 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7370 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7371 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7372 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7373 bn_reverse (b, x);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7374 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7375 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7376 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7377 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7378
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7379 /* End: bn_mp_to_unsigned_bin.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7380
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7381 /* Start: bn_mp_to_unsigned_bin_n.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7382 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7383 #ifdef BN_MP_TO_UNSIGNED_BIN_N_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7384 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7385 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7386 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7387 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7388 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7389 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7390 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7391 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7392 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7393 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7394 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7395 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7396 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7397 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7398
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7399 /* store in unsigned [big endian] format */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7400 int mp_to_unsigned_bin_n (mp_int * a, unsigned char b, unsigned long outlen)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7401 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7402 if (*outlen < (unsigned long)mp_unsigned_bin_size(a)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7403 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7404 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7405 *outlen = mp_unsigned_bin_size(a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7406 return mp_to_unsigned_bin(a, b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7407 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7408 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7409
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7410 /* End: bn_mp_to_unsigned_bin_n.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7411
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7412 /* Start: bn_mp_toom_mul.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7413 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7414 #ifdef BN_MP_TOOM_MUL_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7415 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7416 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7417 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7418 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7419 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7420 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7421 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7422 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7423 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7424 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7425 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7426 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7427 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7428 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7429
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7430 /* multiplication using the Toom-Cook 3-way algorithm
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7431 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7432 * Much more complicated than Karatsuba but has a lower
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7433 * asymptotic running time of O(N**1.464). This algorithm is
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7434 * only particularly useful on VERY large inputs
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7435 * (we're talking 1000s of digits here...).
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7436 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7437 int mp_toom_mul(mp_int a, mp_int b, mp_int *c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7438 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7439 mp_int w0, w1, w2, w3, w4, tmp1, tmp2, a0, a1, a2, b0, b1, b2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7440 int res, B;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7441
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7442 /* init temps */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7443 if ((res = mp_init_multi(&w0, &w1, &w2, &w3, &w4,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7444 &a0, &a1, &a2, &b0, &b1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7445 &b2, &tmp1, &tmp2, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7446 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7447 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7448
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7449 /* B */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7450 B = MIN(a->used, b->used) / 3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7451
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7452 /* a = a2 * B*2 + a1 B + a0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7453 if ((res = mp_mod_2d(a, DIGIT_BIT * B, &a0)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7454 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7455 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7456
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7457 if ((res = mp_copy(a, &a1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7458 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7459 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7460 mp_rshd(&a1, B);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7461 mp_mod_2d(&a1, DIGIT_BIT * B, &a1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7462
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7463 if ((res = mp_copy(a, &a2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7464 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7465 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7466 mp_rshd(&a2, B*2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7467
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7468 /* b = b2 * B*2 + b1 B + b0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7469 if ((res = mp_mod_2d(b, DIGIT_BIT * B, &b0)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7470 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7471 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7472
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7473 if ((res = mp_copy(b, &b1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7474 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7475 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7476 mp_rshd(&b1, B);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7477 mp_mod_2d(&b1, DIGIT_BIT * B, &b1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7478
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7479 if ((res = mp_copy(b, &b2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7480 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7481 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7482 mp_rshd(&b2, B*2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7483
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7484 /* w0 = a0b0 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7485 if ((res = mp_mul(&a0, &b0, &w0)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7486 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7487 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7488
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7489 /* w4 = a2 * b2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7490 if ((res = mp_mul(&a2, &b2, &w4)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7491 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7492 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7493
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7494 /* w1 = (a2 + 2(a1 + 2a0))(b2 + 2(b1 + 2b0)) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7495 if ((res = mp_mul_2(&a0, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7496 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7497 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7498 if ((res = mp_add(&tmp1, &a1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7499 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7500 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7501 if ((res = mp_mul_2(&tmp1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7502 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7503 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7504 if ((res = mp_add(&tmp1, &a2, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7505 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7506 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7507
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7508 if ((res = mp_mul_2(&b0, &tmp2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7509 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7510 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7511 if ((res = mp_add(&tmp2, &b1, &tmp2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7512 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7513 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7514 if ((res = mp_mul_2(&tmp2, &tmp2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7515 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7516 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7517 if ((res = mp_add(&tmp2, &b2, &tmp2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7518 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7519 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7520
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7521 if ((res = mp_mul(&tmp1, &tmp2, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7522 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7523 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7524
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7525 /* w3 = (a0 + 2(a1 + 2a2))(b0 + 2(b1 + 2b2)) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7526 if ((res = mp_mul_2(&a2, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7527 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7528 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7529 if ((res = mp_add(&tmp1, &a1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7530 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7531 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7532 if ((res = mp_mul_2(&tmp1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7533 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7534 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7535 if ((res = mp_add(&tmp1, &a0, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7536 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7537 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7538
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7539 if ((res = mp_mul_2(&b2, &tmp2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7540 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7541 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7542 if ((res = mp_add(&tmp2, &b1, &tmp2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7543 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7544 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7545 if ((res = mp_mul_2(&tmp2, &tmp2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7546 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7547 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7548 if ((res = mp_add(&tmp2, &b0, &tmp2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7549 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7550 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7551
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7552 if ((res = mp_mul(&tmp1, &tmp2, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7553 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7554 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7555
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7556
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7557 /* w2 = (a2 + a1 + a0)(b2 + b1 + b0) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7558 if ((res = mp_add(&a2, &a1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7559 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7560 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7561 if ((res = mp_add(&tmp1, &a0, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7562 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7563 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7564 if ((res = mp_add(&b2, &b1, &tmp2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7565 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7566 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7567 if ((res = mp_add(&tmp2, &b0, &tmp2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7568 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7569 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7570 if ((res = mp_mul(&tmp1, &tmp2, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7571 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7572 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7573
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7574 /* now solve the matrix
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7575
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7576 0 0 0 0 1
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7577 1 2 4 8 16
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7578 1 1 1 1 1
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7579 16 8 4 2 1
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7580 1 0 0 0 0
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7581
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7582 using 12 subtractions, 4 shifts,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7583 2 small divisions and 1 small multiplication
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7584 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7585
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7586 /* r1 - r4 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7587 if ((res = mp_sub(&w1, &w4, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7588 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7589 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7590 /* r3 - r0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7591 if ((res = mp_sub(&w3, &w0, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7592 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7593 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7594 /* r1/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7595 if ((res = mp_div_2(&w1, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7596 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7597 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7598 /* r3/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7599 if ((res = mp_div_2(&w3, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7600 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7601 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7602 /* r2 - r0 - r4 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7603 if ((res = mp_sub(&w2, &w0, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7604 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7605 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7606 if ((res = mp_sub(&w2, &w4, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7607 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7608 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7609 /* r1 - r2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7610 if ((res = mp_sub(&w1, &w2, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7611 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7612 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7613 /* r3 - r2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7614 if ((res = mp_sub(&w3, &w2, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7615 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7616 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7617 /* r1 - 8r0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7618 if ((res = mp_mul_2d(&w0, 3, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7619 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7620 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7621 if ((res = mp_sub(&w1, &tmp1, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7622 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7623 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7624 /* r3 - 8r4 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7625 if ((res = mp_mul_2d(&w4, 3, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7626 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7627 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7628 if ((res = mp_sub(&w3, &tmp1, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7629 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7630 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7631 /* 3r2 - r1 - r3 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7632 if ((res = mp_mul_d(&w2, 3, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7633 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7634 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7635 if ((res = mp_sub(&w2, &w1, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7636 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7637 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7638 if ((res = mp_sub(&w2, &w3, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7639 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7640 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7641 /* r1 - r2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7642 if ((res = mp_sub(&w1, &w2, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7643 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7644 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7645 /* r3 - r2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7646 if ((res = mp_sub(&w3, &w2, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7647 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7648 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7649 /* r1/3 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7650 if ((res = mp_div_3(&w1, &w1, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7651 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7652 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7653 /* r3/3 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7654 if ((res = mp_div_3(&w3, &w3, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7655 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7656 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7657
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7658 /* at this point shift W[n] by Bn /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7659 if ((res = mp_lshd(&w1, 1*B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7660 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7661 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7662 if ((res = mp_lshd(&w2, 2*B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7663 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7664 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7665 if ((res = mp_lshd(&w3, 3*B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7666 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7667 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7668 if ((res = mp_lshd(&w4, 4*B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7669 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7670 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7671
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7672 if ((res = mp_add(&w0, &w1, c)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7673 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7674 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7675 if ((res = mp_add(&w2, &w3, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7676 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7677 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7678 if ((res = mp_add(&w4, &tmp1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7679 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7680 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7681 if ((res = mp_add(&tmp1, c, c)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7682 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7683 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7684
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7685 ERR:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7686 mp_clear_multi(&w0, &w1, &w2, &w3, &w4,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7687 &a0, &a1, &a2, &b0, &b1,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7688 &b2, &tmp1, &tmp2, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7689 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7690 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7691
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7692 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7693
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7694 /* End: bn_mp_toom_mul.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7695
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7696 /* Start: bn_mp_toom_sqr.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7697 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7698 #ifdef BN_MP_TOOM_SQR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7699 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7700 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7701 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7702 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7703 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7704 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7705 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7706 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7707 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7708 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7709 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7710 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7711 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7712 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7713
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7714 /* squaring using Toom-Cook 3-way algorithm */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7715 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7716 mp_toom_sqr(mp_int a, mp_int b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7717 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7718 mp_int w0, w1, w2, w3, w4, tmp1, a0, a1, a2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7719 int res, B;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7720
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7721 /* init temps */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7722 if ((res = mp_init_multi(&w0, &w1, &w2, &w3, &w4, &a0, &a1, &a2, &tmp1, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7723 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7724 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7725
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7726 /* B */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7727 B = a->used / 3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7728
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7729 /* a = a2 * B*2 + a1 B + a0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7730 if ((res = mp_mod_2d(a, DIGIT_BIT * B, &a0)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7731 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7732 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7733
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7734 if ((res = mp_copy(a, &a1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7735 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7736 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7737 mp_rshd(&a1, B);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7738 mp_mod_2d(&a1, DIGIT_BIT * B, &a1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7739
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7740 if ((res = mp_copy(a, &a2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7741 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7742 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7743 mp_rshd(&a2, B*2);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7744
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7745 /* w0 = a0a0 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7746 if ((res = mp_sqr(&a0, &w0)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7747 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7748 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7749
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7750 /* w4 = a2 * a2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7751 if ((res = mp_sqr(&a2, &w4)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7752 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7753 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7754
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7755 /* w1 = (a2 + 2(a1 + 2a0))*2 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7756 if ((res = mp_mul_2(&a0, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7757 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7758 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7759 if ((res = mp_add(&tmp1, &a1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7760 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7761 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7762 if ((res = mp_mul_2(&tmp1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7763 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7764 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7765 if ((res = mp_add(&tmp1, &a2, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7766 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7767 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7768
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7769 if ((res = mp_sqr(&tmp1, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7770 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7771 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7772
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7773 /* w3 = (a0 + 2(a1 + 2a2))*2 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7774 if ((res = mp_mul_2(&a2, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7775 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7776 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7777 if ((res = mp_add(&tmp1, &a1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7778 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7779 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7780 if ((res = mp_mul_2(&tmp1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7781 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7782 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7783 if ((res = mp_add(&tmp1, &a0, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7784 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7785 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7786
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7787 if ((res = mp_sqr(&tmp1, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7788 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7789 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7790
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7791
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7792 /* w2 = (a2 + a1 + a0)*2 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7793 if ((res = mp_add(&a2, &a1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7794 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7795 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7796 if ((res = mp_add(&tmp1, &a0, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7797 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7798 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7799 if ((res = mp_sqr(&tmp1, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7800 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7801 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7802
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7803 /* now solve the matrix
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7804
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7805 0 0 0 0 1
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7806 1 2 4 8 16
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7807 1 1 1 1 1
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7808 16 8 4 2 1
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7809 1 0 0 0 0
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7810
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7811 using 12 subtractions, 4 shifts, 2 small divisions and 1 small multiplication.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7812 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7813
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7814 /* r1 - r4 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7815 if ((res = mp_sub(&w1, &w4, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7816 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7817 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7818 /* r3 - r0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7819 if ((res = mp_sub(&w3, &w0, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7820 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7821 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7822 /* r1/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7823 if ((res = mp_div_2(&w1, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7824 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7825 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7826 /* r3/2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7827 if ((res = mp_div_2(&w3, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7828 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7829 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7830 /* r2 - r0 - r4 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7831 if ((res = mp_sub(&w2, &w0, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7832 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7833 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7834 if ((res = mp_sub(&w2, &w4, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7835 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7836 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7837 /* r1 - r2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7838 if ((res = mp_sub(&w1, &w2, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7839 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7840 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7841 /* r3 - r2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7842 if ((res = mp_sub(&w3, &w2, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7843 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7844 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7845 /* r1 - 8r0 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7846 if ((res = mp_mul_2d(&w0, 3, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7847 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7848 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7849 if ((res = mp_sub(&w1, &tmp1, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7850 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7851 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7852 /* r3 - 8r4 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7853 if ((res = mp_mul_2d(&w4, 3, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7854 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7855 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7856 if ((res = mp_sub(&w3, &tmp1, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7857 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7858 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7859 /* 3r2 - r1 - r3 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7860 if ((res = mp_mul_d(&w2, 3, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7861 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7862 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7863 if ((res = mp_sub(&w2, &w1, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7864 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7865 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7866 if ((res = mp_sub(&w2, &w3, &w2)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7867 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7868 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7869 /* r1 - r2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7870 if ((res = mp_sub(&w1, &w2, &w1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7871 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7872 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7873 /* r3 - r2 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7874 if ((res = mp_sub(&w3, &w2, &w3)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7875 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7876 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7877 /* r1/3 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7878 if ((res = mp_div_3(&w1, &w1, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7879 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7880 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7881 /* r3/3 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7882 if ((res = mp_div_3(&w3, &w3, NULL)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7883 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7884 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7885
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7886 /* at this point shift W[n] by Bn /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7887 if ((res = mp_lshd(&w1, 1*B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7888 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7889 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7890 if ((res = mp_lshd(&w2, 2*B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7891 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7892 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7893 if ((res = mp_lshd(&w3, 3*B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7894 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7895 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7896 if ((res = mp_lshd(&w4, 4*B)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7897 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7898 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7899
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7900 if ((res = mp_add(&w0, &w1, b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7901 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7902 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7903 if ((res = mp_add(&w2, &w3, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7904 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7905 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7906 if ((res = mp_add(&w4, &tmp1, &tmp1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7907 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7908 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7909 if ((res = mp_add(&tmp1, b, b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7910 goto ERR;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7911 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7912
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7913 ERR:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7914 mp_clear_multi(&w0, &w1, &w2, &w3, &w4, &a0, &a1, &a2, &tmp1, NULL);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7915 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7916 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7917
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7918 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7919
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7920 /* End: bn_mp_toom_sqr.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7921
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7922 /* Start: bn_mp_toradix.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7923 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7924 #ifdef BN_MP_TORADIX_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7925 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7926 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7927 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7928 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7929 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7930 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7931 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7932 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7933 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7934 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7935 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7936 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7937 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7938 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7939
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7940 /* stores a bignum as a ASCII string in a given radix (2..64) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7941 int mp_toradix (mp_int * a, char *str, int radix)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7942 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7943 int res, digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7944 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7945 mp_digit d;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7946 char *_s = str;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7947
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7948 /* check range of the radix */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7949 if (radix < 2 \|\| radix > 64) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7950 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7951 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7952
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7953 /* quick out if its zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7954 if (mp_iszero(a) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7955 *str++ = '0';
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7956 *str = '\0';
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7957 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7958 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7959
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7960 if ((res = mp_init_copy (&t, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7961 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7962 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7963
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7964 /* if it is negative output a - */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7965 if (t.sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7966 ++_s;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7967 *str++ = '-';
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7968 t.sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7969 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7970
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7971 digs = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7972 while (mp_iszero (&t) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7973 if ((res = mp_div_d (&t, (mp_digit) radix, &t, &d)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7974 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7975 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7976 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7977 *str++ = mp_s_rmap[d];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7978 ++digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7979 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7980
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7981 /* reverse the digits of the string. In this case _s points
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7982 * to the first digit [exluding the sign] of the number]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7983 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7984 bn_reverse ((unsigned char *)_s, digs);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7985
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7986 /* append a NULL so the string is properly terminated */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7987 *str = '\0';
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7988
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7989 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7990 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7991 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7992
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7993 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7994
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7995 /* End: bn_mp_toradix.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7996
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7997 /* Start: bn_mp_toradix_n.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7998 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	7999 #ifdef BN_MP_TORADIX_N_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8000 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8001 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8002 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8003 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8004 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8005 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8006 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8007 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8008 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8009 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8010 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8011 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8012 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8013 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8014
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8015 /* stores a bignum as a ASCII string in a given radix (2..64)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8016 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8017 * Stores upto maxlen-1 chars and always a NULL byte
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8018 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8019 int mp_toradix_n(mp_int * a, char *str, int radix, int maxlen)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8020 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8021 int res, digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8022 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8023 mp_digit d;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8024 char *_s = str;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8025
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8026 /* check range of the maxlen, radix */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8027 if (maxlen < 3 \|\| radix < 2 \|\| radix > 64) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8028 return MP_VAL;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8029 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8030
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8031 /* quick out if its zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8032 if (mp_iszero(a) == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8033 *str++ = '0';
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8034 *str = '\0';
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8035 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8036 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8037
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8038 if ((res = mp_init_copy (&t, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8039 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8040 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8041
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8042 /* if it is negative output a - */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8043 if (t.sign == MP_NEG) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8044 /* we have to reverse our digits later... but not the - sign!! */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8045 ++_s;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8046
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8047 /* store the flag and mark the number as positive */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8048 *str++ = '-';
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8049 t.sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8050
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8051 /* subtract a char */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8052 --maxlen;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8053 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8054
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8055 digs = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8056 while (mp_iszero (&t) == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8057 if ((res = mp_div_d (&t, (mp_digit) radix, &t, &d)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8058 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8059 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8060 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8061 *str++ = mp_s_rmap[d];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8062 ++digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8063
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8064 if (--maxlen == 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8065 /* no more room */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8066 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8067 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8068 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8069
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8070 /* reverse the digits of the string. In this case _s points
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8071 * to the first digit [exluding the sign] of the number]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8072 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8073 bn_reverse ((unsigned char *)_s, digs);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8074
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8075 /* append a NULL so the string is properly terminated */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8076 *str = '\0';
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8077
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8078 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8079 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8080 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8081
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8082 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8083
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8084 /* End: bn_mp_toradix_n.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8085
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8086 /* Start: bn_mp_unsigned_bin_size.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8087 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8088 #ifdef BN_MP_UNSIGNED_BIN_SIZE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8089 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8090 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8091 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8092 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8093 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8094 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8095 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8096 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8097 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8098 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8099 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8100 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8101 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8102 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8103
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8104 /* get the size for an unsigned equivalent */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8105 int mp_unsigned_bin_size (mp_int * a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8106 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8107 int size = mp_count_bits (a);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8108 return (size / 8 + ((size & 7) != 0 ? 1 : 0));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8109 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8110 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8111
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8112 /* End: bn_mp_unsigned_bin_size.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8113
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8114 /* Start: bn_mp_xor.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8115 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8116 #ifdef BN_MP_XOR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8117 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8118 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8119 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8120 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8121 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8122 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8123 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8124 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8125 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8126 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8127 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8128 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8129 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8130 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8131
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8132 /* XOR two ints together */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8133 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8134 mp_xor (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8135 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8136 int res, ix, px;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8137 mp_int t, *x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8138
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8139 if (a->used > b->used) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8140 if ((res = mp_init_copy (&t, a)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8141 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8142 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8143 px = b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8144 x = b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8145 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8146 if ((res = mp_init_copy (&t, b)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8147 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8148 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8149 px = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8150 x = a;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8151 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8152
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8153 for (ix = 0; ix < px; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8154 t.dp[ix] ^= x->dp[ix];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8155 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8156 mp_clamp (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8157 mp_exch (c, &t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8158 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8159 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8160 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8161 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8162
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8163 /* End: bn_mp_xor.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8164
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8165 /* Start: bn_mp_zero.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8166 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8167 #ifdef BN_MP_ZERO_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8168 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8169 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8170 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8171 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8172 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8173 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8174 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8175 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8176 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8177 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8178 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8179 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8180 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8181 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8182
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8183 /* set to zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8184 void mp_zero (mp_int * a)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8185 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8186 int n;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8187 mp_digit *tmp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8188
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8189 a->sign = MP_ZPOS;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8190 a->used = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8191
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8192 tmp = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8193 for (n = 0; n < a->alloc; n++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8194 *tmp++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8195 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8196 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8197 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8198
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8199 /* End: bn_mp_zero.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8200
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8201 /* Start: bn_prime_tab.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8202 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8203 #ifdef BN_PRIME_TAB_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8204 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8205 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8206 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8207 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8208 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8209 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8210 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8211 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8212 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8213 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8214 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8215 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8216 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8217 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8218 const mp_digit ltm_prime_tab[] = {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8219 0x0002, 0x0003, 0x0005, 0x0007, 0x000B, 0x000D, 0x0011, 0x0013,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8220 0x0017, 0x001D, 0x001F, 0x0025, 0x0029, 0x002B, 0x002F, 0x0035,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8221 0x003B, 0x003D, 0x0043, 0x0047, 0x0049, 0x004F, 0x0053, 0x0059,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8222 0x0061, 0x0065, 0x0067, 0x006B, 0x006D, 0x0071, 0x007F,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8223 #ifndef MP_8BIT
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8224 0x0083,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8225 0x0089, 0x008B, 0x0095, 0x0097, 0x009D, 0x00A3, 0x00A7, 0x00AD,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8226 0x00B3, 0x00B5, 0x00BF, 0x00C1, 0x00C5, 0x00C7, 0x00D3, 0x00DF,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8227 0x00E3, 0x00E5, 0x00E9, 0x00EF, 0x00F1, 0x00FB, 0x0101, 0x0107,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8228 0x010D, 0x010F, 0x0115, 0x0119, 0x011B, 0x0125, 0x0133, 0x0137,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8229
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8230 0x0139, 0x013D, 0x014B, 0x0151, 0x015B, 0x015D, 0x0161, 0x0167,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8231 0x016F, 0x0175, 0x017B, 0x017F, 0x0185, 0x018D, 0x0191, 0x0199,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8232 0x01A3, 0x01A5, 0x01AF, 0x01B1, 0x01B7, 0x01BB, 0x01C1, 0x01C9,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8233 0x01CD, 0x01CF, 0x01D3, 0x01DF, 0x01E7, 0x01EB, 0x01F3, 0x01F7,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8234 0x01FD, 0x0209, 0x020B, 0x021D, 0x0223, 0x022D, 0x0233, 0x0239,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8235 0x023B, 0x0241, 0x024B, 0x0251, 0x0257, 0x0259, 0x025F, 0x0265,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8236 0x0269, 0x026B, 0x0277, 0x0281, 0x0283, 0x0287, 0x028D, 0x0293,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8237 0x0295, 0x02A1, 0x02A5, 0x02AB, 0x02B3, 0x02BD, 0x02C5, 0x02CF,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8238
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8239 0x02D7, 0x02DD, 0x02E3, 0x02E7, 0x02EF, 0x02F5, 0x02F9, 0x0301,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8240 0x0305, 0x0313, 0x031D, 0x0329, 0x032B, 0x0335, 0x0337, 0x033B,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8241 0x033D, 0x0347, 0x0355, 0x0359, 0x035B, 0x035F, 0x036D, 0x0371,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8242 0x0373, 0x0377, 0x038B, 0x038F, 0x0397, 0x03A1, 0x03A9, 0x03AD,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8243 0x03B3, 0x03B9, 0x03C7, 0x03CB, 0x03D1, 0x03D7, 0x03DF, 0x03E5,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8244 0x03F1, 0x03F5, 0x03FB, 0x03FD, 0x0407, 0x0409, 0x040F, 0x0419,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8245 0x041B, 0x0425, 0x0427, 0x042D, 0x043F, 0x0443, 0x0445, 0x0449,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8246 0x044F, 0x0455, 0x045D, 0x0463, 0x0469, 0x047F, 0x0481, 0x048B,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8247
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8248 0x0493, 0x049D, 0x04A3, 0x04A9, 0x04B1, 0x04BD, 0x04C1, 0x04C7,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8249 0x04CD, 0x04CF, 0x04D5, 0x04E1, 0x04EB, 0x04FD, 0x04FF, 0x0503,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8250 0x0509, 0x050B, 0x0511, 0x0515, 0x0517, 0x051B, 0x0527, 0x0529,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8251 0x052F, 0x0551, 0x0557, 0x055D, 0x0565, 0x0577, 0x0581, 0x058F,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8252 0x0593, 0x0595, 0x0599, 0x059F, 0x05A7, 0x05AB, 0x05AD, 0x05B3,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8253 0x05BF, 0x05C9, 0x05CB, 0x05CF, 0x05D1, 0x05D5, 0x05DB, 0x05E7,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8254 0x05F3, 0x05FB, 0x0607, 0x060D, 0x0611, 0x0617, 0x061F, 0x0623,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8255 0x062B, 0x062F, 0x063D, 0x0641, 0x0647, 0x0649, 0x064D, 0x0653
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8256 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8257 };
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8258 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8259
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8260 /* End: bn_prime_tab.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8261
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8262 /* Start: bn_reverse.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8263 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8264 #ifdef BN_REVERSE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8265 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8266 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8267 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8268 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8269 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8270 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8271 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8272 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8273 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8274 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8275 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8276 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8277 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8278 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8279
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8280 /* reverse an array, used for radix code */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8281 void
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8282 bn_reverse (unsigned char *s, int len)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8283 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8284 int ix, iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8285 unsigned char t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8286
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8287 ix = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8288 iy = len - 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8289 while (ix < iy) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8290 t = s[ix];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8291 s[ix] = s[iy];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8292 s[iy] = t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8293 ++ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8294 --iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8295 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8296 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8297 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8298
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8299 /* End: bn_reverse.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8300
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8301 /* Start: bn_s_mp_add.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8302 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8303 #ifdef BN_S_MP_ADD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8304 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8305 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8306 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8307 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8308 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8309 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8310 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8311 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8312 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8313 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8314 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8315 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8316 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8317 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8318
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8319 /* low level addition, based on HAC pp.594, Algorithm 14.7 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8320 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8321 s_mp_add (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8322 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8323 mp_int *x;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8324 int olduse, res, min, max;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8325
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8326 /* find sizes, we let \|a\| <= \|b\| which means we have to sort
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8327 * them. "x" will point to the input with the most digits
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8328 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8329 if (a->used > b->used) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8330 min = b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8331 max = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8332 x = a;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8333 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8334 min = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8335 max = b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8336 x = b;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8337 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8338
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8339 /* init result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8340 if (c->alloc < max + 1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8341 if ((res = mp_grow (c, max + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8342 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8343 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8344 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8345
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8346 /* get old used digit count and set new one */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8347 olduse = c->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8348 c->used = max + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8349
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8350 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8351 register mp_digit u, tmpa, tmpb, *tmpc;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8352 register int i;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8353
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8354 /* alias for digit pointers */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8355
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8356 /* first input */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8357 tmpa = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8358
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8359 /* second input */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8360 tmpb = b->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8361
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8362 /* destination */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8363 tmpc = c->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8364
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8365 /* zero the carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8366 u = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8367 for (i = 0; i < min; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8368 /* Compute the sum at one digit, T[i] = A[i] + B[i] + U */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8369 tmpc = tmpa++ + *tmpb++ + u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8370
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8371 /* U = carry bit of T[i] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8372 u = *tmpc >> ((mp_digit)DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8373
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8374 /* take away carry bit from T[i] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8375 *tmpc++ &= MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8376 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8377
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8378 /* now copy higher words if any, that is in A+B
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8379 * if A or B has more digits add those in
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8380 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8381 if (min != max) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8382 for (; i < max; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8383 /* T[i] = X[i] + U */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8384 *tmpc = x->dp[i] + u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8385
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8386 /* U = carry bit of T[i] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8387 u = *tmpc >> ((mp_digit)DIGIT_BIT);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8388
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8389 /* take away carry bit from T[i] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8390 *tmpc++ &= MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8391 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8392 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8393
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8394 /* add carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8395 *tmpc++ = u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8396
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8397 /* clear digits above oldused */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8398 for (i = c->used; i < olduse; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8399 *tmpc++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8400 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8401 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8402
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8403 mp_clamp (c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8404 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8405 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8406 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8407
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8408 /* End: bn_s_mp_add.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8409
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8410 /* Start: bn_s_mp_exptmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8411 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8412 #ifdef BN_S_MP_EXPTMOD_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8413 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8414 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8415 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8416 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8417 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8418 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8419 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8420 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8421 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8422 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8423 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8424 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8425 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8426 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8427
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8428 #ifdef MP_LOW_MEM
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8429 #define TAB_SIZE 32
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8430 #else
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8431 #define TAB_SIZE 256
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8432 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8433
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8434 int s_mp_exptmod (mp_int * G, mp_int * X, mp_int * P, mp_int * Y, int redmode)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8435 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8436 mp_int M[TAB_SIZE], res, mu;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8437 mp_digit buf;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8438 int err, bitbuf, bitcpy, bitcnt, mode, digidx, x, y, winsize;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8439 int (redux)(mp_int,mp_int,mp_int);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8440
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8441 /* find window size */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8442 x = mp_count_bits (X);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8443 if (x <= 7) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8444 winsize = 2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8445 } else if (x <= 36) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8446 winsize = 3;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8447 } else if (x <= 140) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8448 winsize = 4;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8449 } else if (x <= 450) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8450 winsize = 5;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8451 } else if (x <= 1303) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8452 winsize = 6;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8453 } else if (x <= 3529) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8454 winsize = 7;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8455 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8456 winsize = 8;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8457 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8458
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8459 #ifdef MP_LOW_MEM
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8460 if (winsize > 5) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8461 winsize = 5;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8462 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8463 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8464
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8465 /* init M array */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8466 /* init first cell */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8467 if ((err = mp_init(&M[1])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8468 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8469 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8470
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8471 /* now init the second half of the array */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8472 for (x = 1<<(winsize-1); x < (1 << winsize); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8473 if ((err = mp_init(&M[x])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8474 for (y = 1<<(winsize-1); y < x; y++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8475 mp_clear (&M[y]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8476 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8477 mp_clear(&M[1]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8478 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8479 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8480 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8481
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8482 /* create mu, used for Barrett reduction */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8483 if ((err = mp_init (&mu)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8484 goto LBL_M;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8485 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8486
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8487 if (redmode == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8488 if ((err = mp_reduce_setup (&mu, P)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8489 goto LBL_MU;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8490 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8491 redux = mp_reduce;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8492 } else {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8493 if ((err = mp_reduce_2k_setup_l (P, &mu)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8494 goto LBL_MU;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8495 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8496 redux = mp_reduce_2k_l;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8497 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8498
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8499 /* create M table
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8500 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8501 * The M table contains powers of the base,
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8502 * e.g. M[x] = G**x mod P
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8503 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8504 * The first half of the table is not
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8505 * computed though accept for M[0] and M[1]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8506 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8507 if ((err = mp_mod (G, P, &M[1])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8508 goto LBL_MU;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8509 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8510
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8511 /* compute the value at M[1<<(winsize-1)] by squaring
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8512 * M[1] (winsize-1) times
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8513 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8514 if ((err = mp_copy (&M[1], &M[1 << (winsize - 1)])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8515 goto LBL_MU;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8516 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8517
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8518 for (x = 0; x < (winsize - 1); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8519 /* square it */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8520 if ((err = mp_sqr (&M[1 << (winsize - 1)],
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8521 &M[1 << (winsize - 1)])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8522 goto LBL_MU;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8523 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8524
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8525 /* reduce modulo P */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8526 if ((err = redux (&M[1 << (winsize - 1)], P, &mu)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8527 goto LBL_MU;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8528 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8529 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8530
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8531 /* create upper table, that is M[x] = M[x-1] * M[1] (mod P)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8532 * for x = (2(winsize - 1) + 1) to (2winsize - 1)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8533 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8534 for (x = (1 << (winsize - 1)) + 1; x < (1 << winsize); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8535 if ((err = mp_mul (&M[x - 1], &M[1], &M[x])) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8536 goto LBL_MU;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8537 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8538 if ((err = redux (&M[x], P, &mu)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8539 goto LBL_MU;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8540 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8541 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8542
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8543 /* setup result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8544 if ((err = mp_init (&res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8545 goto LBL_MU;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8546 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8547 mp_set (&res, 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8548
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8549 /* set initial mode and bit cnt */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8550 mode = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8551 bitcnt = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8552 buf = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8553 digidx = X->used - 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8554 bitcpy = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8555 bitbuf = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8556
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8557 for (;;) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8558 /* grab next digit as required */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8559 if (--bitcnt == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8560 /* if digidx == -1 we are out of digits */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8561 if (digidx == -1) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8562 break;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8563 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8564 /* read next digit and reset the bitcnt */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8565 buf = X->dp[digidx--];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8566 bitcnt = (int) DIGIT_BIT;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8567 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8568
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8569 /* grab the next msb from the exponent */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8570 y = (buf >> (mp_digit)(DIGIT_BIT - 1)) & 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8571 buf <<= (mp_digit)1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8572
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8573 /* if the bit is zero and mode == 0 then we ignore it
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8574 * These represent the leading zero bits before the first 1 bit
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8575 * in the exponent. Technically this opt is not required but it
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8576 * does lower the # of trivial squaring/reductions used
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8577 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8578 if (mode == 0 && y == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8579 continue;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8580 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8581
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8582 /* if the bit is zero and mode == 1 then we square */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8583 if (mode == 1 && y == 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8584 if ((err = mp_sqr (&res, &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8585 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8586 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8587 if ((err = redux (&res, P, &mu)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8588 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8589 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8590 continue;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8591 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8592
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8593 /* else we add it to the window */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8594 bitbuf \|= (y << (winsize - ++bitcpy));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8595 mode = 2;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8596
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8597 if (bitcpy == winsize) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8598 /* ok window is filled so square as required and multiply */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8599 /* square first */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8600 for (x = 0; x < winsize; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8601 if ((err = mp_sqr (&res, &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8602 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8603 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8604 if ((err = redux (&res, P, &mu)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8605 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8606 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8607 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8608
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8609 /* then multiply */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8610 if ((err = mp_mul (&res, &M[bitbuf], &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8611 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8612 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8613 if ((err = redux (&res, P, &mu)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8614 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8615 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8616
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8617 /* empty window and reset */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8618 bitcpy = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8619 bitbuf = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8620 mode = 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8621 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8622 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8623
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8624 /* if bits remain then square/multiply */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8625 if (mode == 2 && bitcpy > 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8626 /* square then multiply if the bit is set */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8627 for (x = 0; x < bitcpy; x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8628 if ((err = mp_sqr (&res, &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8629 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8630 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8631 if ((err = redux (&res, P, &mu)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8632 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8633 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8634
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8635 bitbuf <<= 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8636 if ((bitbuf & (1 << winsize)) != 0) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8637 /* then multiply */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8638 if ((err = mp_mul (&res, &M[1], &res)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8639 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8640 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8641 if ((err = redux (&res, P, &mu)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8642 goto LBL_RES;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8643 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8644 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8645 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8646 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8647
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8648 mp_exch (&res, Y);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8649 err = MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8650 LBL_RES:mp_clear (&res);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8651 LBL_MU:mp_clear (&mu);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8652 LBL_M:
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8653 mp_clear(&M[1]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8654 for (x = 1<<(winsize-1); x < (1 << winsize); x++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8655 mp_clear (&M[x]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8656 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8657 return err;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8658 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8659 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8660
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8661 /* End: bn_s_mp_exptmod.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8662
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8663 /* Start: bn_s_mp_mul_digs.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8664 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8665 #ifdef BN_S_MP_MUL_DIGS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8666 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8667 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8668 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8669 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8670 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8671 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8672 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8673 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8674 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8675 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8676 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8677 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8678 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8679 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8680
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8681 /* multiplies \|a\| * \|b\| and only computes upto digs digits of result
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8682 * HAC pp. 595, Algorithm 14.12 Modified so you can control how
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8683 * many digits of output are created.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8684 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8685 int s_mp_mul_digs (mp_int * a, mp_int * b, mp_int * c, int digs)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8686 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8687 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8688 int res, pa, pb, ix, iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8689 mp_digit u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8690 mp_word r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8691 mp_digit tmpx, tmpt, tmpy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8692
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8693 /* can we use the fast multiplier? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8694 if (((digs) < MP_WARRAY) &&
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8695 MIN (a->used, b->used) <
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8696 (1 << ((CHAR_BIT * sizeof (mp_word)) - (2 * DIGIT_BIT)))) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8697 return fast_s_mp_mul_digs (a, b, c, digs);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8698 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8699
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8700 if ((res = mp_init_size (&t, digs)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8701 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8702 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8703 t.used = digs;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8704
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8705 /* compute the digits of the product directly */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8706 pa = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8707 for (ix = 0; ix < pa; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8708 /* set the carry to zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8709 u = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8710
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8711 /* limit ourselves to making digs digits of output */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8712 pb = MIN (b->used, digs - ix);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8713
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8714 /* setup some aliases */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8715 /* copy of the digit from a used within the nested loop */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8716 tmpx = a->dp[ix];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8717
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8718 /* an alias for the destination shifted ix places */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8719 tmpt = t.dp + ix;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8720
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8721 /* an alias for the digits of b */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8722 tmpy = b->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8723
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8724 /* compute the columns of the output and propagate the carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8725 for (iy = 0; iy < pb; iy++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8726 /* compute the column as a mp_word */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8727 r = ((mp_word)*tmpt) +
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8728 ((mp_word)tmpx) * ((mp_word)*tmpy++) +
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8729 ((mp_word) u);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8730
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8731 /* the new column is the lower part of the result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8732 *tmpt++ = (mp_digit) (r & ((mp_word) MP_MASK));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8733
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8734 /* get the carry word from the result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8735 u = (mp_digit) (r >> ((mp_word) DIGIT_BIT));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8736 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8737 /* set carry if it is placed below digs */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8738 if (ix + iy < digs) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8739 *tmpt = u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8740 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8741 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8742
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8743 mp_clamp (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8744 mp_exch (&t, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8745
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8746 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8747 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8748 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8749 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8750
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8751 /* End: bn_s_mp_mul_digs.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8752
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8753 /* Start: bn_s_mp_mul_high_digs.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8754 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8755 #ifdef BN_S_MP_MUL_HIGH_DIGS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8756 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8757 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8758 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8759 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8760 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8761 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8762 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8763 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8764 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8765 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8766 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8767 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8768 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8769 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8770
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8771 /* multiplies \|a\| * \|b\| and does not compute the lower digs digits
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8772 * [meant to get the higher part of the product]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8773 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8774 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8775 s_mp_mul_high_digs (mp_int * a, mp_int * b, mp_int * c, int digs)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8776 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8777 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8778 int res, pa, pb, ix, iy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8779 mp_digit u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8780 mp_word r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8781 mp_digit tmpx, tmpt, tmpy;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8782
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8783 /* can we use the fast multiplier? */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8784 #ifdef BN_FAST_S_MP_MUL_HIGH_DIGS_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8785 if (((a->used + b->used + 1) < MP_WARRAY)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8786 && MIN (a->used, b->used) < (1 << ((CHAR_BIT * sizeof (mp_word)) - (2 * DIGIT_BIT)))) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8787 return fast_s_mp_mul_high_digs (a, b, c, digs);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8788 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8789 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8790
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8791 if ((res = mp_init_size (&t, a->used + b->used + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8792 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8793 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8794 t.used = a->used + b->used + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8795
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8796 pa = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8797 pb = b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8798 for (ix = 0; ix < pa; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8799 /* clear the carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8800 u = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8801
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8802 /* left hand side of A[ix] * B[iy] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8803 tmpx = a->dp[ix];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8804
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8805 /* alias to the address of where the digits will be stored */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8806 tmpt = &(t.dp[digs]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8807
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8808 /* alias for where to read the right hand side from */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8809 tmpy = b->dp + (digs - ix);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8810
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8811 for (iy = digs - ix; iy < pb; iy++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8812 /* calculate the double precision result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8813 r = ((mp_word)*tmpt) +
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8814 ((mp_word)tmpx) * ((mp_word)*tmpy++) +
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8815 ((mp_word) u);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8816
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8817 /* get the lower part */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8818 *tmpt++ = (mp_digit) (r & ((mp_word) MP_MASK));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8819
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8820 /* carry the carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8821 u = (mp_digit) (r >> ((mp_word) DIGIT_BIT));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8822 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8823 *tmpt = u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8824 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8825 mp_clamp (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8826 mp_exch (&t, c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8827 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8828 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8829 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8830 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8831
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8832 /* End: bn_s_mp_mul_high_digs.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8833
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8834 /* Start: bn_s_mp_sqr.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8835 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8836 #ifdef BN_S_MP_SQR_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8837 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8838 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8839 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8840 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8841 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8842 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8843 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8844 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8845 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8846 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8847 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8848 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8849 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8850 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8851
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8852 /* low level squaring, b = aa, HAC pp.596-597, Algorithm 14.16 /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8853 int s_mp_sqr (mp_int * a, mp_int * b)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8854 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8855 mp_int t;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8856 int res, ix, iy, pa;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8857 mp_word r;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8858 mp_digit u, tmpx, *tmpt;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8859
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8860 pa = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8861 if ((res = mp_init_size (&t, 2*pa + 1)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8862 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8863 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8864
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8865 /* default used is maximum possible size */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8866 t.used = 2*pa + 1;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8867
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8868 for (ix = 0; ix < pa; ix++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8869 /* first calculate the digit at 2ix /
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8870 /* calculate double precision result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8871 r = ((mp_word) t.dp[2*ix]) +
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8872 ((mp_word)a->dp[ix])*((mp_word)a->dp[ix]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8873
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8874 /* store lower part in result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8875 t.dp[ix+ix] = (mp_digit) (r & ((mp_word) MP_MASK));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8876
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8877 /* get the carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8878 u = (mp_digit)(r >> ((mp_word) DIGIT_BIT));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8879
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8880 /* left hand side of A[ix] * A[iy] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8881 tmpx = a->dp[ix];
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8882
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8883 /* alias for where to store the results */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8884 tmpt = t.dp + (2*ix + 1);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8885
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8886 for (iy = ix + 1; iy < pa; iy++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8887 /* first calculate the product */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8888 r = ((mp_word)tmpx) * ((mp_word)a->dp[iy]);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8889
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8890 /* now calculate the double precision result, note we use
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8891 * addition instead of *2 since it's easier to optimize
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8892 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8893 r = ((mp_word) *tmpt) + r + r + ((mp_word) u);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8894
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8895 /* store lower part */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8896 *tmpt++ = (mp_digit) (r & ((mp_word) MP_MASK));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8897
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8898 /* get carry */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8899 u = (mp_digit)(r >> ((mp_word) DIGIT_BIT));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8900 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8901 /* propagate upwards */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8902 while (u != ((mp_digit) 0)) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8903 r = ((mp_word) *tmpt) + ((mp_word) u);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8904 *tmpt++ = (mp_digit) (r & ((mp_word) MP_MASK));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8905 u = (mp_digit)(r >> ((mp_word) DIGIT_BIT));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8906 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8907 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8908
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8909 mp_clamp (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8910 mp_exch (&t, b);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8911 mp_clear (&t);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8912 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8913 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8914 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8915
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8916 /* End: bn_s_mp_sqr.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8917
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8918 /* Start: bn_s_mp_sub.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8919 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8920 #ifdef BN_S_MP_SUB_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8921 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8922 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8923 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8924 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8925 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8926 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8927 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8928 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8929 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8930 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8931 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8932 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8933 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8934 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8935
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8936 /* low level subtraction (assumes \|a\| > \|b\|), HAC pp.595 Algorithm 14.9 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8937 int
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8938 s_mp_sub (mp_int * a, mp_int * b, mp_int * c)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8939 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8940 int olduse, res, min, max;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8941
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8942 /* find sizes */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8943 min = b->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8944 max = a->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8945
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8946 /* init result */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8947 if (c->alloc < max) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8948 if ((res = mp_grow (c, max)) != MP_OKAY) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8949 return res;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8950 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8951 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8952 olduse = c->used;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8953 c->used = max;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8954
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8955 {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8956 register mp_digit u, tmpa, tmpb, *tmpc;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8957 register int i;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8958
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8959 /* alias for digit pointers */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8960 tmpa = a->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8961 tmpb = b->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8962 tmpc = c->dp;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8963
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8964 /* set carry to zero */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8965 u = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8966 for (i = 0; i < min; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8967 /* T[i] = A[i] - B[i] - U */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8968 tmpc = tmpa++ - *tmpb++ - u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8969
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8970 /* U = carry bit of T[i]
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8971 * Note this saves performing an AND operation since
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8972 * if a carry does occur it will propagate all the way to the
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8973 * MSB. As a result a single shift is enough to get the carry
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8974 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8975 u = tmpc >> ((mp_digit)(CHAR_BIT sizeof (mp_digit) - 1));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8976
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8977 /* Clear carry from T[i] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8978 *tmpc++ &= MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8979 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8980
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8981 /* now copy higher words if any, e.g. if A has more digits than B */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8982 for (; i < max; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8983 /* T[i] = A[i] - U */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8984 tmpc = tmpa++ - u;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8985
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8986 /* U = carry bit of T[i] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8987 u = tmpc >> ((mp_digit)(CHAR_BIT sizeof (mp_digit) - 1));
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8988
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8989 /* Clear carry from T[i] */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8990 *tmpc++ &= MP_MASK;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8991 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8992
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8993 /* clear digits above used (since we may not have grown result above) */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8994 for (i = c->used; i < olduse; i++) {
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8995 *tmpc++ = 0;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8996 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8997 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8998
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	8999 mp_clamp (c);
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9000 return MP_OKAY;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9001 }
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9002
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9003 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9004
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9005 /* End: bn_s_mp_sub.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9006
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9007 /* Start: bncore.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9008 #include <ltc_tommath.h>
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9009 #ifdef BNCORE_C
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9010 /* LibTomMath, multiple-precision integer library -- Tom St Denis
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9011 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9012 * LibTomMath is a library that provides multiple-precision
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9013 * integer arithmetic as well as number theoretic functionality.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9014 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9015 * The library was designed directly after the MPI library by
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9016 * Michael Fromberger but has been written from scratch with
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9017 * additional optimizations in place.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9018 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9019 * The library is free for all purposes without any express
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9020 * guarantee it works.
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9021 *
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9022 * Tom St Denis, [email protected], http://math.libtomcrypt.org
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9023 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9024
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9025 /* Known optimal configurations
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9026
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9027 CPU /Compiler /MUL CUTOFF/SQR CUTOFF
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9028 -------------------------------------------------------------
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9029 Intel P4 Northwood /GCC v3.4.1 / 88/ 128/LTM 0.32 ;-)
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9030 AMD Athlon64 /GCC v3.4.4 / 74/ 124/LTM 0.34
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9031
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9032 */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9033
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9034 int KARATSUBA_MUL_CUTOFF = 74, /* Min. number of digits before Karatsuba multiplication is used. */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9035 KARATSUBA_SQR_CUTOFF = 124, /* Min. number of digits before Karatsuba squaring is used. */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9036
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9037 TOOM_MUL_CUTOFF = 350, /* no optimal values of these are known yet so set em high */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9038 TOOM_SQR_CUTOFF = 400;
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9039 #endif
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9040
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9041 /* End: bncore.c */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9042
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9043
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9044 /* EOF */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9045
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9046 /* $Source: /cvs/libtom/libtomcrypt/src/misc/mpi/mpi.c,v $ */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9047 /* $Revision: 1.5 $ */
59400faa4b44 Re-import libtomcrypt 1.05 for cleaner propagating. Matt Johnston <matt@ucc.asn.au> parents: diff changeset	9048 /* $Date: 2005/05/05 14:35:59 $ */

Mercurial > dropbear

annotate src/misc/mpi/mpi.c @ 280:59400faa4b44 libtomcrypt-orig libtomcrypt-1.05