~mdw
/
catacomb-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Key mangling, and elliptic curves.
[catacomb-perl]
/
test.pl
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
"
;