mirror of
https://github.com/openssl/openssl.git
synced 2024-12-03 05:41:46 +08:00
20 lines
236 B
Perl
20 lines
236 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
use ExtUtils::testlib;
|
||
|
|
|
||
|
|
use SSLeay;
|
||
|
|
|
||
|
|
# 2687145 * 3003 * 10^5072 - 1.
|
||
|
|
|
||
|
|
$a=SSLeay::BN::set_word(99);
|
||
|
|
$b=SSLeay::BN::set_word(100);
|
||
|
|
|
||
|
|
$aa=$a->dup;
|
||
|
|
$bb=$b->dup;
|
||
|
|
|
||
|
|
$c=$a*$b;
|
||
|
|
$bb+=$a;
|
||
|
|
|
||
|
|
print "$a*$b=$c\n";
|
||
|
|
print "$bb\n";
|