Forum Webscript.Ru
Программирование => Perl => Тема начата: DNK от 29 Марта 2006, 19:29:49
-
почему данный скрипт выводит только строку приветствия сервера:
#!/usr/bin/perl
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => "www.engcomp.ufrn.br",
PeerPort => \'21\',
Proto => \'tcp\');
send($socket,"USER ftp\\r\\n",0);
send($socket,"PASS ftp\\r\\n\\r\\n",0);
recv($socket,$otvet,1024,0);
print $otvet;
[root@linux root]# ./1.pl
220 ProFTPD 1.2.10 Server (EngComp/UFRN ftp server) [10.13.97.254]
-
DNK:
почему данный скрипт выводит только строку приветствия сервера
А почему он должен выводить что-то другое?
-
[root@linux root]# telnet http://www.engcomp.ufrn.br 21
Trying 200.19.167.3...
Connected to http://www.engcomp.ufrn.br (200.19.167.3).
Escape character is \'^]\'.
220 ProFTPD 1.2.10 Server (EngComp/UFRN ftp server) [10.13.97.254]
user ftp
331 Anonymous login ok, send your complete email address as your password.
pass ftp
230 Anonymous access granted, restrictions apply.
по анологии с консолью как мне кажеться должно выводить
230 Anonymous access granted, restrictions apply.
ведь в дескриптор соккета я отправил User ftp; Pass ftp, как мне кажеться сервер должен принять логин и пароль и ответить валиден аккаунт или нет.
Если я ошибаюсь прошу поправить меня
-
а если так:
#!/usr/bin/perl
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => "www.engcomp.ufrn.br",
PeerPort => \'21\',
Proto => \'tcp\');
send($socket,"USER ftp\\r\\n",0);
send($socket,"PASS ftp\\r\\n\\r\\n",0);
recv($socket,$otvet,1024,0);
print $otvet,"\\n";
recv($socket,$otvet,1024,0);
print $otvet,"\\n";
recv($socket,$otvet,1024,0);
print $otvet,"\\n";
-
cr4ck3r спасибо получилось