在 FTP 客户端套接字程序中获取连接被拒绝

Question

我有这个 Perl 脚本，我想在其中获取 FTP 服务器的列表。

我的理解是 FTP 服务器打开一个新的连接回到 客户端托管在某个随机端口上以发送数据。我应该以某种方式创造 一个新的套接字并从中读取？我不知道如何使它工作。

#!/usr/bin/perl

use warnings;
use 5.30.0;
use IO::Socket;

my $socket = IO::Socket::INET->new("core9:21"); 

$socket->send("USER user7\r\n", 0);
$socket->send("PASS s$cret\r\n", 0);
#$socket->send("SYST\r\n", 0);
#$socket->send("HELP\r\n", 0);
#$socket->send("TYPE A\r\n", 0);
$socket->send("PORT 192,168,0,20,200,95\r\n", 0);
$socket->send("LIST\r\n", 0);
$socket->send("QUIT\r\n", 0);

while (my $line = <$socket>) {
    print($line); 
}

$socket->close();

Answer 1

您正在使用PORT 命令，该命令告诉 FTP 服务器与 您 指定的 IP:Port 建立新连接。所以是的，当然，您必须在该 IP:Port 上实际创建自己的第二个侦听套接字，然后服务器才能连接到它。

否则，请改用PASV 命令（无论如何你都应该这样做，因为它对在 NAT 路由器后面运行的客户端更友好），它会告诉 FTP 服务器在其一侧打开一个监听端口，然后你可以连接第二个插座。 FTP 服务器会告诉您需要连接的 IP：端口。

此外，您的代码甚至远不能成为有效的 FTP 客户端，因为您没有阅读甚至查看服务器的响应来了解您的命令是成功还是失败。您甚至没有阅读服务器的初始问候语，就知道您是否被允许向它发送命令。

我强烈建议您阅读官方 FTP 协议规范，RFC 959。