Foro - Perl en Español

por **BigBear** » 2011-11-16 11:05 @503

Tengo el siguiente código HTML

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" 
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="description" content="SecurityFocus is designed to facilitate discussion on computer security related topics, create computer security awareness, and to provide the Internet&apos;s largest and most comprehensive database of computer security knowledge and resources to the public. It also hosts the BUGTRAQ mailing list.">
<meta name="keywords" content="securityfocus, security focus, computer security, information security, security, hack, full disclosure, bugtraq, bugtrack, bugtrac, bugtrag, vulnerability, vulnerabilities, vulnerability database, auditing, spoofing, sniffer, sniffing, exploit, advisory, antivirus, virus, firewall, buffer overflow, overflow, password, windows, windows nt, solaris, linux, crack, cracker, cracking, IDS, intrusion detection, backdoor, backdoors, trojan, cryptography, encryption, authentication, DoS, DDoS, denial of service, syn flooding, smurf, internet security, web security, security tools, security products, vuln-dev, security incidents, incident responce, bugtraq-jp, bugtraq-es, security jobs, sf-news, focus-ms, focus-sun, focus-linux, focus-ids, focus-ih, infowar, information warfare, VPN, virtual private network">
<script language="JavaScript">
var pathname='/home';
var OAS_listpos = 'Top,Middle,Bottom1,Right1,x29,x30,x28';
</script>
<SCRIPT LANGUAGE="JavaScript1.2" SRC="/js/standard.js"></SCRIPT>
<script src="/__utm.js" type="text/javascript"></script>
<link rel="stylesheet" type="text/css" href="/new_SFPS_style.css" />
<title>ISC BIND 9 Recursive Queries Remote Denial of Service Vulnerability</title>
 
</head>
 
<body bgcolor="#ffffff">
<map name="ButtonMap">
  <area shape="rect" coords="139,25,190,45" href="/about">
  <area shape="rect" coords="191,25,249,45" href="/contact">
</map>
<!-- start header -->
 
<a href="/"><div id="logo_new">
                <div class="headerButtonBar"><img src="/images/site/header_button_bar.gif" width="258" height="45" alt="" usemap="#ButtonMap" border="0"></div>
</div></a>
<div id="bannerAd">
<table width="890" cellpadding="0" border="0" cellspacing="0">
 
<tr><td width="728">
<a href="http://www.symantec.com/connect/" target="_blank"><img src="/images/site/sf-symc-connect-banner.jpg" width="728" height="90" alt="" border="0"/></a>
</td>
<td width="12">&nbsp;</td>
<td width="150" align="right">
&nbsp;
<td>
</tr>
</table>
 
</div>
 
<!-- end header -->
 
<table width="900" cellpadding="0" cellspacing="4" border="0">
        <tr valign="top">
 
                
                <td>
                        <!-- Start Content -->
<br/>
 <div id="tabs">
  <ul>
        <li><a href="/bid/50690/info">info</a></li>
        <li><a href="/bid/50690/discuss">discussion</a></li>
        <li><a href="/bid/50690/exploit">exploit</a></li>
 
        <li class="here"><a href="/bid/50690/solution">solution</a></li>
        <li><a href="/bid/50690/references">references</a></li>
        </ul>
</div>
<div id="vulnerability">
        <span class="title">ISC BIND 9 Recursive Queries Remote Denial of Service Vulnerability</span><br/><br/>        <b>Solution:</b><br/>
        Currently we are not aware of any vendor-supplied patches. If you feel we are in error or if you are aware of any more recent information, please mail us at: [email protected].<br/><br/>
 
        
        
        
        
        
        
        
        
        
        
</div>
 
<br/><br/>
 
 
                        <!-- End Content -->
                </td>
        </tr>
</table>
<!-- start footer -->
<table width="900" cellpadding="0" cellspacing="4" border="0">
        <tr valign="top">
 
                <td width="120">
                &nbsp;
                </td>
                <td>
 
<br/>
<p align="center" style="color: #666; font-size: 8pt;"><a href="/privacy">Privacy Statement</a><br>Copyright 2010, SecurityFocus</p>
 
                </td>
                <td width="160">
 
                &nbsp;
                </td>
        </tr>
</table>
</body>
</html>
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Y la expresión regular que tengo es esta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ($code=~/<div id="vulnerability">
(.*?)   
<\/div>/) {
print "yeah\n";
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Como ven solo quiero sacar todo lo que está en <div id="vulnerability"> pero estoy haciendo algo mal, porque no puedo sacar la información que quiero.

¿ Alguien me puede ayudar ?

Depende de si quieres quitar los que están al principio, al final, o en medio.

Para los dos primeros, lo tienes resuelto en perlfaq4, sección How do I strip blank space from the beginning/end of a string?.

Para el tercero... deberás decidir antes lo que significa "en medio".

El caso extremo sería quitar todos los espacios: s/\s+//g;

O, más prudente, quitar los espacios repetidos: s/\s+/ /g;

por **BigBear** » 2011-11-16 13:14 @593

Lo he intentado con los tres casos y directamente no me aparece nada.

por **explorer** » 2011-11-16 15:39 @693

Sin ver el código, es difícil decirte dónde tienes el fallo...

por **BigBear** » 2011-11-16 15:44 @697

En la línea 56 está el problema con la hash que te estaba preguntando en otro post.
En línea 113 está el problema de mostrar la respuesta que estaba preguntando en este mismo post.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!usr/bin/perl
#DB Exploit Helper 0.4
#(C) Doddy Hackman 2011
##ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd
 
use LWP::UserAgent;
use HTML::Parser;
use HTML::Strip;
 
use Data::Dumper;
 
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
 
head();
refrescar();
 
sub refrescar {
 
    print "\n[+] List of vulnerabilities\n\n\n";
 
    my %links    = getlinks($code);
    my $contador = -1;
 
    for my $da ( keys %links ) {
        $contador++;
 
        #$links{$da}
        print "[$contador] : $da\n";
    }
    print qq(
 
[1] : Refresh
[2] : All INFO
[3] : Info
[4] : Discussion
[5] : Exploit
[6] : Solution
[7] : References
[8] : Exit
 
);
 
    print "\n[Option] : ";
    chomp( my $op = <stdin> );
 
    if ( $op eq 1 ) { resfrescar(); }
    elsif ( $op eq 2 ) {
    }
    elsif ( $op eq 3 ) {
 
        #http://www.securityfocus.com/bid/50631/info
        print "\n[+] Number : ";
        chomp( my $se = <stdin> );
        print $links[0]{1};
        <stdin>;
        refrescar();
    }
    elsif ( $op eq 4 ) {
        dar( 'Adobe Acrobat and Reader CVE-2011-2442 Remote Code Execution Vulnerability', '49585', "cuatro" );
 
        #http://www.securityfocus.com/bid/50631/discuss
    }
    elsif ( $op eq 5 ) {
 
        #http://www.securityfocus.com/bid/50631/exploit
    }
    elsif ( $op eq 6 ) {
 
        #http://www.securityfocus.com/bid/50631/solution
    }
    elsif ( $op eq 7 ) {
 
        #http://www.securityfocus.com/bid/50631/references
    }
    elsif ( $op eq 8 ) {
        copyright();
        exit(1);
    }
    else {
        refrescar();
    }
}
 
sub dar {
 
    my ( $title, $numero, $op ) = @_;
 
    if ( $op eq "uno" ) {
        $link = "http://www.securityfocus.com/bid/$numero/info";
    }
    if ( $op eq "dos" ) {
        $link = "http://www.securityfocus.com/bid/$numero/discuss";
    }
    if ( $op eq "tres" ) {
        $link = "http://www.securityfocus.com/bid/$numero/exploit";
    }
    if ( $op eq "cuatro" ) {
        $link = "http://www.securityfocus.com/bid/$numero/solution";
    }
    if ( $op eq "cinco" ) {
        $link = "http://www.securityfocus.com/bid/$numero/references";
    }
 
    my $code = toma($link);
 
    if ( $code =~ /<div id="vulnerability">(.*?)<\/div>/s ) {
        my $code = $1;
        chomp $code;
        my $uno = HTML::Strip->new( emit_spaces => 1 );
        my $final = $uno->parse($code);
        print $final;
    }
 
    <stdin>;
 
}
 
sub getlinks {
 
    my $code = toma("http://www.securityfocus.com/");
 
    my $test = HTML::Parser->new(
        start_h => [ \&start, "tagname,attr" ],
        text_h  => [ \&text,  "dtext" ],
    );
    $test->parse($code);
 
    sub start {
        my ( $a, $b ) = @_;
        my %e = %$b;
        unless ( $a ne "a" ) {
            $d = $e{href};
            $c = $a;
        }
    }
 
    sub text {
        my $title = shift;
        chomp $title;
        unless ( $c ne "a" ) {
            if ( $d =~ /\/bid\/(.*)/ ) {
                my $id = $1;
                unless ( $title =~ /www.securityfocus.com/ ) {
                    $links{$title} = $id;
                }
            }
            $d = "";
        }
    }
    return %links;
}
 
sub toma {
    return $nave->get( $_[0] )->content;
}
 
sub repes {
    foreach $test (@_) {
        push @limpio, $test unless $repe{$test}++;
    }
    return @limpio;
}
 
sub head {
    print "-- == SecurityFocus Manager == --\n\n";
}
 
sub copyright {
    print "\n\n\n(C) Doddy Hackman 2011\n\n";
}
 
# The End ?
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-11-17 04:23 @224

No veo que estés aplicando las expresiones regulares a la variable $final.

Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$final=~s/\s+$//g;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra cosa, en la línea 111 tienes puesta emit_spaces => 1. ¿No has probado con emit_spaces => 0?

por **BigBear** » 2011-11-17 08:35 @399

Gracias, explorer, el tema de los espacios ya está solucionado. Ahora me falta el problema del hash en la línea 56, que te venía preguntando en otro post. ¿No me podrías decir cómo puedo usar el hash para poder mandar los parámetros en la función dar() en la línea 61 cuando el usuario presione el número?

por **explorer** » 2011-11-17 14:05 @628

Por lo que se ve en la línea 146, se trata de un hash que guarda como claves el texto de los enlaces, y como valores el valor de lo que sigue a bid/, del atributo href.

Así que... yo no veo que se guarden los enlaces. Salvo que sea el texto que se guarde como clave.

Se podría hacer un menú numerado con todos los enlaces:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $i = 0;
for my $link (keys %links) {
    print "$i : $link\n";
    $i++;
}
print "Seleccione el enlace: ";
chomp(my $j = <>);
my $enlace_elegido = (keys %links)[$j];   # de la lista de claves, nos quedamos con el $j-ésimo
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esto se puede hacer porque Perl nos garantiza que keys() (y values()) siempre devuelven las claves (y los valores) de un hash en el mismo orden. Así que primero le mostramos una lista al usuario, él elige un número, y ese número lo usamos de índice dentro de la lista de claves.

(keys %links)[$j]

quiere decir:
1.- extrae las claves (keys()) de %links, y agrúpalas en una lista de valores (los paréntesis nos ayudan a agrupar esos valores
2.- de esa lista de valores, ponemos unos corchetes, para acceder a un cierto elemento dentro de esa lista de valores, tal como si tuviéramos un array.

Una vez que tenemos el valor elegido, pues ya podemos pasarlo como argumento a otra función.

Foro - Perl en Español

Ayuda con expresión regular

Ayuda con expresión regular

Publicidad

Re: Ayuda con expresión regular

Re: Ayuda con expresión regular

Re: Ayuda con expresión regular

Re: Ayuda con expresión regular

Re: Ayuda con expresión regular

Re: Ayuda con expresión regular

Re: Ayuda con expresión regular

Re: Ayuda con expresión regular

Re: Ayuda con expresión regular

¿Quién está conectado?