Added public_key_equal().

Rev: lib/modules/Crypto/dsa.pike:1.6
Rev: lib/modules/Crypto/rsa.pike:1.16

lib/modules/Crypto/dsa.pike

@@ -260,4 +260,7 @@ object generate_key()
   return this_object();
 }
 
-
+int public_key_equal (object dsa)
+{
+  return p == dsa->p && q == dsa->q && g == dsa->g && y == dsa->y;
+}

lib/modules/Crypto/rsa.pike

-/* $Id: rsa.pike,v 1.15 1999/03/03 13:51:33 nisse Exp $
+/* $Id: rsa.pike,v 1.16 1999/06/08 02:55:17 mast Exp $
  *
  * Follow the PKCS#1 standard for padding and encryption.
  */
@@ -227,3 +227,8 @@ string crypt_block(string s)
 }
 
 int rsa_size() { return n->size(); }
+
+int public_key_equal (object rsa)
+{
+  return n == rsa->n && e == rsa->e;
+}