SMTP + Perl 0

SMTP? Откуда авторизация в SMTP?.. Вот, смотри:

uncle@00:41:22~$ telnet 192.168.0.2 25

Trying 192.168.0.2…

Connected to 192.168.0.2.

Escape character is '^]’.

220 localhost.localdomain ESMTP Sendmail 8.12.8/8.12.8; Sun, 28 Dec 2003 00:40:21 -0600

--> HELO 192.168.0.5

250 localhost.localdomain Hello [192.168.0.5], pleased to meet you

--> MAIL FROM:gbush@whitehouse.gov

250 2.1.0 gbush@whitehouse.gov… Sender ok

--> RCPT TO:root@localhost.localdomain

250 2.1.5 root@localhost.localdomain… Recipient ok

--> DATA

354 Enter mail, end with «.» on a line by itself

--> privet, root!

--> .

250 2.0.0 hBS6eLP2007557 Message accepted for delivery

--> QUIT

221 2.0.0 localhost.localdomain closing connection

Connection closed by foreign host.

Стрелочками отмечены комманды, которые я вводил пальцами. 192.168.0.5 — это компьютер, с которого я развлекался.Так что, какая уж там авторизация…

Good Luck,

UT

А вот то же самое на перловке:

#!/usr/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new(’192.168.0.2\′);

$smtp->mail(’gbush@whitehouse.gov’);

$smtp->to(’root@localhost.localdomain’);

$smtp->data();

$smtp->datasend(«To: root\n»);

$smtp->datasend(«\n»);

$smtp->datasend(«priver, root!\n»);

$smtp->dataend();

$smtp->quit;

По мотивам вот этого сайта:

http://www.icewalkers.com/Perl/5.8.0/lib/Net/SMTP.html

Там же есть про SASL аутентификацию.

А вообще, я перловку не люблю за кудрявость. И на фига ты ее учишь? :-)

Good Luck,

UT

Это да… Но когда я конектился на hotbox.ru после попытки отмылить он выдал user not autentithicated или что-то вроде того…. А что лучше учить вместо перла?

PHP Python Ruby и JAVA!!!!!

Uncle Theodore
SMTP? Откуда авторизация в SMTP?

UT

Прошу прощения. Имел в ввиду ESMTP RFC 2554

perldoc Net::SMTP

auth ( USERNAME, PASSWORD )

Attempt SASL authentication.