toychain/t/eckeys.t

BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }

use essential qw(keyw);
use encode qw(mbase58);
use ECKeys qw($keys ecsign ecverif eckeygen saveKeys loadKeys);
use YAML::Syck qw(Dump);

my $other = &loadKeys('secrets/coinbase.yml');
$keys->{coinbase} = $other->{coinbase};

my $anon = eckeygen('anonymous' => 'This is an anonymous ECDSA key');
my $id = eckeygen('identity' => 'Doctor I·T (demo)');
my $miner = eckeygen('miner' => 'Toycoin Mining Rig Corp.');
my $distrib = eckeygen('distribution' => 'ToyChain Distribution Account');
printf "keys: %s\n",Dump($keys);
&saveKeys('keyfile.yml',$keys);

my $sig = &ecsign('coinbase',qq'["coinbase","50","This is a coinbase transaction of 50 coins"]');
printf "- 50 coinbase: %s\n",$sig;
my $sig = &ecsign('coinbase',qq'["coinbase","100","default coinbase"]');
printf "- default coinbase: %s\n",$sig;

$sig = &ecsign('identity',"this message is signed by $keys->{identity}{name}");
printf "sig: %s\n",$sig;
print "validating \n";
my $valid = &ecverif($keys->{identity}{public},$sig,"this message is signed by $keys->{identity}{name}");
printf "valid: %s\n",$valid;

exit $?;

1;