Bitcoin/address validation: Difference between revisions
m
→{{header|Perl}}: useless variable
m (→Perl: correct header) |
m (→{{header|Perl}}: useless variable) |
||
Line 21:
sub check_bitcoin_address {
use Digest::SHA qw(sha256 sha256_hex);
my $value
my @hash; for (1 .. 25) { push @hash, $value % 256; $value /= 256 }
@hash = reverse @hash;
| |||