Опубликована база с 320 млн уникальных паролей (5,5 ГБ)

#!/usr/bin/perl

use strict;
use Digest::SHA1 qw(sha1_hex sha1_base64);

my @pass = ('passwords', 'for', 'geeks');
for my $data (@pass) {
    my $d = uc(sha1_hex($data));
    if (ff("pwned-passwords-1.0.txt", $d) || ff("pwned-passwords-update-1.txt ", $d)) {
       print sprintf("%15s\tFOUND\n", $data);
    }
}

sub ff {
    my ($fname, $data) = @_;
    my $fsize = -s $fname || die "File $fname not found";
    local *F;
    open(F, "< $fname");
    my $min = 0;
    my $max = $fsize / 42; 
    while (1) {
        my $pos = int( ($max + $min) / 2);
        seek(F, $pos * 42, 0);
        my $row = <F>;
	chomp($row); chomp($row);
        if ($row lt $data) {
            if ($min == $pos || $min >= $max) {
               close F; return 0;
            }
            $min = $pos;
        } elsif ($row gt $data) {
            if ($max == $pos || $max == 0) {
               close F; return 0;
            }
            $max = $pos;
        } else {
            close F; return 1;
        }
    }
    return 0;
}