Подключение через Openssl к smtp серверу
Здравствуйте. Пытаюсь подключиться к почтовому ящику сервера yahoo.com через openssl с помощью socket.
Само подключение к серверу происходит нормально. Получаю ответ
'220 smtp107.mail.ird.yahoo.com ESMTP'#$D#$A
Затем посылаю
Читаю ответ
//Text '250-smtp107.mail.ird.yahoo.com'
//'250-AUTH LOGIN PLAIN XYMCOOKIE'
//'250-PIPELINING'
//'250 8BITMIME'#$D#$A#$D#$A (read=GetTextStr write=SetTextStr)
//
Затем по шлю
или
но всегда в ответ получаю
'502 Command not implemented'#$D#$A
Что не так? Почему ни одна комманда потом не работает?
Само подключение к серверу происходит нормально. Получаю ответ
'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;
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;
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
Что не так? Почему ни одна комманда потом не работает?