send
Grupo de Telegram
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
  • 1387 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • 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. You are not allowed to view links. Register or Login "\n\n[String] : ";
  18. You are not allowed to view links. Register or Login( my $cosa = <stdin> );
  19. if ( $cosa eq "" ) { menu(); }
  20. You are not allowed to view links. Register or Login "\n\n[+] Searching ...\n\n";
  21. my %found = buscar($cosa);
  22. $total = You are not allowed to view links. Register or Login( You are not allowed to view links. Register or Login %found ) - 1;
  23. You are not allowed to view links. Register or Login "[+] Exploits Found : " . $total . "\n\n";
  24.  
  25. unless ( -d $cosa ) {
  26.     You are not allowed to view links. Register or Login( $cosa, "777" );
  27. }
  28. for my $da ( You are not allowed to view links. Register or Login %found ) {
  29.     my $tata = $da;
  30.     $tata =~ s/\<//;
  31.     $tata =~ s/(\s)+$//;
  32.     if ( download( $found{$da}, $cosa . "/" . $tata . ".txt" ) ) {
  33.         You are not allowed to view links. Register or Login "[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.         You are not allowed to view links. Register or Login $code;
  48.         if ( $code =~ /No results/ig ) {
  49.             You are not allowed to view links. Register or Login %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 = You are not allowed to view links. Register or Login;
  74.         You are not allowed to view links. Register or Login $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.     You are not allowed to view links. Register or Login %links;
  85. }
  86.  
  87. sub toma {
  88.     You are not allowed to view links. Register or Login $nave->get( $_[0] )->content;
  89. }
  90.  
  91. sub repes {
  92.     my @limpio;
  93.     foreach $test (@_) {
  94.         You are not allowed to view links. Register or Login @limpio, $test unless $repe{$test}++;
  95.     }
  96.     You are not allowed to view links. Register or Login @limpio;
  97. }
  98.  
  99. sub download {
  100.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  101.         if ( -f $_[1] ) {
  102.             You are not allowed to view links. Register or Login 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.     You are not allowed to view links. Register or Login "\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 ( You are not allowed to view links. Register or Login //, $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.         You are not allowed to view links. Register or Login "\b ";
  154.     }
  155.  
  156.     sub mostrar {
  157.         You are not allowed to view links. Register or Login $_[0];
  158.         $car = $_[1];
  159.     }
  160.  
  161. }
  162.  
  163. sub copyright {
  164.  
  165.     You are not allowed to view links. Register or Login "\n\n";
  166.  
  167.     marquesina("-- == (C) Doddy Hackman 2012 == --");
  168.  
  169.     You are not allowed to view links. Register or Login "\n\n";
  170.  
  171.     <stdin>;
  172.     You are not allowed to view links. Register or Login(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
You are not allowed to view links. Register or Login

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: 2848
Ú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: 1322
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1261
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1180
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

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