~mdw
/
catacomb-perl
/ blame
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
blame
(incremental) |
history
|
HEAD
Key mangling, and elliptic curves.
[catacomb-perl]
/
test.pl
Commit
Line
Data
660b443c
1
use Catacomb qw(:const);
2
a1a90aaf
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";