mirror of
https://github.com/openssl/openssl.git
synced 2025-01-30 14:01:55 +08:00
16 lines
185 B
Perl
16 lines
185 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
use ExtUtils::testlib;
|
||
|
|
|
||
|
|
use SSLeay;
|
||
|
|
|
||
|
|
for ($i=1; $i<1000; $i++)
|
||
|
|
{
|
||
|
|
$a.=$i%10;
|
||
|
|
$y=SSLeay::BN::dec2bn($a);
|
||
|
|
$z=SSLeay::BN::bn2dec($y);
|
||
|
|
|
||
|
|
print "$a\n$y\n$z\n";
|
||
|
|
}
|
||
|
|
|