comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Perl - Wordpress XMLRPC Scanner

  • 0 Respuestas
  • 2007 Vistas

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

Desconectado ZanGetsu

  • *
  • Underc0der
  • Mensajes: 325
  • Actividad:
    0%
  • Reputación 0
  • I ZanGetsu
    • Ver Perfil
  • Skype: thenicox
  • Twitter: black_zangetsu
« 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 No tienes permisos para ver links. Registrate o Entra con tu cuenta( $PROG );
  12. ( $PROG = $0 ) =~ s/^.*[\/\\]//;
  13.  
  14. if ( @ARGV == 0 ) {
  15.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[!] 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.         No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  17. }
  18. $SIG{'INT'} = sub {No tienes permisos para ver links. Registrate o Entra con tu cuenta;};
  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. No tienes permisos para ver links. Registrate o Entra con tu cuenta my $handle, '<', $weblist;
  26. No tienes permisos para ver links. Registrate o Entra con tu cuenta(my @webservers = <$handle>);
  27. No tienes permisos para ver links. Registrate o Entra con tu cuenta $handle;
  28.  
  29. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\e[33m[!] Starting\n\e[0m";
  30. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\e[33m[!] Using input list: $ARGV[0] | Output list: $filename\n\e[0m";
  31. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\e[33m[!] Using $ARGV[1] Fork's\n\e[0m";
  32. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\e[33m[!] Using Vypor's Wordpress Scanner 161rum.com\n\e[0m";
  33. No tienes permisos para ver links. Registrate o Entra con tu cuenta("3");
  34.  
  35. for my $strat (@webservers) {
  36. foreach (@folders) {
  37.  
  38.         my $pid - $pm->start and next;
  39.         No tienes permisos para ver links. Registrate o Entra con tu cuenta("$ARGV[3]");
  40.  
  41.                 my $url = "http://$strat" . "$_" . "xmlrpc.php";
  42.                 my $ua = LWP::UserAgent->new;
  43.                         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\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.                         No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $text = No tienes permisos para ver links. Registrate o Entra con tu cuenta );
  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.                                                                 No tienes permisos para ver links. Registrate o Entra con tu cuenta (FILE, ">>$filename");
  64.                                 my $post = $1;
  65.                                 $ui =~ No tienes permisos para ver links. Registrate o Entra con tu cuenta{\Q?feed=rss2\E}{xmlrpc.php};
  66.                                 No tienes permisos para ver links. Registrate o Entra con tu cuenta FILE "$ui $post\n";                                                              
  67.                                                                 No tienes permisos para ver links. Registrate o Entra con tu cuenta (FILE);
  68.                                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "\e[96m[+]Found: \e[32m$ui $post\e[0m\n";
  69.                                                                 No tienes permisos para ver links. Registrate o Entra con tu cuenta($^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 »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3163
Ú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: 1477
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1134
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1371
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1104
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear