source4/heimdal/lib/hcrypto/libtommath/bn_mp_sqrmod.c

   1 #include <tommath.h>
   2 #ifdef BN_MP_SQRMOD_C
   3 /* LibTomMath, multiple-precision integer library -- Tom St Denis
   4  *
   5  * LibTomMath is a library that provides multiple-precision
   6  * integer arithmetic as well as number theoretic functionality.
   7  *
   8  * The library was designed directly after the MPI library by
   9  * Michael Fromberger but has been written from scratch with
  10  * additional optimizations in place.
  11  *
  12  * The library is free for all purposes without any express
  13  * guarantee it works.
  14  *
  15  * Tom St Denis, tomstdenis@gmail.com, http://libtom.org
  16  */
  17
  18 /* c = a * a (mod b) */
  19 int
  20 mp_sqrmod (mp_int * a, mp_int * b, mp_int * c)
  21 {
  22   int     res;
  23   mp_int  t;
  24
  25   if ((res = mp_init (&t)) != MP_OKAY) {
  26     return res;
  27   }
  28
  29   if ((res = mp_sqr (a, &t)) != MP_OKAY) {
  30     mp_clear (&t);
  31     return res;
  32   }
  33   res = mp_mod (&t, b, c);
  34   mp_clear (&t);
  35   return res;
  36 }
  37 #endif
  38
  39 /* $Source: /cvs/libtom/libtommath/bn_mp_sqrmod.c,v $ */
  40 /* $Revision: 1.4 $ */
  41 /* $Date: 2006/12/28 01:25:13 $ */