60 lines
1.6 KiB
C
60 lines
1.6 KiB
C
/* LibTomPoly, Polynomial Basis Math -- Tom St Denis
|
|
*
|
|
* LibTomPoly is a public domain library that provides
|
|
* polynomial basis arithmetic support. It relies on
|
|
* LibTomMath for large integer support.
|
|
*
|
|
* This library is free for all purposes without any
|
|
* express guarantee that it works.
|
|
*
|
|
* Tom St Denis, tomstdenis@iahu.ca, http://poly.libtomcrypt.org
|
|
*/
|
|
#include <tompoly.h>
|
|
|
|
/* is a(x) irreducible? */
|
|
int pb_isirreduc(pb_poly *a, int *res)
|
|
{
|
|
pb_poly u, tmp, fm, d;
|
|
int err, i;
|
|
|
|
/* default to no */
|
|
*res = MP_NO;
|
|
|
|
/* init temps */
|
|
if ((err = pb_init_multi(&(a->characteristic),
|
|
&u, &tmp, &fm, &d, NULL)) != MP_OKAY) {
|
|
return err;
|
|
}
|
|
|
|
/* fm = monic(a(x)) */
|
|
if ((err = pb_monic(a, &fm)) != MP_OKAY) { goto _ERR; }
|
|
|
|
/* u = x */
|
|
mp_set(&(u.terms[1]), 1); u.used = 2;
|
|
|
|
/* loop */
|
|
for (i = 1; i <= (a->used / 2); i++) {
|
|
/* u = u^p mod fm */
|
|
if ((err = pb_exptmod(&u, &(a->characteristic), &fm, &u)) != MP_OKAY) { goto _ERR; }
|
|
|
|
/* tmp = u - x */
|
|
pb_zero(&tmp);
|
|
mp_set(&(tmp.terms[1]), 1); tmp.used = 2;
|
|
if ((err = pb_sub(&u, &tmp, &tmp)) != MP_OKAY) { goto _ERR; }
|
|
|
|
/* d = gcd(fm, tmp) */
|
|
if ((err = pb_gcd(&fm, &tmp, &d)) != MP_OKAY) { goto _ERR; }
|
|
|
|
/* if d != 1 then reducible */
|
|
if (d.used > 1) { err = MP_OKAY; goto _ERR; }
|
|
}
|
|
|
|
/* irreducible */
|
|
*res = MP_YES;
|
|
err = MP_OKAY;
|
|
_ERR: pb_clear_multi(&u, &tmp, &fm, &d, NULL);
|
|
return err;
|
|
}
|
|
|
|
|