Привет Всем, вопрос такой, как мне определить програмным способом существует-ли электронный адрес, а то так хочется написать по одному адресу, а уверенность что этот адрес существует уже нет. Спасибо.

При регистрации отправляй письмо на E-mail, который указал пользователь при регистрации, в котором проси юзера проси подтвердить регистрацию, если регистрация подтверждена, значит E-mail существует, если же нет тогда создай файл, который будет парсить раз в сутки, ( в неделю ) базу и удалять все записи, которые не были подтверждены. Программно невозможно проверить проверить причём не только на Perl, вообще. Потому как могут указать существующий E-mail, но не свой. Что тоже не есть гуд.

Удачи.

Просто предложили спам-листик купить, вот и подумал как проверить адреса. Спасибо.

А вот еще идея, допустим есть спам-лист или генератор спам-листа, если запросить коннект на получение почты с какого-либо адреса, а пароль взять от балды, и в ответ получить что пароль неправильный значит есть вероятность что адрес существует. Кто что знает подскажите. Спасибо.

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

Тоже не люблю спамеров, просто раньше пытался изучать С, и что-то не пошло, теперь изучаю Perl, особенно его возможности, они мне нравятся. И если не ошибаюсь, где-то на форуме уже обсуждалась тема как получить почту с помощью скрипта, остается только модифицировать код. Но мне это не нужно, я интересуюсь теоритически. Спасибо.

Да, обсуждалось.
Но должен быть доступ к POP3 серверу.

Код примерно такой.

Код

!#/usr/bin/perl  -w use strict; use Mail::POP3Client;  my $login = ""; my $pass = "@67##@56#@7##3%#"; my $host = "pop3.rambler.ru"; open(HJ,"<../publik_html/names.txt")|| die "file names.txt error!!!\n"; open(JK,">../publik_html/adress.txt")|| die "file adress.txt error!!!\n"; while(<HJ>){ $login=$_; print "$login"; my $pop = new Mail::POP3Client( USER      => $login,                                  PASSWORD  => $pass,                                  HOST      => $host,                                  AUTH_MODE => "PASS",                                  DEBUG=>0 );  if (my $popCount=$pop->Count() == -1 ) {  print JK $login; } else {  print "Нифига себе совпадения";  } } close(HJ); close(JK); exit(0);

Правда какие-то глюки в модуле pop3client в строке 387 и 389. Но мне это не так интересно, я-же не спамер . Спасибо.

Не, фигня, не сработает. Может лучше отсылать письма и смотреть ответ, от демона или с адреса куда письмо посылали. Что-то все молчат, подозрительно как-то может сайт накрылся, или все в футбол ушли играть.

Да, но в данном случае ты подключаешься только к рамблеру. Причём на каждой итерации цикла.

korob2001 не понял? Просто не сработает по той причине что мертвые адреса тоже запишутся, т. к. на rambler'e если неправильный адрес или неправильный логин тогда отказ в коннекте будет все равно, я этого не знал. Я взял и отослал на пару адресов письма, просто спросил как дела. С одного адреса ответил демон, он сказал что адреса не существует.
Вот я и подумал может еще опрашивать адреса для надежности. А вообще где про протоколы почтовые можно почитать, может что там найдется интересного. Спасибо.

r гиблое это дело... много времени потратишь...

если все еще хочешь, читай rfc!

Цитата

если неправильный адрес или неправильный логин тогда отказ в коннекте будет все равно

это справедливо для любой авторизации

Это сообщение отредактировал(а) sharq - 3.7.2005, 23:28

sharq, а ты знаешь где об этом почитать на русском? Спасибо.

r, а спаммеры не знают английский?

2все: зачем спаммеру помогаете?

Да млин, а зачем Все здесь друг другу помогают, если приспичит в конце-то концов можно и по другому вопрос задать, и не поймешь то-ли спамеру то-ли хакеру помогаешь. Да и что-то не помню где спамеры что-то спрашивали, ИМХО они больше знают чем ты и я. На английском как нибудь разобрался-бы если-бы люди не жидились с ссылками. Спасибо.

r - скажу тебе честно, ничего у тебя не выйдет и проблема не в Perl, а в стандарте RFC. Проверить E-mail на существование, пока, никому не удалось, без отправки на него письма и получения ответа с этого адреса. В твоём случае дело обстоит ещё сложнее, так как адрес может существовать но пользователь может просто не ответить.

Это сообщение отредактировал(а) korob2001 - 10.7.2005, 23:23

Так-то так. Но отсутствие результата тоже результат! Главное проверять ответы где стоит только одно имя, имя программы которая говорит что адреса не существует. Достаточно мне кажется одного имени, так как оно одно и тоже. Если ответ получен значит, адресок из файла можно вычеркнуть. И если не ошибаюсь(поправьте если не прав) при установки фильтра с соответствующими параметрами прийдет также ответ от демона. Тему можно закрыть. Спасибо.

r некоторый почтовые серверы поддерживают проверку почтовых адресов - validate.
Но, к сожалению, не все, поэтому положиться на этот метод не стоит!

Все же смотри модули Mail::CheckUser, Mail::RFC822::Address, Email::Valid
и юзай www.cpan.org в поисках модулей работающих с почтой и почтовыми адресами. И тебе будет счастье.

Это сообщение отредактировал(а) sharq - 13.7.2005, 00:21

неплохой ресурс по сетям на русском языке
http://book.itep.ru/

Читаю и улыбаюсь: человек, который смутно себе представляет как работает почта хочет стать профессиональным спамером . Спасибо за пять минут здорового смеха - если бы все спамеры были такие, то проблема спама наверное вообще не стояла.

Пока ты в процессе чтения улыбался, ты пропустил суть. Объясню еще раз, мне предложили спам-лист, недорого, и у меня возникла мысль а не пустышку-ли мне хотят впарить, и я решил посовещатся со знающими людьми как проверить адреса. А спамером быть очень просто(как я предполагаю), тратишь лаве на адреса, запасаешься хостингом с поддержкой CGI, устанавливаешь скрипт, находишь пару римэйлеров, и вперед. Есть еще один вариант скрипт непосредственно сам обращается к почтовому серваку. Ну, можно еще подумать, поковырятся.
Так вот, Я НЕ СПАМЕР, МЕНЯ ИНТЕРЕСУЕТ ОШИБКА В АВТОРИЗАЦИИ ПОЛЬЗОВАТЕЛЯ, ПРИЧЕМ ТЕОРЕТИЧЕСКИ, А ИНТЕРЕСНО МНЕ ПОТОМУ, ЧТО МНЕ ИНТЕРЕСНО ВСЕ ЧТО Я НЕ ЗНАЮ. Спасибо за то что прочитал. Пока.