forum.lissyara.su

Код: Выделить всё

smtp_mail ($fTo, $fFrom, $fHeaders);

function smtp_mail ($to, $from, $data)
{
   global $CONF;
   $smtpd_server = $CONF['smtp_server'];
   $smtpd_port = $CONF['smtp_port'];
   $smtp_server = $_SERVER["SERVER_NAME"];
   $errno = "0";
   $errstr = "0";
   $timeout = "30";

   $fh = @fsockopen ($smtpd_server, $smtpd_port, $errno, $errstr, $timeout);

   if (!$fh)
   {
      return false;
   }
   else
   {
      fputs ($fh, "EHLO $smtp_server\r\n");
      $res = smtp_get_response($fh);
      fputs ($fh, "MAIL FROM:<$from>\r\n");
      $res = smtp_get_response($fh);
      fputs ($fh, "RCPT TO:<$to>\r\n");
      $res = smtp_get_response($fh);
      fputs ($fh, "DATA\r\n");
      $res = smtp_get_response($fh);
      fputs ($fh, "$data\r\n.\r\n");
      $res = smtp_get_response($fh);
      fputs ($fh, "QUIT\r\n");
      $res = smtp_get_response($fh);
      fclose ($fh);
   }
   return true;
}

Код: Выделить всё

#!/usr/bin/perl

use IO::Socket;
my $socket = IO::Socket::INET->new ("localhost:25");
defined $socket or die "ERROR: $!";
$socket->print ("EHLO1512");
$r = <$socket>;
$socket->print ("MAIL FROM:<admin\@x.org.ua>1512");
$r = <$socket>;
$socket->print ("RCPT TO:<xxxxxx\@x.org.ua>1512");
$r = <$socket>;
$socket->print ("DATA1512");
$r = <$socket>;
$socket->print ("From:John Doe<admin\@x.org.ua>\n
To:Frank Smith<xxxxxx\@x.org.ua>\n
Subject:Test. \n\n
It's just test!!!1512");

$r = <$socket>;
$socket->print ("\.1512");
$r = <$socket>;
$socket->print ("QUIT1512");
$r = <$socket>;

Код: Выделить всё

connect from localhost[127.0.0.1]
timeout after CONNECT from localhost[127.0.0.1]

Код: Выделить всё

#!/usr/bin/perl

use IO::Socket;
my $socket = IO::Socket::INET->new (PeerAddr => 'localhost:smtp(25)') or die "ERROR: $!";

sysread $socket, $answer_data,255;
print "1: $answer_data";

syswrite $socket, "helo localhost\r\n";
sysread $socket, $answer_data,255;
print "2: $answer_data";

syswrite $socket, "mail from:<>\r\n";
sysread $socket, $answer_data,255;
print "3: $answer_data";

syswrite $socket, "rcpt to:<alex\@mail.ru>\r\n";
sysread $socket, $answer_data,255;
print "4: $answer_data";

syswrite $socket, "data\r\n";
sysread $socket, $answer_data,255;
print "5: $answer_data";

syswrite $socket, "Welcome to your new account\r\n";

syswrite $socket, ".\r\n";
sysread $socket, $answer_data,255;
print "6: $answer_data";

syswrite $socket, "quit\r\n";
sysread $socket, $answer_data,255;
print "7: $answer_data";

close $socket;