Displaying 1 result from an estimated 1 matches for "pw_filter".
Did you mean:
pm_filter
1997 Sep 28
0
[IPD] Internet Probe Droid
...ot;\n=====================================================\n";
print "Trying ACCOUNT: $account PASSWORDS: @{$hash{$account}}\n";
my @lines = <$pipe>;
close $pipe;
print "@lines";
print "\n=====\n";
}
# filter out potential nonpasswords
sub pw_filter {
my %pws;
my (@list) = @_;
print "List: @list\n" if $debug;
if ($passwdfile) {
for (@list) {
unless (length($_) < 5) {
s/[()'']//g;
$pws{$_}++;
if (length($_) == 5) { $pws{"${_}1"} = "${_}1"; }...