13 lines
229 B
Perl
13 lines
229 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
use ExtUtils::testlib;
|
||
|
|
|
||
|
|
use SSLeay;
|
||
|
|
|
||
|
|
$a=SSLeay::BN::dec2bn("1231353465324563455");
|
||
|
|
print "a=$a\n".$a->bn2dec."\n";
|
||
|
|
$b=SSLeay::BN::dec2bn("98790816238765235");
|
||
|
|
print "a=$a\nb=$b\n";
|
||
|
|
print $a->gcd($b)."\n";
|
||
|
|
|