Форум АНТИЧАТ - Не пашет отправка мыла :*(

Не пашет отправка мыла :*(

04.08.2007, 06:55

~~zl0y~~

Banned

Регистрация: 13.09.2006

Сообщений: 523

Провел на форуме:
2869410

Репутация: 925

Отправить сообщение для zl0y с помощью ICQ

Не пашет отправка мыла :*(

Кто может подсказать почему данный код неработает

уже несколько примеров перепробывал,все не пашут хотя баннер на почте 250 тоесть доступ есть

PHP код:


		
			
program pp;



uses

  Windows,SysUtils,winsock,dialogs;

var

       S:TSocket;

       Addr:TSockAddr;

       Data:TWSAData;

       Len:integer;

       Buf:array[1..100] of char;



procedure SendStr(Str:string);

var C:char;

begin

while (length(Str)>0) do

       begin

       C:=Str[1];

       delete(Str,1,1);

       Send(S,C,1,0);

       end;

end;



begin

WSAStartup($101,Data);

S:=Socket(AF_Inet,Sock_Stream,0);

Addr.sin_family:=PF_Inet;

Addr.sin_port:=HToNS(25);



//Address of 'smtp.mail.ru' = 194.67.23.111

Addr.sin_addr.S_un_b.s_b1:=chr(194);

Addr.sin_addr.S_un_b.s_b2:=chr(67);

Addr.sin_addr.S_un_b.s_b3:=chr(23);

Addr.sin_addr.S_un_b.s_b4:=chr(111);



FillChar(Addr.sin_zero,SizeOf(Addr.sin_zero),0);

if not (Connect(S,Addr,SizeOf(TSockAddr))=0) then

       begin

       //error

       ShowMessage('Error!');

       halt;

       end else

       begin

       ShowMessage(Buf);

       SendStr('HELO 1235'+#13#10);

       Recv(S,Buf,SizeOf(Buf),MSG_PEEK );

       ShowMessage(Buf);

       SendStr('MAIL FROM: ms@mail.ru'+#13#10);

       Recv(S,Buf,SizeOf(Buf),MSG_PEEK );

       ShowMessage(Buf);

       SendStr('RCPT TO: z10y@mail.ru'+#13#10);

       Recv(S,Buf,SizeOf(Buf),MSG_PEEK );

       ShowMessage(Buf);

       SendStr('DATA'+#13#10);

       Recv(S,Buf,SizeOf(Buf),MSG_PEEK );

       ShowMessage(Buf);

       SendStr('Helloooooo !'+#13#10);

       SendStr('.'+#13#10);

       Recv(S,Buf,SizeOf(Buf),MSG_PEEK );

       ShowMessage(Buf);

       SendStr('QUIT'+#13#10);

       Recv(S,Buf,SizeOf(Buf),MSG_PEEK );

       ShowMessage(Buf);

       shutdown(s,0);

       end;

end.