Сборщик почты с емейлов [perl]

ВЫЕЗД ИЗ УКРАИНЫ • ОФОРМЛЕНИЕ ДОКУМЕНТОВ • БРОНИРОВАНИЕ • ПОМОЩЬ С ТЦК

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Сборщик почты с емейлов [perl]

Опции темы

Поиск в этой теме

Опции просмотра

Сборщик почты с емейлов [perl]

26.05.2008, 00:24

Kaimi

Познавший АНТИЧАТ

Регистрация: 23.08.2007

Сообщений: 1,237

С нами: 9851426

Репутация: 1676

Сборщик почты с емейлов [perl]

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

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

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

Скачать:
http://stream.ifolder.ru/6716917

𝕏 Twitter Reddit Telegram Копировать ссылку

26.05.2008, 00:36

emik

Познающий

Регистрация: 20.12.2007

Сообщений: 80

С нами: 9680385

Репутация: 85

Цитата:

Для работы необходим ActivePerl и модуль MIME::Base64 из репозитория.

а что это за модуль MIME::Base64 ?

26.05.2008, 00:37

Kaimi

Познавший АНТИЧАТ

Регистрация: 23.08.2007

Сообщений: 1,237

С нами: 9851426

Репутация: 1676

http://search.cpan.org/~gaas/MIME-Base64-3.07/Base64.pm

02.08.2008, 02:03

>.:!FrE!:.<

Участник форума

Регистрация: 19.07.2008

Сообщений: 168

С нами: 9375070

Репутация: 85

Цитата:

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

Что не совсем понял!

02.08.2008, 03:35

xcedz

Познавший АНТИЧАТ

Регистрация: 14.01.2008

Сообщений: 1,165

С нами: 9644006

Репутация: 3099

Цитата:

Сообщение от >.:!FrE!:.<

Что не совсем понял!

что не понятного? можешь замутить сервис свой- сбощик почты "в одном" месте.

03.08.2008, 16:15

Gifts

Reservists Of Antichat - Level 6

Регистрация: 25.04.2008

Сообщений: 827

С нами: 9497186

Репутация: 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)

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