From d878d4d8c41064dd90e6b35cb65bc01675e3c396 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Tue, 8 Jun 1999 04:55:17 +0200
Subject: [PATCH] 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 | 5 ++++-
lib/modules/Crypto/rsa.pike | 7 ++++++-
2 files changed, 10 insertions(+), 2 deletions(-)
diff --git a/lib/modules/Crypto/dsa.pike b/lib/modules/Crypto/dsa.pike
index 05cb9faec2..a773cae6e2 100644
--- a/lib/modules/Crypto/dsa.pike
+++ b/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;
+}
diff --git a/lib/modules/Crypto/rsa.pike b/lib/modules/Crypto/rsa.pike
index b7bf355c0d..7447b1684a 100644
--- a/lib/modules/Crypto/rsa.pike
+++ b/lib/modules/Crypto/rsa.pike
@@ -1,4 +1,4 @@
-/* $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;
+}
--
GitLab