Perl - Wordpress XMLRPC Scanner

  • 0 Respuestas
  • 4286 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado ZanGetsu

  • *
  • Ex-Staff
  • *****
  • Mensajes: 329
  • Actividad:
    0%
  • Country: 00
  • Reputación 0
  • I ZanGetsu
  • Skype: thenicox
  • Twitter: black_zangetsu
    • Ver Perfil

Perl - Wordpress XMLRPC Scanner

  • en: Septiembre 22, 2014, 11:40:12 pm
Código: Perl
  1. #made by Vypor
  2. #2:35 AM
  3. #4/6/2014
  4. #Made for the request of: Matt
  5. #161rum.com
  6. use HTML::Parser;
  7. use LWP::UserAgent;
  8. use LWP::Simple;
  9. use Parallel::ForkManager;
  10. use Term::ANSIColor;
  11. use vars You are not allowed to view links. Register or Login( $PROG );
  12. ( $PROG = $0 ) =~ s/^.*[\/\\]//;
  13.  
  14. if ( @ARGV == 0 ) {
  15.       You are not allowed to view links. Register or Login "[!] Usage: ./$PROG [IPLIST] [THREADS] [OUTPUT] [TIMEOUT]\n[!] Example: ./$PROG ips.txt 100 output.txt 10\nMade by Vypor\nhttp://pastebin.com/u/Autism\n";
  16.    You are not allowed to view links. Register or Login;
  17. }
  18. $SIG{'INT'} = sub {You are not allowed to view links. Register or Login;};
  19. my @folders = ("/wordpress/", "/wp/", "blog", "/");
  20. my $stringsearch = "XML-RPC";
  21. my $filename = $ARGV[2];
  22. my $max_processes = $ARGV[1];
  23. my $pm = Parallel::ForkManager->new($max_processes);
  24. my $weblist = $ARGV[0];
  25. You are not allowed to view links. Register or Login my $handle, '<', $weblist;
  26. You are not allowed to view links. Register or Login(my @webservers = <$handle>);
  27. You are not allowed to view links. Register or Login $handle;
  28.  
  29. You are not allowed to view links. Register or Login "\e[33m[!] Starting\n\e[0m";
  30. You are not allowed to view links. Register or Login "\e[33m[!] Using input list: $ARGV[0] | Output list: $filename\n\e[0m";
  31. You are not allowed to view links. Register or Login "\e[33m[!] Using $ARGV[1] Fork's\n\e[0m";
  32. You are not allowed to view links. Register or Login "\e[33m[!] Using Vypor's Wordpress Scanner 161rum.com\n\e[0m";
  33. You are not allowed to view links. Register or Login("3");
  34.  
  35. for my $strat (@webservers) {
  36. foreach (@folders) {
  37.  
  38.    my $pid - $pm->start and next;
  39.    You are not allowed to view links. Register or Login("$ARGV[3]");
  40.  
  41.       my $url = "http://$strat" . "$_" . "xmlrpc.php";
  42.       my $ua = LWP::UserAgent->new;
  43.          You are not allowed to view links. Register or Login "\e[96m[!]Searching \e[31m$url\n\e[0m";      
  44.       my $response = $ua->get($url);
  45.       if ( !$response->is_success ) {
  46.       }
  47.       if (head($url)) {
  48.    
  49.       my $parser = HTML::Parser->new( 'text_h' => [ \&text_handler, 'dtext' ] );
  50.       $parser->parse( $response->decoded_content );
  51.       sub text_handler {
  52.          You are not allowed to view links. Register or Login( my $text = You are not allowed to view links. Register or Login );
  53.          
  54.          if ( $text =~ /$stringsearch/i ) {
  55.  
  56.       my $ui = $url;
  57.       $ui =~ s/xmlrpc.php/?feed=rss2/;
  58.       if (head($ui)) {
  59.             sub check {
  60.                   $LOLGETIT=get($ui);
  61.                   $LOLGETIT =~ /<item>.+?<link>(.+?)<\/link>.+?<\/item>/s;
  62.                   if ($1) {
  63.                         You are not allowed to view links. Register or Login (FILE, ">>$filename");
  64.             my $post = $1;
  65.             $ui =~ You are not allowed to view links. Register or Login{\Q?feed=rss2\E}{xmlrpc.php};
  66.             You are not allowed to view links. Register or Login FILE "$ui $post\n";                        
  67.                         You are not allowed to view links. Register or Login (FILE);
  68.             You are not allowed to view links. Register or Login "\e[96m<ul class="bbc_list"><li type="square">Found: \e[32m$ui $post\e[0m\n";[/li][/list]
  69.                         You are not allowed to view links. Register or Login($^X, "-e", "sleep 1,kill(0,$pid)||kill -9,$pid");
  70.                   }
  71.             }
  72.             check();
  73.       } else {
  74.       }      }  
  75.    }
  76.    } else {
  77. }
  78. $pm->finish;
  79. }
  80. }
« Última modificación: Marzo 14, 2015, 10:30:48 am por Expermicid »

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 5211
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 3428
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

Respuestas: 0
Vistas: 4198
Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 2568
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 2512
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear