Проверка email

[TeRm1T]

Здравствуйте! Подскажите пожалуйста, как можно проверить большое количество мыл с паролями на валидность, тоесть входит в акк или нет? Заранее благодарен.

 

[v0rbis]

Вы о чем вообще?

 

[deMone]

Авторизуйтесь на каждую учётку по протоколу POP3 и проверяйте: выдаст ошибку или нет.

 

[TeRm1T]

Имееться сотни мыл. нужно прочекать какие из них живые (пасс верный или нет). мыла изначально с пассом.

 

[deMone]

Ну, я ведь уже сказал, что делать...

 

[rodikale]

Я лично пыталась так делать уменя ничего не вышло, у меня просто та же задача...но к сожалению, ничего не выходит, может я что не так делала

 

[DoctorX]

необходимо написать прогу.. или скрипт которая будет пытаться заёти на каждое мыло..
если мылы на одном сервере - то тут проще если на разных то надо ещё подумать как реализовать.

 

[Ivan]

#!/usr/bin/perl
$|++;
use strict;
use warnings;

use Mail::CheckUser qw(check_email);

# .... предположим у вас майлы в текстовом файле по 1 в строке
my $emails_file = '/path/to/file.txt';

my @valid_mails = ();
open(TXT,"<$emails_file") or die $!;
	while(<TXT>) {
	  next unless $_;
	  chomp;
	  push @valid_mails, $_ if check_email($_);
	}
close(TXT);

# ... сохраним майлы
my $exit_file = '/path/to/result.txt';
open(ETXT,">$exit_file") or die $!;
	 print ETXT $_."\n" for @valid_mails;
close(ETXT);

Этот скрипт позволит отфильтровать майлы из списка и сохранить в /path/to/result.txt те, которые действительно есть в пределах домена. (Если хотите, то - отфильтровать живые майлы).
Скрипт, который проверяет пароль к мылам писать вам не буду, т.к. это противоречит моим принципам.
Думаю, сами сделаете, если захотите.