Bitcoin/address validation: Difference between revisions
m
→{{header|Perl}}: @hash is a terrible variable name
m (→{{header|Perl}}: slight simplification) |
m (→{{header|Perl}}: @hash is a terrible variable name) |
||
Line 22:
use Digest::SHA qw(sha256);
my $value = decode shift;
my @
@
die unless join('', map { chr } @
substr sha256(sha256 pack 'C*', @
}</lang>
| |||