perl/testdec.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!/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";
	}