toychain/eckeygen.pl

#!/usr/bin/perl
#
# testing out ecdsa key generation ...

use Crypt::PK::ECC;
use YAML::Syck qw(Dump);

#Key generation
my $pk = Crypt::PK::ECC->new();
$pk->generate_key('secp256k1');
my $private_der = $pk->export_key_der('private');

my $public_pem = $pk->export_key_pem('public');

local *PK;
open PK,'>','eckey-priv.der'; binmode(PK);
print PK $private_der;
close
open PK,'>','eckey-pub.pem';
print PK $public_pem;
close PK;

open PK,'>','eckey.yml';
print PK "--- # eckey\n";
printf PK "pk: %s\n",Dump($pk->key2hash);
printf PK "...\n";
close PK;


exit $?;

1; # $Source: /my/perl/script/eckeygen.pl $