6 use Digest::MD5 qw(md5_hex);
17 my $f = md5_hex($salt.$j);
18 $f = md5_hex($f) for 1 .. 2016;
19 $five{$1} = $j for $f =~ /(.)\1\1\1\1/g;
21 my $h = md5_hex($salt,$i);
22 $h = md5_hex($h) for 1 .. 2016;
23 if ($h =~ /(.)\1\1/) {
24 next if !$five{$1} || $five{$1} <= $i;
25 say ++$count, " $i $1 in $h, also at $five{$1} ", md5_hex($salt.$five{$1});;
26 exit 0 if $count >= 64;