Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Как скрыть свой IP при отправки почты

Автор: kr0t 1.7.2007, 09:10

Вот есть код:

Код


 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 := 'vasa@pupkin.ru'; //указываем адрес получателя
    IdMessage1.From.Address := 'vasa@pupkin.ru'; //указываем автора письма
    IdMessage1.From.Name := 'Vasa' ;
    IdMessage1.Body.Text := 'bla-bla';   //размещаем текст сообщения
    IdMessage1.ReplyTo.EMailAddresses := 'billi@microsoft.com';
    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

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

RFC 1928

Автор: kr0t 1.7.2007, 14:27

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

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

Автор: kr0t 3.7.2007, 14:54

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

Автор: nerezus 3.7.2007, 19:13

Цитата

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

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

Автор: Matematik 3.7.2007, 19:34

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

Код


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

    IdSMTP1 -> IdIOHandlerSocket1 -> IdSocksInfo1

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