VPF::Как скрыть свой IP при отправки почты

kr0t

Дата 1.7.2007, 09:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Вот есть код:

Код


 IdSMTP1.Host := 'smtp.mail.ru';
    IdMessage1.CharSet := 'WINDOWS-1251';
    IdMessage1.Encoding := meMIME;
    IdMessage1.ContentType := 'text/plain';
    IdMessage1.ContentTransferEncoding := '8bit';
    IdMessage1.Subject :='Hi';  //текст темы сообщения
    IdMessage1.Recipients.EMailAddresses := '[email protected]'; //указываем адрес получателя
    IdMessage1.From.Address := '[email protected]'; //указываем автора письма
    IdMessage1.From.Name := 'Vasa' ;
    IdMessage1.Body.Text := 'bla-bla';   //размещаем текст сообщения
    IdMessage1.ReplyTo.EMailAddresses := '[email protected]';
    IdMessage1.Date:=StrToDate('01.12.2004');  //дата отправки письма, может быть любой
   IdSMTP1.AuthenticationType:=atLogin;
   IdSMTP1.Username:='delphi';
   IdSMTP1.Password:='something';
    try
      IdSMTP1.Connect;
      try
        IdSMTP1.Send(IdMessage1);
      except;
      exit;
      end;
      except;
      exit;
      end;
    end;

подскажите, как при отправке скрыть мой IP адрес??? Чтоб даже на сервере он не светился!
Надо наверно через прокси как-то, вот я и не знаю как.

Подскажите, пожалуйста!

Спасибо...

nerezus

Дата 1.7.2007, 10:00 (ссылка)

(нет голосов)

Загрузка ...

Вселенский отказник

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

Репутация: нет
Всего: 43

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

RFC 1928

--------------------

Сообщество художников Artsociety.ru

kr0t

Дата 1.7.2007, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

nerezus
ну ну, я конечно все "понял" :(
нельзя ли поподробней??? Это значит придется избавится от компонентов и почту отправлять с помощью winsock?

Заранее спасибо!

kr0t

Дата 3.7.2007, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Народ подскажите! Очень надо...

nerezus

Дата 3.7.2007, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Вселенский отказник

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

Репутация: нет
Всего: 43

Цитата

Это значит придется избавится от компонентов и почту отправлять с помощью winsock?

Либо писать нужные классы самому(либо ф-ии для извращенцев). либо искать в Сети.

--------------------

Сообщество художников Artsociety.ru

Matematik

Дата 3.7.2007, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

У Indy есть sock прослойка
главное правильно соединить компоненты ;)
для 9 примерно так

Код


    IdSMTP1: TIdSMTP;
    IdSocksInfo1: TIdSocksInfo;
    IdIOHandlerSocket1: TIdIOHandlerSocket;

    IdSMTP1 -> IdIOHandlerSocket1 -> IdSocksInfo1

основная проблема - найти рабочий sock сервер smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »