/*

* (C) 2015,2016 Jack Lloyd

*

* Botan is released under the Simplified BSD License (see license.txt)

*/

#include "fuzzers.h"

#include <botan/numthry.h>

#include <botan/reducer.h>

void fuzz(const uint8_t in[], size_t len)

   {

   // Ressol is mostly used for ECC point decompression so best to test smaller sizes

   static const size_t p_bits = 256;

   static const Botan::BigInt p = random_prime(fuzzer_rng(), p_bits);

   static const Botan::Modular_Reducer mod_p(p);

   if(len > p_bits / 8)

      return;

   try

      {

      const Botan::BigInt a = Botan::BigInt::decode(in, len);

      Botan::BigInt a_sqrt = Botan::ressol(a, p);

      if(a_sqrt > 0)

         {

         const Botan::BigInt a_redc = mod_p.reduce(a);

         const Botan::BigInt z = mod_p.square(a_sqrt);

         if(z != a_redc)

            {

            FUZZER_WRITE_AND_CRASH("A = " << a << "\n"

                                   << "P = " << p << "\n"

                                   << "R = " << a_sqrt << "\n"

                                   << "Z = " << z << "\n");

            }

         }

      }

   catch(Botan::Exception& e) {}

   return;

   }