Нужна помощь

Нужна прога или скрипт которая собирает мыла с сайтов, желательно приват
С меня ++++

 

Мыла с сайтов, тоесть сама ищет скулю в сайте, ищет таблицу с мылами и записывает их в определённый файл ? =\

 

за приват +++?.. самому не смешно? создаеш тему не воспользовавшись гуглом! вот те запрос: парсер мыл с сайтов. В выдаче, третий линк.. Стыдно должно быть..

 

xcedz звездная болезнь бля

 

Мне нужны именно мыльники

 

по списку будеш или как?

 

а пассы не нужны? ато можно и пассы ещё.... Ещё можно у соседа взорвать комп. Просто нажал кнопку и всё .... прога помому называеться lomalka.exe ... както так... Есть ещё UskoeitelInterneta.exe но это помому токо в привате... хотя может и найдёшь в паблике

 

Бля мыла мне надо собирать с сайтов

 

ХУЙ ты ко мне в клуб придешь

 

polyxaker, ты же не можешь +++ ставить))

 

пиши в личку)

 

EmailsHunter не актуален

 

Я их путаю(( Хакеров в смысле((

 

Универсальный писать лениво, а под ответы мейлру вот если надо:

Code:

#! /usr/bin/perl -w
use threads;
use threads::shared;
use IO::Socket;

my $i  : shared;
my $cnt: shared;
my $total : shared;
$list 	 = 'newbase.txt';
$threads =  shift || 0;
$i 		 =  shift || 15500539;
$cnt 	 = 0;
$|   	 = 1;
$total	 = 0;


$time 	 = time; 
printf "Started at ".localtime()."\n";

for(0..$threads) {$trl[$_] = threads->create(\&par, $_);}
for(@trl) { $_->join; }

sub par
{
while($i)
	{
	{lock($i); $i--;}
	my $sock = new IO::Socket::INET 
		(
		PeerAddr => 'otvet.mail.ru',
   		PeerPort => 80, 
   		PeerProto => 'tcp', 
   		TimeOut => 20
		) or die "Can't connect\n";
	my $re = "GET http://otvet.mail.ru/question/$i/ HTTP/1.0\nHost: otvet.mail.ru\n".
		 "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0b1; Windows NT 5.1; SV1; .NET CLR 1.1.4322; MS IdentiServ 1.4.12)\n".
		 "Connection: Close\nReferer: http://otvet.mail.ru\n\n";
	
	print $sock $re; 
	my $answ;
	while (defined($line = <$sock>)) {
        $answ .= $line;
    }
	
	open(FILE, ">>$list") || die("Could not open $list\n");
	while($answ =~ m/agent\?message\&to=(.*?)"/sg)
		{
		{lock($total); $total++;}
		print $1."\n";
		print FILE $1."\n";
		}
	close(FILE);
	{lock($cnt); $cnt++;}
	$percent = ($cnt/$i)*100;
	progress();
	}
}

$time = time-$time;
printf "Finished at".localtime()."\n";
printf "Time elapsed: $time sec\n";
printf "Found: $total \n";

sub progress{
print "|";
$percent = sprintf("%.2f", $percent);
print "< $percent% >\r";
	}

 

Kaimi
Спасибо, но нужно совершенно не по RU

 

пользуйась случаем...ищу каво нить оч умного способного сломать мЫло на яндексе..есть такие? =)

 

САБЖ актуален

 

лучше учи пхп

 

ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!КТО НИБУДЬ!!!!!