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] Exploit DB Helper 0.5

  • 2 Respuestas
  • 1548 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Septiembre 30, 2012, 02:36:55 pm »
Version mejorada de este script para buscar exploits en la pagina exploit-db

Código: Perl
  1. #!usr/bin/perl
  2. #Exploit DB Helper 0.5
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6. use HTML::Parser;
  7. use Data::Dumper;
  8. use Time::HiRes "usleep";
  9.  
  10. my $nave = LWP::UserAgent->new;
  11. $nave->agent(
  12. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  13. );
  14. $nave->timeout(5);
  15.  
  16. head();
  17. print "\n\n[String] : ";
  18. chomp( my $cosa = <stdin> );
  19. if ( $cosa eq "" ) { menu(); }
  20. print "\n\n[+] Searching ...\n\n";
  21. my %found = buscar($cosa);
  22. $total = int( keys %found ) - 1;
  23. print "[+] Exploits Found : " . $total . "\n\n";
  24.  
  25. unless ( -d $cosa ) {
  26.     mkdir( $cosa, "777" );
  27. }
  28. for my $da ( keys %found ) {
  29.     my $tata = $da;
  30.     $tata =~ s/\<//;
  31.     $tata =~ s/(\s)+$//;
  32.     if ( download( $found{$da}, $cosa . "/" . $tata . ".txt" ) ) {
  33.         print "[Exploit Found] : " . $da . "\n";
  34.     }
  35. }
  36. copyright();
  37.  
  38. sub buscar {
  39.     for my $n ( 1 .. 666 ) {
  40.         my $code =
  41.           toma( "http://www.exploit-db.com/search/?action=search&filter_page="
  42.               . $n
  43.               . "&filter_description="
  44.               . $_[0]
  45.               . "&filter_exploit_text=&filter_author=&filter_platform=0&filter_type=0&filter_lang_id=0&filter_port=&filter_osvdb=&filter_cve="
  46.           );
  47.         chomp $code;
  48.         if ( $code =~ /No results/ig ) {
  49.             return %busca;
  50.         }
  51.         %busca = getlinks($code);
  52.     }
  53. }
  54.  
  55. sub getlinks {
  56.  
  57.     my $test = HTML::Parser->new(
  58.         start_h => [ \&start, "tagname,attr" ],
  59.         text_h  => [ \&text,  "dtext" ],
  60.     );
  61.     $test->parse( $_[0] );
  62.  
  63.     sub start {
  64.         my ( $a, $b ) = @_;
  65.         my %e = %$b;
  66.         unless ( $a ne "a" ) {
  67.             $d = $e{href};
  68.             $c = $a;
  69.         }
  70.     }
  71.  
  72.     sub text {
  73.         my $title = shift;
  74.         chomp $title;
  75.         unless ( $c ne "a" ) {
  76.             if ( $d =~ /www.exploit-db.com\/exploits\/(.*)/ ) {
  77.                 my $id  = $1;
  78.                 my $url = "http://www.exploit-db.com/download/" . $id;
  79.                 $links{$title} = $url;
  80.             }
  81.             $d = "";
  82.         }
  83.     }
  84.     return %links;
  85. }
  86.  
  87. sub toma {
  88.     return $nave->get( $_[0] )->content;
  89. }
  90.  
  91. sub repes {
  92.     my @limpio;
  93.     foreach $test (@_) {
  94.         push @limpio, $test unless $repe{$test}++;
  95.     }
  96.     return @limpio;
  97. }
  98.  
  99. sub download {
  100.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  101.         if ( -f $_[1] ) {
  102.             return true;
  103.         }
  104.     }
  105. }
  106.  
  107. sub head {
  108.  
  109.     my @logo = (
  110.         "#=============================================#", "\n",
  111.         "#            Exploit DB 0.5                   #", "\n",
  112.         "#---------------------------------------------#", "\n",
  113.         "# Written By Doddy H                          #", "\n",
  114.         "# Email: lepuke[at]hotmail[com]               #", "\n",
  115.         "# Website: doddyhackman.webcindario.com       #", "\n",
  116.         "#---------------------------------------------#", "\n",
  117.         "# The End ?                                   #", "\n",
  118.         "#=============================================#", "\n"
  119.     );
  120.  
  121.     print "\n";
  122.     marquesina(@logo);
  123.  
  124. }
  125.  
  126. sub marquesina {
  127.  
  128.     #Effect based in the exploits by Jafer Al Zidjali
  129.  
  130.     my @logo = @_;
  131.  
  132.     my $car = "|";
  133.  
  134.     for my $uno (@logo) {
  135.         for my $dos ( split //, $uno ) {
  136.  
  137.             $|++;
  138.  
  139.             if ( $car eq "|" ) {
  140.                 mostrar( "\b" . $dos . $car, "/" );
  141.             }
  142.             elsif ( $car eq "/" ) {
  143.                 mostrar( "\b" . $dos . $car, "-" );
  144.             }
  145.             elsif ( $car eq "-" ) {
  146.                 mostrar( "\b" . $dos . $car, "\\" );
  147.             }
  148.             else {
  149.                 mostrar( "\b" . $dos . $car, "|" );
  150.             }
  151.             usleep(40_000);
  152.         }
  153.         print "\b ";
  154.     }
  155.  
  156.     sub mostrar {
  157.         print $_[0];
  158.         $car = $_[1];
  159.     }
  160.  
  161. }
  162.  
  163. sub copyright {
  164.  
  165.     print "\n\n";
  166.  
  167.     marquesina("-- == (C) Doddy Hackman 2012 == --");
  168.  
  169.     print "\n\n";
  170.  
  171.     <stdin>;
  172.     exit(1);
  173. }
  174.  
  175. #The End ?
  176.  

Desconectado kid_goth

  • *
  • Underc0der
  • Mensajes: 201
  • Actividad:
    0%
  • Reputación 3
  • Tu conocimiento se limita cuando dices NO PUEDO...
    • Ver Perfil
    • DC Projects
    • Email
« Respuesta #1 en: Septiembre 30, 2012, 07:23:09 pm »
Doddy sos el puto amo en perl ;) jejejejeej lo guardo todo y lo estudio a veces ni uso la tool como tal pero si me ha servido partes de tus codigos...

Gracias bro



Acepta con humildad y aprecio que en la vida la muerte es inevitable y amarás ésta, adorando la muerte

Desconectado Neutron

  • *
  • Underc0der
  • Mensajes: 64
  • Actividad:
    0%
  • Reputación 0
  • Never understimate me!
    • Ver Perfil
    • ..title that?
« Respuesta #2 en: Septiembre 30, 2012, 11:32:45 pm »
Esta bueno, yo tengo uno que busca exploits en exploit-db tambien y te permite descargarlos, tiene otras funciones tambien y es en python ese, ademas uso una API ahi xD Esta interesante este tuyo.

Saludos!
When I was a child, I spake as a child, I understood as a child, I thought as a child: but when I became a man, I put away childish things.

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3281
Ú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: 1552
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1699
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1192
Ú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: 1431
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX