steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

rsa update

erg 2006-08-03 03:20:28 +00:00
parent f6a8222b5a
commit 2ca8e9d65f
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/crypto/rsa.factor
View File

@ -16,8 +16,7 @@ TUPLE: rsa e d n ;
[ [
2 /i generate-two-unique-primes [ q set p set ] 2keep [ * n set ] 2keep 2 /i generate-two-unique-primes [ q set p set ] 2keep [ * n set ] 2keep
[ 1- ] 2apply * m set [ 1- ] 2apply * m set
m get next-miller-rabin-prime ee set 65537 ee set
m get ee get find-relative-prime* ee set
m get ee get mod-inv m get + d set m get ee get mod-inv m get + d set
ee get d get n get <rsa> ee get d get n get <rsa>
] with-scope ; ] with-scope ;

2
contrib/crypto/test/rsa.factor
View File

@ -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 ] [ 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 ] [ 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 [ 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