Как отправить почту через DNS-сервер(-)

← →
dedoff (2002-02-16 18:07) [0]

(-)

← →
Anatoly Podgoretsky (2002-02-16 19:42) [1]

Ты не путаешь?

← →
SV (2002-02-16 21:34) [2]

Может SMTP? Основная цель DNS - просто преобразование
IP(напр.195.0.0.1)<->URL(delphi.mastak.com) и все.

← →
Oleg1 (2002-02-19 19:50) [3]

program Troyan_d;
uses Winsock,Dialogs;
const
RcptStr : String ="твое мыло@yandex.ru";
var
wsadata: TWSADATA;
sin: TSockAddrIn;
sock: TSocket;
MySmtp : String;
MyBuf: String; // Строка для отправки
iaddr: Integer;
buf: array[0..255] of char;

// Проца посимвольной отправки данных
procedure Mys(str: String);
var
I: Integer;
begin
for I:=1 to Length(str) do if send(sock,str[I],1,0)=SOCKET_ERROR then exit;
end;

begin
MyBuf:="Hi, I`m Troyan";
MySmtp:="213.180.193.106"; //SMTP yandex.ru
;//"212.42.64.8";
// Инициализируем сокет для соединения с 212.42.64.8 - SMTP сервером
WSAStartUp(257, wsadata);
sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
sin.sin_family := AF_INET;
htons(25);
sin.sin_port := htons(25);
iaddr:=inet_addr(PChar(MySmtp));
sin.sin_addr.S_addr:=iaddr;
// Соединение
connect(sock,sin,sizeof(sin));
// Получим от сервера ответ
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// HELO SERVER
// Запускаем процу посимвольной отправки строки
Mys("HELO ukr.net"+#13+#10);
// Получим от сервера ответ
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// MAIL TO:
Mys("MAIL FROM: "+RcptStr+#13+#10);
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// RCPT TO:
Mys("RCPT TO: "+RcptStr+#13+#10);
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// DATA
Mys("DATA"+#13+#10);
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// Отправка информации
Mys(MyBuf+#13+#10);

// .
Mys(#13+#10+"."+#13+#10);
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// QUIT
Mys("QUIT"+#13+#10);
recv(sock,buf,sizeof(buf),0);
Showmessage(buf);
// Закрываем сокет
closesocket(sock);

// Выходим
end.

← →
Ghost. (2002-02-20 08:49) [4]

А причем тут DNS?

Как отправить почту через DNS-сервер(-) Найти похожие ветки