/*

* PBKDF2

* (C) 1999-2007 Jack Lloyd

* (C) 2018 Ribose Inc

*

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

*/

#include <botan/pbkdf2.h>

#include <botan/exceptn.h>

#include <botan/mem_ops.h>

#include <botan/internal/fmt.h>

#include <botan/internal/time_utils.h>

namespace Botan {

namespace {

void pbkdf2_set_key(MessageAuthenticationCode& prf, const char* password, size_t password_len) {

   try {

      prf.set_key(cast_char_ptr_to_uint8(password), password_len);

   } catch(Invalid_Key_Length&) {

      throw Invalid_Argument("PBKDF2 cannot accept passphrase of the given size");

   }

}

size_t tune_pbkdf2(MessageAuthenticationCode& prf,

                   size_t output_length,

                   std::chrono::milliseconds msec,

                   std::chrono::milliseconds tune_time = std::chrono::milliseconds(10)) {

   if(output_length == 0) {

      output_length = 1;

   }

   const size_t prf_sz = prf.output_length();

   BOTAN_ASSERT_NOMSG(prf_sz > 0);

   secure_vector<uint8_t> U(prf_sz);

   const size_t trial_iterations = 2000;

   // Short output ensures we only need a single PBKDF2 block

   prf.set_key(nullptr, 0);

   const uint64_t duration_nsec = measure_cost(tune_time, [&]() {

      uint8_t out[12] = {0};

      uint8_t salt[12] = {0};

      pbkdf2(prf, out, sizeof(out), salt, sizeof(salt), trial_iterations);

   });

   const uint64_t desired_nsec = static_cast<uint64_t>(msec.count()) * 1000000;

   if(duration_nsec > desired_nsec) {

      return trial_iterations;

   }

   const size_t blocks_needed = (output_length + prf_sz - 1) / prf_sz;

   const size_t multiplier = static_cast<size_t>(desired_nsec / duration_nsec / blocks_needed);

   if(multiplier == 0) {

      return trial_iterations;

   } else {

      return trial_iterations * multiplier;

   }

}

}  // namespace

size_t pbkdf2(MessageAuthenticationCode& prf,

              uint8_t out[],

              size_t out_len,

              std::string_view password,

              const uint8_t salt[],

              size_t salt_len,

              size_t iterations,

              std::chrono::milliseconds msec) {

   if(iterations == 0) {

      iterations = tune_pbkdf2(prf, out_len, msec);

   }

   PBKDF2 pbkdf2(prf, iterations);

   pbkdf2.derive_key(out, out_len, password.data(), password.size(), salt, salt_len);

   return iterations;

}

void pbkdf2(MessageAuthenticationCode& prf,

            uint8_t out[],

            size_t out_len,

            const uint8_t salt[],

            size_t salt_len,

            size_t iterations) {

   if(iterations == 0) {

      throw Invalid_Argument("PBKDF2: Invalid iteration count");

   }

   clear_mem(out, out_len);

   if(out_len == 0) {

      return;

   }

   const size_t prf_sz = prf.output_length();

   BOTAN_ASSERT_NOMSG(prf_sz > 0);

   secure_vector<uint8_t> U(prf_sz);

   uint32_t counter = 1;

   while(out_len) {

      const size_t prf_output = std::min<size_t>(prf_sz, out_len);

      prf.update(salt, salt_len);

      prf.update_be(counter++);

      prf.final(U.data());

      xor_buf(out, U.data(), prf_output);

      for(size_t i = 1; i != iterations; ++i) {

         prf.update(U);

         prf.final(U.data());

         xor_buf(out, U.data(), prf_output);

      }

      out_len -= prf_output;

      out += prf_output;

   }

}

// PBKDF interface

size_t PKCS5_PBKDF2::pbkdf(uint8_t key[],

                           size_t key_len,

                           std::string_view password,

                           const uint8_t salt[],

                           size_t salt_len,

                           size_t iterations,

                           std::chrono::milliseconds msec) const {

   if(iterations == 0) {

      iterations = tune_pbkdf2(*m_mac, key_len, msec);

   }

   PBKDF2 pbkdf2(*m_mac, iterations);

   pbkdf2.derive_key(key, key_len, password.data(), password.size(), salt, salt_len);

   return iterations;

}

std::string PKCS5_PBKDF2::name() const {

   return fmt("PBKDF2({})", m_mac->name());

}

std::unique_ptr<PBKDF> PKCS5_PBKDF2::new_object() const {

   return std::make_unique<PKCS5_PBKDF2>(m_mac->new_object());

}

// PasswordHash interface

PBKDF2::PBKDF2(const MessageAuthenticationCode& prf, size_t olen, std::chrono::milliseconds msec) :

      m_prf(prf.new_object()), m_iterations(tune_pbkdf2(*m_prf, olen, msec)) {}

std::string PBKDF2::to_string() const {

   return fmt("PBKDF2({},{})", m_prf->name(), m_iterations);

}

void PBKDF2::derive_key(uint8_t out[],

                        size_t out_len,

                        const char* password,

                        const size_t password_len,

                        const uint8_t salt[],

                        size_t salt_len) const {

   pbkdf2_set_key(*m_prf, password, password_len);

   pbkdf2(*m_prf, out, out_len, salt, salt_len, m_iterations);

}

std::string PBKDF2_Family::name() const {

   return fmt("PBKDF2({})", m_prf->name());

}

std::unique_ptr<PasswordHash> PBKDF2_Family::tune(size_t output_len,

                                                  std::chrono::milliseconds msec,

                                                  size_t /*max_memory_usage_mb*/,

                                                  std::chrono::milliseconds tune_time) const {

   auto iterations = tune_pbkdf2(*m_prf, output_len, msec, tune_time);

   return std::make_unique<PBKDF2>(*m_prf, iterations);

}

std::unique_ptr<PasswordHash> PBKDF2_Family::default_params() const {

   return std::make_unique<PBKDF2>(*m_prf, 150000);

}

std::unique_ptr<PasswordHash> PBKDF2_Family::from_params(size_t iter, size_t /*i2*/, size_t /*i3*/) const {

   return std::make_unique<PBKDF2>(*m_prf, iter);

}

std::unique_ptr<PasswordHash> PBKDF2_Family::from_iterations(size_t iter) const {

   return std::make_unique<PBKDF2>(*m_prf, iter);

}

}  // namespace Botan