mirror of
https://github.com/openssl/openssl.git
synced 2025-01-30 14:01:55 +08:00
15 lines
157 B
Perl
15 lines
157 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
use ExtUtils::testlib;
|
||
|
|
|
||
|
|
use SSLeay;
|
||
|
|
|
||
|
|
$a=SSLeay::BN::dec2bn("1234");
|
||
|
|
|
||
|
|
foreach (1..4)
|
||
|
|
{
|
||
|
|
$a*=$a;
|
||
|
|
print $a."\n",$a->bn2dec()."\n";
|
||
|
|
}
|
||
|
|
|