perl/tt.pl


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

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