Added {,cooked_}get_{d,p,q}().

Rev: lib/modules/Crypto/_rsa.pike:1.3

lib/modules/Crypto/_rsa.pike

-/* $Id: _rsa.pike,v 1.2 2000/05/04 16:05:28 grubba Exp $
+/* $Id: _rsa.pike,v 1.3 2000/06/13 19:05:37 grubba Exp $
  *
  * Follow the PKCS#1 standard for padding and encryption.
  */
@@ -28,6 +28,21 @@ bignum get_e()
   return e;
 }
 
+bignum get_d()
+{
+  return d;
+}
+
+bignum get_p()
+{
+  return p;
+}
+
+bignum get_q()
+{
+  return q;
+}
+
 string cooked_get_n()
 {
   return n->digits(256);
@@ -38,6 +53,21 @@ string cooked_get_e()
   return e->digits(256);
 }
 
+string cooked_get_d()
+{
+  return d->digits(256);
+}
+
+string cooked_get_p()
+{
+  return p->digits(256);
+}
+
+string cooked_get_q()
+{
+  return q->digits(256);
+}
+
 object set_public_key(bignum modulo, bignum pub)
 {
   n = modulo;