ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу Сборщик почты с емейлов [perl]
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Сборщик почты с емейлов [perl]
  #1  
Старый 26.05.2008, 00:24
Kaimi
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311

Репутация: 1676


Отправить сообщение для Kaimi с помощью ICQ
По умолчанию Сборщик почты с емейлов [perl]
Видел несколько тем, где люди хотели получить копию писем с разных почтовиков, не используя thebat, outlook и тп.

Для работы необходим ActivePerl и модуль MIME::Base64 из репозитория.
В папке со скриптом необходимо создать файл emails.txt с списком в таком виде:

user@server.ru;password;pop.server.ru

Скачать:
http://stream.ifolder.ru/6716917
 
Ответить с цитированием

  #2  
Старый 26.05.2008, 00:36
emik
Познающий
Регистрация: 20.12.2007
Сообщений: 80
Провел на форуме:
497815

Репутация: 85
По умолчанию
Цитата:
Для работы необходим ActivePerl и модуль MIME::Base64 из репозитория.
а что это за модуль MIME::Base64 ?
 
Ответить с цитированием

  #3  
Старый 26.05.2008, 00:37
Kaimi
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311

Репутация: 1676


Отправить сообщение для Kaimi с помощью ICQ
По умолчанию
http://search.cpan.org/~gaas/MIME-Base64-3.07/Base64.pm
 
Ответить с цитированием

  #4  
Старый 02.08.2008, 02:03
>.:!FrE!:.<
Участник форума
Регистрация: 19.07.2008
Сообщений: 168
Провел на форуме:
1312476

Репутация: 85
Отправить сообщение для >.:!FrE!:.< с помощью ICQ
По умолчанию
Цитата:
где люди хотели получить копию писем с разных почтовиков, не используя thebat, outlook и тп.
Что не совсем понял!
 
Ответить с цитированием

  #5  
Старый 02.08.2008, 03:35
xcedz
Познавший АНТИЧАТ
Регистрация: 14.01.2008
Сообщений: 1,165
Провел на форуме:
7229141

Репутация: 3099


По умолчанию
Цитата:
Сообщение от >.:!FrE!:.<  
Что не совсем понял!
что не понятного? можешь замутить сервис свой- сбощик почты "в одном" месте.
 
Ответить с цитированием

  #6  
Старый 03.08.2008, 16:15
Gifts
Reservists Of Antichat - Level 6
Регистрация: 25.04.2008
Сообщений: 827
Провел на форуме:
2769640

Репутация: 1304


По умолчанию
Багов конечно многовато, но все равно спасибо

Из найденного:
1) Проблемы с кодировками (не понимает iso кодировки) ошибка: "Unknown encoding 'iso-8859-1)' at c:\Perl\bin\login.pl line 33" Лишняя скобка в общем
2) Проблема с UTF кодировкой: "Unknown encoding 'UTF-8; format=flowed' at c:\Perl\bin\login.pl line 32"
3) Если в письме есть изображения - то вместо письма только изображение остается

З.Ы. ну и просьба - можно как нибудь реализовать - чтобы письма не помечались прочитанными? (aka вконце не посылалось QUIT сообщение, а просто разрыв связи)

Хех, сам нашел решения:
Код:
31 строчка: 		if($data =~ /charset=(.*)/) {$enc = $1; if($enc =~ /(.*?);/){$enc = $1;} $enc =~ s/"//ig;}
33 строчка: 		else {if ($enc =~ /(.*)\)/) {$enc=$1;} print FILE decode($enc,$data); }
Если не хотите, чтобы письма помечались прочитанными:
Код:
38 строчка: $pop->close;
Последний раз редактировалось Gifts; 03.08.2008 в 16:33..
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ