rsa update

diff --git a/contrib/crypto/rsa.factor b/contrib/crypto/rsa.factor
index 4c7f3c54e7f1182fb3de4e09a3482aa87efbed75..e082e431fa378aa5c237c8b23799594906f66ce6 100644 (file)
--- a/contrib/crypto/rsa.factor
+++ b/contrib/crypto/rsa.factor
@@ -16,8 +16,7 @@ TUPLE: rsa e d n ;
     [
         2 /i generate-two-unique-primes [ q set p set ] 2keep [ * n set ] 2keep
         [ 1- ] 2apply * m set
-        m get next-miller-rabin-prime ee set
-        m get ee get find-relative-prime* ee set
+        65537 ee set
         m get ee get mod-inv m get + d set
         ee get d get n get <rsa>
     ] with-scope ;

diff --git a/contrib/crypto/test/rsa.factor b/contrib/crypto/test/rsa.factor
index f6d2598319f21257324cccede4a37ca232bd2927..cddad58897c184d8a4eae099fef4c6be544930aa 100644 (file)
--- a/contrib/crypto/test/rsa.factor
+++ b/contrib/crypto/test/rsa.factor
@@ -3,5 +3,5 @@ USING: kernel math test namespaces crypto ;
 [ 123456789 ] [ 128 generate-rsa-keypair 123456789 over rsa-encrypt swap rsa-decrypt ] unit-test
 [ 123456789 ] [ 129 generate-rsa-keypair 123456789 over rsa-encrypt swap rsa-decrypt ] unit-test
 [ 123456789 ] [ 130 generate-rsa-keypair 123456789 over rsa-encrypt swap rsa-decrypt ] unit-test
-
+[ 123 ] [ 17 2753 3233 <rsa> 123 over rsa-encrypt swap rsa-decrypt ] unit-test