刷题记录：[CSAWQual 2016]i_got_id

题目复现链接：https://buuoj.cn/challenges
参考链接：xctf web i-got-id-200

perlparam()任意文件读取

if ($cgi->upload('file')) {
    my $file = $cgi->param('file');
    while (<$file>) {
        print "$_";
        print "<br />";
    }
}

题目使用如上代码将上传的文件原样输出到网页

param()函数会返回一个列表的文件但是只有第一个文件会被放入到下面的file变量中。而对于下面的读文件逻辑来说，如果我们传入一个ARGV的文件，那么Perl会将传入的参数作为文件名读出来。这样，我们的利用方法就出现了：在正常的上传文件前面加上一个文件上传项ARGV，然后在URL中传入文件路径参数，这样就可以读取任意文件了。