diff --git a/lib/modules/Crypto/_rsa.pike b/lib/modules/Crypto/_rsa.pike
index 815f7c78f94dc1ea1a15e54ec464554f40f159f9..54fda3454c98efdb1a8144d226511f0a7f5005be 100644
--- a/lib/modules/Crypto/_rsa.pike
+++ b/lib/modules/Crypto/_rsa.pike
@@ -1,4 +1,4 @@
-/* $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;