Bitcoin/address validation: Difference between revisions
m
→{{header|Perl}}: adding error message
m (→{{header|Perl}}: adding error message) |
|||
Line 114:
use Digest::SHA qw(sha256);
my @byte = unbase58 shift;
die "wrong checksum" unless
substr sha256(sha256 pack 'C*', @byte[0..20]), 0, 4;
}</lang>
|