Bitcoin/address validation: Difference between revisions
→{{header|Perl 6}}: wrong module name
No edit summary |
(→{{header|Perl 6}}: wrong module name) |
||
Line 591:
sub check-bitcoin-address($addr) {
use Digest::SHA;
my @byte = unbase58 $addr;
!!! 'wrong checksum' unless @byte[21..24] ~~
| |||