mirror of
https://github.com/openssl/openssl.git
synced 2025-01-18 13:44:20 +08:00
20 lines
209 B
Perl
20 lines
209 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
use ExtUtils::testlib;
|
||
|
|
|
||
|
|
use SSLeay;
|
||
|
|
|
||
|
|
$a=SSLeay::BN::new();
|
||
|
|
|
||
|
|
$a+="1234567";
|
||
|
|
|
||
|
|
print $a->bn2hex()."\n";
|
||
|
|
|
||
|
|
|
||
|
|
for (1 .. 20)
|
||
|
|
{
|
||
|
|
$a*=$a;
|
||
|
|
$b=$a->bn2hex();
|
||
|
|
print " ".$b."\n".length($b)."\n";
|
||
|
|
}
|