X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/blobdiff_plain/f9952aec1cf6c64a5681308eea817b6113a37433..fcd15e0b7a3d0f0ca2f30953573f8d1f6b8e8bd2:/test.pl diff --git a/test.pl b/test.pl deleted file mode 100644 index 8d7e82c..0000000 --- a/test.pl +++ /dev/null @@ -1,6 +0,0 @@ -use Catacomb qw(:const); - -($c, $g, $r, $h) = Catacomb::EC::Curve->getinfo("secp160r1"); -print $g->atinfp(), ": ", $g->x, ", ", $g->y, "\n"; -$p = $c->mul($g, $r); -print $p->atinfp(), "\n";