You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
888 B
31 lines
888 B
|
|
BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
|
|
|
|
use seed qw(getsalt);
|
|
|
|
seed::setseed(0x1245356);
|
|
|
|
use encode qw(decode_base58f encode_base58f);
|
|
use CAStore qw(cashash CASWrite);
|
|
printf "v16: %s\n",unpack'H*',decode_base58f('TxG4cMYVXUM4T8GdwCyauYe4UkKYWnrkFsZVxe3KRfg');
|
|
printf "v58: %s\n",encode_base58f(pack'H*','0d347435dc89c141487f8ec816d71bdc05341b52f40b53fb6bd8469885bcee57');
|
|
printf "v58: %s\n",encode_base58f(pack'H*','0d34000000000000000000000000000000000000000000000000000000000000');
|
|
printf "len: %d\n",length('TxG4cMYVXUM4T8GdwCyauYe4UkKYWnrkFsZVxe3KRfg');
|
|
my $type = 'Txi';
|
|
my $salt = &getsalt();
|
|
printf "type: %s\n",$type;
|
|
my ($addr,$pow) = cashash('SHA256','~',$salt,$type,5);
|
|
printf "addr16: f%s\n",unpack'H*',$addr;
|
|
printf "addr58: %s\n",encode_base58f($addr);
|
|
|
|
$addr = CASWrite(undef,$salt,$type,5);
|
|
printf "addr: %s\n",$addr;
|
|
|
|
|
|
|
|
|
|
|
|
exit $?;
|
|
|
|
1;
|
|
|