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