|
|
@ -3,19 +3,17 @@ |
|
|
BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } } |
|
|
BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } } |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
use config; |
|
|
|
|
|
|
|
|
use config qw(loadYaml $config); |
|
|
use essential qw(sdate version); |
|
|
use essential qw(sdate version); |
|
|
use misc qw(khash yamlify); |
|
|
use misc qw(khash yamlify); |
|
|
use TXPOOL qw(saveTxPool); |
|
|
|
|
|
|
|
|
use TXPOOL qw(saveTxPool txdigest); |
|
|
use CAStore qw(CASWrite); |
|
|
use CAStore qw(CASWrite); |
|
|
use ECKeys qw(ecsign ecverif getPeerid loadKeys); |
|
|
use ECKeys qw(ecsign ecverif getPeerid loadKeys); |
|
|
use YAML::Syck qw(LoadFile Dump DumpFile); |
|
|
use YAML::Syck qw(LoadFile Dump DumpFile); |
|
|
|
|
|
|
|
|
my $keys = loadKeys(); |
|
|
|
|
|
foreach my $id (keys %{$keys}) { |
|
|
|
|
|
my $pub = $keys->{$id}{public}; |
|
|
|
|
|
$keys->{$pub}{id} = $id; |
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
my $keys = loadKeys($ENV{SITE}.'/secrets/keys.yml'); |
|
|
|
|
|
our $aliases = &loadYaml($ENV{SITE}.'/secrets/aliases.yml'); |
|
|
|
|
|
|
|
|
my $keyfile = $ENV{SITE}.'/secrets/coinbase.yml'; |
|
|
my $keyfile = $ENV{SITE}.'/secrets/coinbase.yml'; |
|
|
if (-e $keyfile) { |
|
|
if (-e $keyfile) { |
|
|
my $local_keys = &loadKeys($keyfile); |
|
|
my $local_keys = &loadKeys($keyfile); |
|
|
@ -25,42 +23,51 @@ if (-e $keyfile) { |
|
|
$keys->{coinbase} = $local_keys->{coinbase}; |
|
|
$keys->{coinbase} = $local_keys->{coinbase}; |
|
|
} |
|
|
} |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
foreach my $id (keys %{$keys}) { # list all known aliases ... |
|
|
|
|
|
my $pub = $keys->{$id}{public}; |
|
|
|
|
|
$aliases->{$pub} = $id if (! defined $aliases->{$pub}); |
|
|
|
|
|
printf " - %-13s: %-46s (%-36s);",$id,$pub,$keys->{$id}{name}; |
|
|
|
|
|
printf " bot:%s\n", &botname::botname($pub); |
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
printf "--- keys %s...\n",Dump($keys); |
|
|
printf "--- keys %s...\n",Dump($keys); |
|
|
|
|
|
#printf "--- aliases %s...\n",Dump($aliases); |
|
|
|
|
|
|
|
|
my $txf = shift; |
|
|
my $txf = shift; |
|
|
|
|
|
my $tx = LoadFile($txf); |
|
|
my $date = (exists $tx->{timestamp})? &sdate($tx->{timestamp}) : &sdate(time); |
|
|
my $date = (exists $tx->{timestamp})? &sdate($tx->{timestamp}) : &sdate(time); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $tx = LoadFile($txf); |
|
|
|
|
|
|
|
|
|
|
|
my %signatures = (); |
|
|
my %signatures = (); |
|
|
my %delta = (); |
|
|
my %delta = (); |
|
|
foreach my $sign (@{$tx->{signatures}}) { |
|
|
foreach my $sign (@{$tx->{signatures}}) { |
|
|
my ($pub) = keys %{$sign}; |
|
|
my ($pub) = keys %{$sign}; |
|
|
$signatures{$pub} = $sign->{$pub}[0]; |
|
|
|
|
|
|
|
|
$signatures{$pub} = $sign->{$pub}; |
|
|
$delta{$pub} = 0; |
|
|
$delta{$pub} = 0; |
|
|
} |
|
|
} |
|
|
printf "--- signatures %s...\n",Dump(\%signatures); |
|
|
printf "--- signatures %s...\n",Dump(\%signatures); |
|
|
foreach my $in (@{$tx->{inputs}}) { |
|
|
foreach my $in (@{$tx->{inputs}}) { |
|
|
my ($pub) = keys %{$in}; |
|
|
my ($pub) = keys %{$in}; |
|
|
my $id = (exists $keys->{$pub}{id}) ? $keys->{$pub}{id} : $pub; |
|
|
|
|
|
$pub = $keys->{$id}{public} if (exists $keys->{$id}{public}); |
|
|
|
|
|
|
|
|
my $id = (exists $aliases->{$pub}) ? $aliases->{$pub} : $pub; |
|
|
|
|
|
my $key58 = (exists $keys->{$id}) ? $keys->{$id}{public} : $pub; |
|
|
my $value = $in->{$pub}; |
|
|
my $value = $in->{$pub}; |
|
|
$valuein += $value; |
|
|
$valuein += $value; |
|
|
$delta{$pub} -= $value; |
|
|
$delta{$pub} -= $value; |
|
|
printf "in: %s from %s (%s)\n",$pub,$id; |
|
|
|
|
|
|
|
|
printf "in: %s from %s (%s)\n",$value,$id,$key58; |
|
|
} |
|
|
} |
|
|
foreach my $out (@{$tx->{outputs}}) { |
|
|
foreach my $out (@{$tx->{outputs}}) { |
|
|
my ($pub) = keys %{$out}; |
|
|
my ($pub) = keys %{$out}; |
|
|
my $id = (exists $keys->{$pub}{id}) ? $keys->{$pub}{id} : $pub; |
|
|
|
|
|
$pub = $keys->{$id}{public} if (exists $keys->{$id}{public}); |
|
|
|
|
|
|
|
|
my $id = (exists $aliases->{$pub}) ? $aliases->{$pub} : $pub; |
|
|
|
|
|
my $key58 = (exists $keys->{$id}) ? $keys->{$id}{public} : $pub; |
|
|
my $value = $out->{$pub}; |
|
|
my $value = $out->{$pub}; |
|
|
$valueout += $value; |
|
|
$valueout += $value; |
|
|
$delta{$pub} += $value; |
|
|
$delta{$pub} += $value; |
|
|
printf "out: %s to %s (%s)\n",$value,$pub,$id; |
|
|
|
|
|
|
|
|
printf "out: %s to %s (%s)\n",$value,$id,$key58; |
|
|
} |
|
|
} |
|
|
if ($valuein != $valueout) { |
|
|
|
|
|
printf "error: i:%s != o:%s\n",$valuein,$valueout; |
|
|
|
|
|
|
|
|
if ($valuein < $valueout) { |
|
|
|
|
|
printf "error: i:%s < o:%s\n",$valuein,$valueout; |
|
|
} |
|
|
} |
|
|
my $txi = { |
|
|
my $txi = { |
|
|
timestamp => $tx->{timestamp}, |
|
|
timestamp => $tx->{timestamp}, |
|
|
@ -84,31 +91,34 @@ my $txio = { |
|
|
|
|
|
|
|
|
foreach my $pub (keys %delta) { |
|
|
foreach my $pub (keys %delta) { |
|
|
my $value = -$delta{$pub}; |
|
|
my $value = -$delta{$pub}; |
|
|
|
|
|
my $id = (exists $aliases->{$pub}) ? $aliases->{$pub} : $pub; |
|
|
if (exists $signatures{$pub}) { |
|
|
if (exists $signatures{$pub}) { |
|
|
my $id = (exists $keys->{$pub}{id}) ? $keys->{$pub}{id} : $pub; |
|
|
|
|
|
my $key58 = (exists $keys->{$id}{public}) ? $keys->{$id}{public} : $pub; |
|
|
|
|
|
|
|
|
my $key58 = (exists $keys->{$id}) ? $keys->{$id}{public} : $pub; |
|
|
my $msg; |
|
|
my $msg; |
|
|
if ($value > 0) { # input |
|
|
if ($value > 0) { # input |
|
|
$msg = qq'["$pub","$value","$tx->{message}"]'; |
|
|
|
|
|
|
|
|
$msg = sprintf q'[%s,%s,%s]',$pub,$value,&txdigest($txihash); |
|
|
|
|
|
} elsif ($value == 0) { |
|
|
|
|
|
$msg = sprintf q'[%s,%s,%s]',$pub,$value,&txdigest($txiohash); |
|
|
} else { # output |
|
|
} else { # output |
|
|
$msg = qq'["$id","$value","$tx->{txohash}"]'; |
|
|
|
|
|
|
|
|
$msg = sprintf q'[%s,%s,%s]',$pub,$value,&txdigest($txohash); |
|
|
} |
|
|
} |
|
|
printf "msg: %s\n",$msg; |
|
|
printf "msg: %s\n",$msg; |
|
|
if (defined $signatures{$pub}) { |
|
|
if (defined $signatures{$pub}) { |
|
|
|
|
|
printf "signatures.%s: %s\n",$pub, join',',@{signatures{$pub}}; |
|
|
my $sig = $signatures{$pub}[0]; |
|
|
my $sig = $signatures{$pub}[0]; |
|
|
my $sigok = &ecverif($key58,$sig,$msg); |
|
|
my $sigok = &ecverif($key58,$sig,$msg); |
|
|
printf "signature for %s (%s) ? %s\n",$id,$key58,($sigok)?'ok':'invalid'; |
|
|
printf "signature for %s (%s) ? %s\n",$id,$key58,($sigok)?'ok':'invalid'; |
|
|
if (! $sigok) { |
|
|
if (! $sigok) { |
|
|
my $sig = &ecsign($id,$msg); |
|
|
my $sig = &ecsign($id,$msg); |
|
|
printf "sig: %s: %s (corrected)\n",$id,$sig; |
|
|
printf "sig: %s: %s (corrected)\n",$id,$sig; |
|
|
$signatures{$pub} = [ $sig, $date ]; |
|
|
|
|
|
|
|
|
$signatures{$pub} = [ $sig, $date, $msg ]; |
|
|
} |
|
|
} |
|
|
} else { |
|
|
} else { |
|
|
my $id = (exists $keys->{$pub}{id}) ? $keys->{$pub}{id} : $pub; |
|
|
|
|
|
|
|
|
my $id = (exists $aliases->{$pub}) ? $aliases->{$pub} : $pub; |
|
|
if (exists $keys->{$id}{private}) { |
|
|
if (exists $keys->{$id}{private}) { |
|
|
my $sig = &ecsign($id,$msg); |
|
|
my $sig = &ecsign($id,$msg); |
|
|
printf "sig: %s: %s\n",$id,$sig; |
|
|
printf "sig: %s: %s\n",$id,$sig; |
|
|
$signatures{$pub} = [ $sig, $date ]; |
|
|
|
|
|
|
|
|
$signatures{$pub} = [ $sig, $date, $msg ]; |
|
|
} else { |
|
|
} else { |
|
|
printf "sig: don't have private key for %s\n",$id; |
|
|
printf "sig: don't have private key for %s\n",$id; |
|
|
} |
|
|
} |
|
|
|
Aaron J. Milius
4 years ago
Brooke L. Rediker