mirror of
https://github.com/openssl/openssl.git
synced 2024-11-25 19:13:48 +08:00
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";
|
|
|