Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Подключение через Openssl к smtp серверу

80K
26 февраля 2012 года
vallac
1 / / 26.02.2012
Здравствуйте. Пытаюсь подключиться к почтовому ящику сервера yahoo.com через openssl с помощью socket.
Само подключение к серверу происходит нормально. Получаю ответ
'220 smtp107.mail.ird.yahoo.com ESMTP'#$D#$A
Затем посылаю

 
Код:
WriteFromSSL(fcon,'EHLO');

function WriteFromSSL(con: Pointer; Value: AnsiString):String;
begin
FillChar(Buffer,SizeOf(Buffer),#0);
Value:=Value+#13#10;
StrPCopy(Buffer,Value);
SSL_write(con, Buffer, length(Buffer));
End;



Читаю ответ

Код:
ReadFromSSL(fcon, Answer);

function ReadFromSSL(con: Pointer; var Answer:TStringList):String;
Begin
Result:='';
Answer.Clear;
FillChar(Buffer,SizeOf(Buffer),#0);
SSL_read(con, Buffer, sizeof(Buffer)-1);
Result:=String(Buffer);
Answer.Add(String(Buffer));
End;


//Text '250-smtp107.mail.ird.yahoo.com'
//'250-AUTH LOGIN PLAIN XYMCOOKIE'
//'250-PIPELINING'
//'250 8BITMIME'#$D#$A#$D#$A (read=GetTextStr write=SetTextStr)
//

Затем по шлю

 
Код:
WriteFromSSL(fcon,'AUTH LOGIN');

или

 
Код:
WriteFromSSL(fcon,'AUTH PLAIN');


но всегда в ответ получаю
'502 Command not implemented'#$D#$A
Что не так? Почему ни одна комманда потом не работает?

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог