diff options
author | Ralf S. Engelschall <rse@openssl.org> | 1999-02-10 09:38:31 +0000 |
---|---|---|
committer | Ralf S. Engelschall <rse@openssl.org> | 1999-02-10 09:38:31 +0000 |
commit | 8073036dd62848b616c6a817c155c3255074ec83 (patch) | |
tree | 8ae62e46c555ccc9e65b5dffd43cff25234c96af /perl/test.pl | |
parent | 0517335e3cdc565edbecb53dec8ef9091c936763 (diff) |
Overhauled the Perl interface (perl/*):
- ported BN stuff to OpenSSL's different BN library
- made the perl/ source tree CVS-aware
- renamed the package from SSLeay to OpenSSL (the files still contain
their history because I've copied them in the repository)
- removed obsolete files (the test scripts will be replaced
by better Test::Harness variants in the future)
Diffstat (limited to 'perl/test.pl')
-rw-r--r-- | perl/test.pl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/perl/test.pl b/perl/test.pl deleted file mode 100644 index 350b1a96fa..0000000000 --- a/perl/test.pl +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/local/bin/perl - -use ExtUtils::testlib; - -use SSLeay; - -($a=SSLeay::BN::new()) || die "unable to make bignum\n"; -($b=SSLeay::BN::new()) || die "unable to make bignum\n"; - -$a=SSLeay::BN::hex2bn("123456789ABCDEF"); -$b=SSLeay::BN::hex2bn("123456789ABCDEF"); -$mod=SSLeay::BN::hex2bn("fedcba9876543201"); -$c=SSLeay::BN::hex2bn("1234"); - -print "a=".$a->bn2hex()."\n"; -print "b=".$b->bn2hex()."\n"; -print "c=".$c->bn2hex()."\n"; - -print $a->mul($b)->bn2hex."\n"; -($d,$r)=$b->div($c); -print "($d)($r)\n"; -printf "%s x %s + %s\n",$c->bn2hex,$d->bn2hex,$r->bn2hex; - -$g=$d; - -for (;;) - { - $a=$a->mod_mul($a,$mod); - print $a->bn2hex."\n"; - } |