Socket SMTP

[s0l_ir0n]

Пол дня курил RFC по SMTP, так и не смог правильно составить тело.
Покажите, где ошибка:
procedure Sends(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;
//---------------------
var
MailFrom ='from@a.b';
MailTo = 'to@a.b';
CRLF = #13+#10;
Body = 'My-Mail-Body';
MySmtp = '127.0.0.1';
subject = 'My-Mail-Subj';

procedure SendMail;
begin
WSAStartUp($0101, wsadata);
sock:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);

Addr.sin_family:=PF_Inet;
Addr.sin_port:=HtoNS(25);
Addr.sin_addr.S_addr:=Inet_Addr(PChar(MySmtp));
FillChar(Addr.sin_zero,SizeOf(Addr.sin_zero),0);

Connect(sock,Addr,sizeof(Addr));
Sends('EHLO s0l.name'+CRLF);
Sends('AUTH LOGIN'+CRLF);
Sends('bG9naW4='+CRLF);
Sends('cGFzc3dvcmQ='+CRLF);
Sends('MAIL FROM:'+MailFrom+CRLF);
Sends('RCPT TO:'+MailTo+CRLF);
Sends('DATA'+CRLF);
Sends('To:'+MailTo+CRLF);
Sends('Subject:'+Title+CRLF);
Sends('From:'+'<'+MailFrom+'>'+CRLF
Sends(Body+CRLF);

Shutdown(sock, SD_Both);
CloseSocket(sock);
WSACleanup;

-
Такс. Теперь работает, но я непонимаю, почему письма идут без авторизации, т.е. можно убрать
Sends('AUTH LOGIN'+CRLF);
Sends('bG9naW4='+CRLF);
Sends('cGFzc3dvcmQ='+CRLF
и все-равно доходит

[altblitz]

технически - сделано грамотно и без ошибок.

только зачем цикл - vari: integer; begin for i:=1 to Length(str) do ...
можно и напрямую мессагу запилить.

ладно, не столь и важно.

а вот:
Sends('bG9naW4='+CRLF);
Sends('cGFzc3dvcmQ='+CRLF);

уже другое.
имхо, это генерируется random и для каждой пост-мессаги должны быть уникальными.

[s0l_ir0n]

Sends('bG9naW4='+CRLF);
Sends('cGFzc3dvcmQ='+CRLF);
имхо, это генерируется random и для каждой пост-мессаги должны быть уникальными.
Ты ошибаешься, это всего-навсего данные для авторизации в BASE64, которые нужно передавать после AUTH LOGIN

Я не понимаю почему письма уходят без авторизации. Эти 2 строки можно не передавать и все-равно все доставляется...

[altblitz]

Ты ошибаешься, это всего-навсего данные для авторизации в BASE64, которые нужно передавать после AUTH LOGIN

Я не понимаю почему письма уходят без авторизации. Эти 2 строки можно не передавать и все-равно все доставляется...
OK, это диалог ассемблитца с дельфистом ))

для проверки отправленных/полученных пакетов
используется GPGrelay - sites.inka.de/tesla/gpgrelay.html

все комманды и ответы сохраняются в логах,
и почему же blitz не имеет проблем с авторизацией? )

[slesh]

2 altblitz >>>технически - сделано грамотно и без ошибок<<<<<<<

Извеняюсь за выражение, но тут пздц как криво и через жопу написано )
Ни единой проверки. (ни сокет не проверен на валидность, ни коннект)
Оформление кода - ужас. HtoNS - просто порадовало (Delphi дает свободу, но зачем на столько ей пользоваться)

Но главное: Кто будет считывать ответ сервака и анализировать ответ на предмет кодов ошибок.?

Вообще возьми любой снифер (тотже CommView ) и посмотри что передается по сети и что отвечает сервак(если лень делать считывание)

Также после посылки тела письма ставится CRLF[точка]CRLF
и потом желательно послать команда прощания с серваком.


а вот:
Sends('bG9naW4='+CRLF);
Sends('cGFzc3dvcmQ='+CRLF);

уже другое.
имхо, это генерируется random и для каждой пост-мессаги должны быть уникальными.


Если ты не уверен в чем то, то лучше не пиши этого вообще и не сбивай людей с толку. Потому что выдумывать у тебя получается плоховато. Или пиши это в болталке, там модер по строже и быстрее потрёт это.

P.S.
Письма без авторизации уходят - это всеголишь настройки smtp сервака. Ты для теста делай через яндекс или mail.ru или любой другой нормальный сервис и там ты сразу увидиш что без авторизации ничто никуда не уйдет.
Если юзаеш small http server для smtp то там есть галочка - разрешить/запретить анонимную отправку почты.
Также и в других может быть подобная опция

[s0l_ir0n]

2 altblitz >>>технически - сделано Извеняюсь за выражение, но тут пздц как криво и через жопу написано )
Ни единой проверки. (ни сокет не проверен на валидность, ни коннект)
Оформление кода - ужас.

Но главное: Кто будет считывать ответ сервака и анализировать ответ на предмет кодов ошибок.?

Вообще возьми любой снифер (тотже CommView ) и посмотри что передается по сети и что отвечает сервак(если лень делать считывание)

Также после посылки тела письма ставится CRLF[точка]CRLF
и потом желательно послать команда прощания с серваком.

Проверки я специально вырезал, т.к. это лишний код в моем вопросе. В исходнике все проверки ответов и статусов на месте.
О снифере я как-то не думал...

Если ты не уверен в чем то, то лучше не пиши этого вообще и не сбивай людей с толку. Потому что выдумывать у тебя получается плоховато. Или пиши это в болталке, там модер по строже и быстрее потрёт это.
Значит я неправильно понял данную команду.

Письма без авторизации уходят - это всеголишь настройки smtp сервака. Ты для теста делай через яндекс или mail.ru или любой другой нормальный сервис и там ты сразу увидиш что без авторизации ничто никуда не уйдет.
Если юзаеш small http server для smtp то там есть галочка - разрешить/запретить анонимную отправку почти.
Также и в других может быть подобная опция

А вот за это спасибо огромное!

[slesh]

2 s0l_ir0n


Если ты не уверен в чем то, то лучше не пиши этого вообще и не сбивай людей с толку. Потому что выдумывать у тебя получается плоховато. Или пиши это в болталке, там модер по строже и быстрее потрёт это.

Значит я неправильно понял данную команду.

Ты правильно понял для чего этот код, а вот он незнал для чего он и решил придумать

[МongBa†]

Вот кстати проверки необходимы, писал многопоточный СМТП брут, зачастую когда сервер чехлил и не успевал выдать подтверждение 334 на то что принял логин - брут сразу пихал пароль и после этого либо чехлеж до таймаута, либо неверные логин и пароль..

Да и на начальных стадиях удобнее следить за работой каждого другого сервера :)

[altblitz]

Извеняюсь за выражение, но тут пздц как криво и через жопу написано )
Ни единой проверки. (ни сокет не проверен на валидность, ни коннект)

еще раз повторю - технически ТС написал прогу без ошибок, прав абсолютно на 100%.

дело тут в другом, в принимающей стороне - pop3 севреры гугл, майл.ру откидывают мейл с приватных SMTP серверов.
давно известная шняга ;//