factor/extra/crypto/rsa/rsa-tests.factor

8 lines
446 B
Factor
Raw Normal View History

2007-09-20 18:09:08 -04:00
USING: kernel math namespaces crypto.rsa tools.test ;
2008-10-02 19:45:51 -04:00
IN: crypto.rsa.tests
2007-09-20 18:09:08 -04:00
{ 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 } [ 3233 2753 17 <rsa> 123 over rsa-encrypt swap rsa-decrypt ] unit-test