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.
20 lines
437 B
20 lines
437 B
#!/usr/bin/perl
|
|
|
|
BEGIN { if (-e $ENV{SITE}.'/lib') { use lib $ENV{SITE}.'/lib'; } }
|
|
|
|
use seed qw(rand64);
|
|
use encode qw(mbase58 mbase36 mbase16);
|
|
|
|
my $seed = &seed::setseed('testing mbase* subroutines');
|
|
my $r = rand64();
|
|
my $q = pack'Q',$r;
|
|
printf "seed: %s\n",$seed;
|
|
printf "r: %s\n",$r;
|
|
printf "q: 0x%s\n",unpack'H*',$q;
|
|
printf "r58: %s\n",&mbase58($q);
|
|
printf "r36: %s\n",&mbase36($q);
|
|
printf "r16: %s\n",&mbase16($q);
|
|
|
|
exit $?;
|
|
|
|
1;
|