From bc0a806258597a7b466848d9ebad0e345b26b5f1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
 <grubba@grubba.org>
Date: Tue, 13 Jun 2000 21:07:06 +0200
Subject: [PATCH] Now uses rsa->get_{n,e,d,p,q}().

Rev: lib/modules/Standards.pmod/PKCS.pmod/RSA.pmod:1.12
---
 lib/modules/Standards.pmod/PKCS.pmod/RSA.pmod | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/lib/modules/Standards.pmod/PKCS.pmod/RSA.pmod b/lib/modules/Standards.pmod/PKCS.pmod/RSA.pmod
index a12b4abe4d..6a9292843e 100644
--- a/lib/modules/Standards.pmod/PKCS.pmod/RSA.pmod
+++ b/lib/modules/Standards.pmod/PKCS.pmod/RSA.pmod
@@ -16,18 +16,24 @@ import Standards.ASN1.Types;
 string public_key(object rsa)
 {
   return asn1_sequence(Array.map(
-    ({ rsa->n, rsa->e }),
+    ({ rsa->get_n(), rsa->get_e() }),
     asn1_integer))->get_der();
 }
 
 /* Create a DER-coded RSAPrivateKey structure */
 string private_key(object rsa)
 {
+  object n = rsa->get_n();
+  object e = rsa->get_e();
+  object d = rsa->get_d();
+  object p = rsa->get_p();
+  object q = rsa->get_q();
+
   return asn1_sequence(Array.map(
-    ({ 0, rsa->n, rsa->e, rsa->d,
-       rsa->p, rsa->q,
-       rsa->d % (rsa->p - 1), rsa->d % (rsa->q -1),
-       rsa->q->invert(rsa->p) % rsa->p
+    ({ 0, n, e, d,
+       p, q,
+       d % (p - 1), d % (q - 1),
+       q->invert(p) % p
     }),
     asn1_integer))->get_der();
 }
-- 
GitLab