Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> SMTP - отправка почты через прокси, возможно ли это ??? 
:(
    Опции темы
Eugene_Bond
Дата 8.9.2006, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 3.9.2006

Репутация: нет
Всего: 4
Цитата(Lence @  4.9.2006,  18:17 Найти цитируемый пост)
но проверить не могу так как не поднят у меня нигде Socks5. 

дык, полно бесплатных в инете.
правда там живучесть меньше 1%, но найти живого вполне можно.
PM MAIL   Вверх
Lence
  Дата 9.9.2006, 17:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Чухарадземадзупэ
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

Репутация: нет
Всего: 3
Цитата(Eugene_Bond @  8.9.2006,  17:07 Найти цитируемый пост)
 дык, полно бесплатных в инете.правда там живучесть меньше 1%, но найти живого вполне можно.

найти то нашел .... но не отправляет ... точнее у меня носок в локалке не работает ....  а почемуто отправляет .. без всяких ошибок .. хотя Socks может и не работать ... поэтому и спрашиваю как сделать чтоб через Socks отправлялся этот пример .... 

Это сообщение отредактировал(а) Lence - 9.9.2006, 17:34
--------------------
Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....  
PM MAIL ICQ Skype   Вверх
Eugene_Bond
Дата 10.9.2006, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 3.9.2006

Репутация: нет
Всего: 4
Видимо для начала надо проверить живой ли сокет.
PM MAIL   Вверх
Lence
Дата 10.9.2006, 14:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Чухарадземадзупэ
*


Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.5.2006
Где: Ташкент

Репутация: нет
Всего: 3
Цитата(Eugene_Bond @  10.9.2006,  12:42 Найти цитируемый пост)
Видимо для начала надо проверить живой ли сокет. 

что ты имеешь ввиду ???  каким образом проверить ??? 

Тот пример писал Girder, я только добавил вариант через сокс .... в любом случае отправляется все на ура ... но никаким носком и не пахнет smile 
--------------------
Шуруп, забитый молотком, крепче сидит чем гвоздь, закрученный отверткой ....  
PM MAIL ICQ Skype   Вверх
Eugene_Bond
Дата 15.11.2006, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 138
Регистрация: 3.9.2006

Репутация: нет
Всего: 4
Блин, я и забыл про эту тему smile


Цитата(Lence @  10.9.2006,  14:55 Найти цитируемый пост)
каким образом проверить ??? 

Попытаться через этот сокет открыть самого себя.
В идеале -- обратиться к своему же серверу к 25-му порту (достаточно HELO отправить и считать ответ). 
PM MAIL   Вверх
mai62
Дата 16.11.2006, 00:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.2.2006

Репутация: 2
Всего: 3
Можно сделать тунель через http прокси с помощью метода connect. Если кто сомневается, вот моя программка mailporter. Сделана на двух TIdMappedPortTCP, один для pop, а другой для smtp сервера. При поступлении запроса почтовой программы прокси серверу посылается команда connect с удаленным сервером и дальше почтовик работает через созданный тунель.
Код

procedure TForm1.IdMappedPortTCP1OutboundConnect(  AThread: TIdMappedPortThread; AException: Exception);
var s: String;
begin
  if not assigned(AException) and AThread.OutboundClient.Connected then
  begin
    s:= 'CONNECT '+ExPopIP.Text+':'+ExPopPort.Text +' HTTP/1.1'#13#10;
    AThread.OutboundClient.Write(s+#13#10);
  end;
end;

procedure TForm1.IdConnectionInterceptReceive(ASender: TIdConnectionIntercept; AStream: TStream);
var
  s: String;
  n: Integer;
begin
  if TMyIntercept(ASender).AnswerReceived then Exit;
  s:= ReadToString(AStream);
  n:= Pos('HTTP/1.0 200 Connection established'#13#10, s);
  if n>0 then
  begin
    n:= Pos(#13#10#13#10, s);
    if n>0 then
    begin
      Delete(s, 1, n+3); // Удаляется ответ 'Connection established' от прокси, почтовая программа его не ждет
      AStream.Size:= 0;
      if s<>'' then
      begin
        AStream.Write(s[1], Length(s));
        AStream.Seek(0, 0);
        TMyIntercept(ASender).AnswerReceived:= True;
      end;
    end;
  end;
end;
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0482 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.