~mdw
/
catacomb-perl
/ blame_incremental
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
blame
(non-incremental) |
history
|
HEAD
Key mangling, and elliptic curves.
[catacomb-perl]
/
test.pl
This page requires JavaScript to run. Use
this page
instead.
... / ...
Commit
Line
Data
1
use Catacomb qw(:const);
2
3
($c, $g, $r, $h) = Catacomb::EC::Curve->getinfo("secp160r1");
4
print $g->atinfp(), ": ", $g->x, ", ", $g->y, "\n";
5
$p = $c->mul($g, $r);
6
print $p->atinfp(), "\n";