summaryrefslogtreecommitdiffstats
path: root/perl/yy.pl
blob: 4415b53886dec507c2654e423d8f40d22e225b49 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/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";
	}