1 files changed, 157 insertions, 0 deletions
diff --git a/src/if_algo.cpp b/src/if_algo.cpp
new file mode 100644
index 000000000..8c6a8654e
--- /dev/null
+++ b/src/if_algo.cpp
@@ -0,0 +1,157 @@
+/*************************************************
+* IF Scheme Source File                          *
+* (C) 1999-2006 The Botan Project                *
+*************************************************/
+
+#include <botan/if_algo.h>
+#include <botan/numthry.h>
+#include <botan/der_enc.h>
+#include <botan/ber_dec.h>
+
+namespace Botan {
+
+/*************************************************
+* Return the X.509 public key encoding           *
+*************************************************/
+MemoryVector<byte> IF_Scheme_PublicKey::DER_encode_pub() const
+   {
+   return DER_Encoder()
+      .start_sequence()
+         .encode(n)
+         .encode(e)
+      .end_sequence()
+   .get_contents();
+   }
+
+/*************************************************
+* Return the X.509 parameters encoding           *
+*************************************************/
+MemoryVector<byte> IF_Scheme_PublicKey::DER_encode_params() const
+   {
+   return DER_Encoder().encode_null().get_contents();
+   }
+
+/*************************************************
+* Decode X.509 public key encoding               *
+*************************************************/
+void IF_Scheme_PublicKey::BER_decode_pub(DataSource& source)
+   {
+   BER_Decoder decoder(source);
+   BER_Decoder ber = BER::get_subsequence(decoder);
+
+   ber.decode(n)
+      .decode(e)
+      .verify_end();
+
+   X509_load_hook();
+   }
+
+/*************************************************
+* Decode X.509 algorithm parameters              *
+*************************************************/
+void IF_Scheme_PublicKey::BER_decode_params(DataSource& source)
+   {
+   byte dummy = 0;
+   while(!source.end_of_data())
+      source.read_byte(dummy);
+   }
+
+/*************************************************
+* Return the PKCS #1 private key encoding        *
+*************************************************/
+SecureVector<byte> IF_Scheme_PrivateKey::DER_encode_priv() const
+   {
+   return DER_Encoder()
+      .start_sequence()
+         .encode((u32bit)0)
+         .encode(n)
+         .encode(e)
+         .encode(d)
+         .encode(p)
+         .encode(q)
+         .encode(d1)
+         .encode(d2)
+         .encode(c)
+      .end_sequence()
+   .get_contents();
+   }
+
+/*************************************************
+* Decode a PKCS #1 private key encoding          *
+*************************************************/
+void IF_Scheme_PrivateKey::BER_decode_priv(DataSource& source)
+   {
+   u32bit version;
+
+   BER_Decoder decoder(source);
+   BER_Decoder ber = BER::get_subsequence(decoder);
+
+   ber.decode(version)
+      .decode(n)
+      .decode(e)
+      .decode(d)
+      .decode(p)
+      .decode(q)
+      .decode(d1)
+      .decode(d2)
+      .decode(c)
+      .verify_end();
+
+   if(version != 0)
+      throw Decoding_Error(algo_name() + ": Unknown PKCS #1 key version");
+
+   PKCS8_load_hook();
+   check_loaded_private();
+   }
+
+/*************************************************
+* Algorithm Specific X.509 Initialization Code   *
+*************************************************/
+void IF_Scheme_PublicKey::X509_load_hook()
+   {
+   core = IF_Core(e, n);
+   check_loaded_public();
+   }
+
+/*************************************************
+* Algorithm Specific PKCS #8 Initialization Code *
+*************************************************/
+void IF_Scheme_PrivateKey::PKCS8_load_hook()
+   {
+   if(n == 0)  n = p * q;
+   if(d1 == 0) d1 = d % (p - 1);
+   if(d2 == 0) d2 = d % (q - 1);
+   if(c == 0)  c = inverse_mod(q, p);
+
+   core = IF_Core(e, n, d, p, q, d1, d2, c);
+   }
+
+/*************************************************
+* Check IF Scheme Public Parameters              *
+*************************************************/
+bool IF_Scheme_PublicKey::check_key(bool) const
+   {
+   if(n < 35 || n.is_even() || e < 2)
+      return false;
+   return true;
+   }
+
+/*************************************************
+* Check IF Scheme Private Parameters             *
+*************************************************/
+bool IF_Scheme_PrivateKey::check_key(bool strong) const
+   {
+   if(n < 35 || n.is_even() || e < 2 || d < 2 || p < 3 || q < 3 || p*q != n)
+      return false;
+
+   if(!strong)
+      return true;
+
+   if(d1 != d % (p - 1) || d2 != d % (q - 1) || c != inverse_mod(q, p))
+      return false;
+   if(!check_prime(p) || !check_prime(q))
+      return false;
+   return true;
+   }
+
+}