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

fix rsa tests

db4
Doug Coleman 2009-05-10 18:20:19 -05:00
parent 65faa3fda3
commit c92afaf385
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/crypto/rsa/rsa.factor
View File

@ -21,7 +21,7 @@ C: <rsa> rsa
CONSTANT: public-key 65537 CONSTANT: public-key 65537
: rsa-primes ( numbits -- p q ) : rsa-primes ( numbits -- p q )
2/ 2 unique-primes first2 ; 2/ 2 swap unique-primes first2 ;
: modulus-phi ( numbits -- n phi ) : modulus-phi ( numbits -- n phi )
#! Loop until phi is not divisible by the public key. #! Loop until phi is not divisible by the public key.