[Perl] SMF Manager 0.1

[BigBear]

Traduccion a Perl (mega buggeada) del script que hizo Javier de PortalHacker para poder leer los mensajes privados y listar las categorias de un foro SMF.

El codigo

Código (perl) [Seleccionar] Expandir


#!usr/bin/perl
#SMF Manager 0.00001
#Coded By Doddy H

#ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd

use LWP::UserAgent;
use HTTP::Cookies;

use HTML::Strip;

my $nave = LWP::UserAgent->new(
   cookie_jar            => HTTP::Cookies->new(),
   requests_redirectable => [],
   timeout               => 5,
   agent =>
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

print qq(
 @@@   @     @  @@@@@    @     @                                  
@   @  @     @  @        @     @                                  
@      @@   @@  @        @@   @@                                  
@      @@   @@  @        @@   @@   @@@  @ @@   @@@   @@@@  @@@  @@
 @@@   @ @ @ @  @@@@     @ @ @ @      @ @@  @     @ @   @ @   @ @
    @  @ @ @ @  @        @ @ @ @   @@@@ @   @  @@@@ @   @ @@@@@ @
    @  @  @  @  @        @  @  @  @   @ @   @ @   @ @   @ @     @
@   @  @  @  @  @        @  @  @  @   @ @   @ @   @ @   @ @   @ @
 @@@   @     @  @        @     @   @@@@ @   @  @@@@  @@@@  @@@  @
                                                        @        
                                                    @@@@          

);

print "\n\n[+] Page : ";
chomp( my $url = <stdin> );

print "\n[+] Username : ";
chomp( my $usera = <stdin> );

print "\n[+] Password : ";
chomp( my $passa = <stdin> );

## Login

print "\n[+] Connecting ....\n\n";

my $code = $nave->post(
   $url . "/index.php?action=login2",
   {
       "user"         => $usera,
       "passwrd"      => $passa,
       "cookielength" => "9000",
       "hash_passwrd" => "",
       "submit"       => "submit"
   }
);

if ( $code->is_redirect ) {

   #print $code->header('location'),"\n";
}
elsif ( $code->is_success ) {
   print $code->as_string, "\n";
}
else {
   print STDERR $code->status_line, "\n";
}

my $code = toma( $url . "/SSI.php?ssi_function=welcome" );

if ( $code =~ /Hola, <strong>(.*)<\/strong>/ ) {
   my $name = $1;
   print "[+] Welcome $name\n";
}
else {
   print "[-] Error\n";
}

##

while (1) {

   print "\n[+] Options\n\n";

   print "1 - See MP\n";
   print "2 - Navegate\n";
   print "3 - Exit\n";

   print "\n[+] Option : ";
   chomp( my $op = <stdin> );

   if ( $op eq "3" ) {
       exit(1);
   }

   if ( $op eq "1" ) {

       print qq(
@     @  @@@@@
@     @  @    @
@@   @@  @    @
@@   @@  @    @
@ @ @ @  @@@@@
@ @ @ @  @    
@  @  @  @    
@  @  @  @    
@     @  @    

);

       mps($url);
   }

   if ( $op eq "2" ) {
       print qq(
@    @                                        
@@   @                                @      
@@   @                                @      
@ @  @   @@@  @   @  @@@   @@@@  @@@  @@  @@@
@ @  @      @ @   @ @   @ @   @     @ @  @   @
@  @ @   @@@@  @ @  @@@@@ @   @  @@@@ @  @@@@@
@   @@  @   @  @ @  @     @   @ @   @ @  @    
@   @@  @   @   @   @   @ @   @ @   @ @  @   @
@    @   @@@@   @    @@@   @@@@  @@@@  @  @@@
                              @              
                          @@@@                


);

       my $chau2 = 0;

       while ( $chau2 eq 0 ) {

           print "\n[+] 1 - List Categories\n";
           print "[+] 2 - Exit\n";

           print "\n[+] Option : ";
           chomp( my $op = <stdin> );

           if ( $op eq "1" ) {

               print "\n[+] Searching ...\n\n";

               my $code = toma($url);

               while ( $code =~
/<a class=\"subject\" href=\"(.*?)\" name=(.*?)>(.*?)<\/a>/migs
                 )
               {
                   print "[+] ID : $2 [+] Name : $3\n";
               }

           }
           else {
               $chau2 = 1;
           }

       }

   }

}

#gets_list_mp();
#gets_msg_mp();
#gets_msg_now();

sub mps {

   my $url = shift;

   my $chau = "0";

   print "\n[+] Searching pages ..\n";

   my @founds = gets_list_mp($url);

   my $count = int(@founds);

   print "\n[+] Pages Found : $count\n";

   while ( $chau eq 0 ) {

       print "\n[+] 1 - Get List Messages\n";
       print "[+] 2 - Read Message\n";
       print "[+] 3 - Exit\n";

       print "\n[+] Option : ";
       chomp( my $op = <stdin> );

       if ( $op eq "1" ) {

           print "\n[+] Number Page : ";
           chomp( my $op = <stdin> );

           print "\n[+] Searching ..\n";

           gets_msg_mp( $founds[ $op - 1 ] );

       }
       elsif ( $op eq "2" ) {

           print "\n[+] Number Page : ";
           chomp( my $n = <stdin> );

           print "\n[+] ID : ";
           chomp( my $id = <stdin> );

           print "\n[+] Reading ...\n";

           gets_msg_now( $founds[ $n - 1 ], $id );

       }
       else {
           $chau = 1;
       }

   }
}

sub gets_msg_now {

   my $url = toma( $_[0] );

   my $id = "msg_" . $_[1];

   if ( $url =~ /<div class=\"inner\" id=\"$id\">(.*?)<\/div>/mig ) {

       my $uno = HTML::Strip->new( emit_spaces => 1 );
       my $final = $uno->parse($1);
       $final =~ s/^[\t\f ]+|[\t\f ]+$//mg;

       print "\n[START]\n\n";
       print $final;
       print "\n\n[END]\n\n";

   }

}

sub gets_msg_mp {

   my $url = toma( $_[0] );

   my @ids;
   my @asunto;
   my @nombre;

   while ( $url =~ /<td><a href=\"#msg(.*?)\">(.*?)<\/a><\/td>/migs ) {

       #print "$1 $2\n";
       push( @ids,    $1 );
       push( @asunto, $2 );
   }

   while ( $url =~ /Ver perfil de (.*?)">/migs ) {

       #print "$1\n\n";
       push( @nombre, $1 );
   }

   my $total = int(@ids) - 1;

   for my $num ( 0 .. $total ) {
       print "[+] ID : "
         . $ids[$num]
         . " [+] Asunto : "
         . $asunto[$num]
         . " [+] De : "
         . $nombre[$num] . "\n";
   }

}

sub gets_list_mp {

   my $url = shift;

   my @paginas;
   my $code = toma( $url . "/index.php?action=pm" );

   push( @paginas, $url . "/index.php?action=pm" );

   while ( $code =~ /<a class="navPages" href="(.*?)">(.*?)<\/a>/migs ) {
       push( @paginas, $1 );
   }

   my @paginas = repes(@paginas);

   return @paginas;

}

sub repes {
   my @limpio;
   foreach $test (@_) {
       push @limpio, $test unless $repe{$test}++;
   }
   return @limpio;
}

sub toma {
   return $nave->get( $_[0] )->content;
}

sub tomar {
   my ( $web, $var ) = @_;
   return $nave->post( $web, [ %{$var} ] )->content;
}

#The End ?


AVISO : Solo esta probado en el foro  spam portalhacker spam .  

[Eleкtro]

Código [Seleccionar] Expandir

C:\Windows\Perl\bin>ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd
ppm install failed: The PPD does not provide code to install for this platform

Alguna posibilidad de hacer el aporte compatible con Win7 x64?

Gracias de todas formas!

[BigBear]

lo hice con ese modulo porque no encontraba ninguno que viniera por defecto.