Bueno, quería mostrar el código que con la ayuda de explorer logré terminar.
Este simple programa lista las últimas vulnerabilidades publicadas en securityfocus.com y podremos verlas desde consola viendo la información, exploit, solución...
El código es el siguiente:
#!/usr/bin/perl
#SecurityFocus Manager 0.3
#(C) Doddy Hackman 2011
##ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd
use LWP::UserAgent;
use HTML::Parser;
use HTML::Strip;
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 { ...
-
- Publicidad
Fecha actual 2025-03-14 04:23 @224
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.SecurityFocus Manager
Read more : SecurityFocus Manager | Vistas : 2351 | Respuestas : 6 | Foro : Proyectos
Se centraliza la información sobre manuales y guías
en la web http://perl-tutorial.org.
(En inglés, pero hay también enlaces a algunos tutoriales en español.)
(En inglés, pero hay también enlaces a algunos tutoriales en español.)
Read more : Se centraliza la información sobre manuales y guías | Vistas : 846 | Respuestas : 0 | Foro : Formación
Color de una ventana
Cual es el código hex de las ventanas de Perl, me refiero a ese gris...
Read more : Color de una ventana | Vistas : 3441 | Respuestas : 5 | Foro : HTML
Cómo guardar variable en un arreglo
Hola.
¿Me podrían ayudar? Necesito guardar una cadena en un arreglo, pero no me está funcionando la forma que estoy utilizando ya que solo me guarda un valor de n cantidad de valores que quiero guardar.
Lo que quiero hacer es guardar algunas IP que estoy leyendo de un archivo a las cuales les hago un if() para que cumplan una condición y si la cumplen guardarlo en un arreglo para después imprimirlas.
Utilizo algo ...
¿Me podrían ayudar? Necesito guardar una cadena en un arreglo, pero no me está funcionando la forma que estoy utilizando ya que solo me guarda un valor de n cantidad de valores que quiero guardar.
Lo que quiero hacer es guardar algunas IP que estoy leyendo de un archivo a las cuales les hago un if() para que cumplan una condición y si la cumplen guardarlo en un arreglo para después imprimirlas.
Utilizo algo ...
Read more : Cómo guardar variable en un arreglo | Vistas : 1249 | Respuestas : 7 | Foro : Básico
Listado de archivos con características
Hola, estoy haciendo un algoritmo que me liste los archivos que tenga en un directorio y, adicional a esto, me muestre la fecha de la última modificación; para esto tengo el siguiente código:
#!C:\perl\bin\perl.exe -w
my @vec = (0,'');
opendir(my $handle, $dir) || die;
while ($archivo = readdir($handle)) {
$fecha = (stat($archivo));
if ($fecha > $vec) {
@vec = ($fecha ,$archivo);
}
print "$archivo $vec\n";
}
closedir $handle;
<STDIN>;
El problema es que cuando ...
#!C:\perl\bin\perl.exe -w
my @vec = (0,'');
opendir(my $handle, $dir) || die;
while ($archivo = readdir($handle)) {
$fecha = (stat($archivo));
if ($fecha > $vec) {
@vec = ($fecha ,$archivo);
}
print "$archivo $vec\n";
}
closedir $handle;
<STDIN>;
El problema es que cuando ...
Read more : Listado de archivos con características | Vistas : 762 | Respuestas : 8 | Foro : Básico
Comparar dos variables
Hola de nuevo, tengo el siguiente código:
my $dbh = DBI->connect("DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432"."directorio","directorio","directorio");
my $sth = $dbh->prepare("SELECT institucion.name, sede.name, ciudad.name, estado.name, pais.name, poder.name, customer_user.first_name,customer_user.last_name,customer_user.id, cargo.name, area.name FROM sede INNER JOIN institucion ON institucion.id=sede.id_institucion JOIN ciudad ON sede.id_ciudad=ciudad.id JOIN estado ON ciudad.id_estado=estado.id JOIN pais ON ciudad.id_pais=pais.id JOIN poder On institucion.poder_id=poder.id JOIN customer_user ON sede.id=customer_user.sede_id JOIN cargo ON cargo.id=customer_user.cargo_id JOIN area ON area.id=customer_user.area_id ORDER BY institucion.id");
$sth->execute;
while ( @selec = $sth->fetchrow_array()) {
push ( @ni,$selec);
my @ns=$selec; ...
my $dbh = DBI->connect("DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432"."directorio","directorio","directorio");
my $sth = $dbh->prepare("SELECT institucion.name, sede.name, ciudad.name, estado.name, pais.name, poder.name, customer_user.first_name,customer_user.last_name,customer_user.id, cargo.name, area.name FROM sede INNER JOIN institucion ON institucion.id=sede.id_institucion JOIN ciudad ON sede.id_ciudad=ciudad.id JOIN estado ON ciudad.id_estado=estado.id JOIN pais ON ciudad.id_pais=pais.id JOIN poder On institucion.poder_id=poder.id JOIN customer_user ON sede.id=customer_user.sede_id JOIN cargo ON cargo.id=customer_user.cargo_id JOIN area ON area.id=customer_user.area_id ORDER BY institucion.id");
$sth->execute;
while ( @selec = $sth->fetchrow_array()) {
push ( @ni,$selec);
my @ns=$selec; ...
Read more : Comparar dos variables | Vistas : 618 | Respuestas : 2 | Foro : Básico
Peticion Post que se repite
Hola a todos...
Últimamente estoy muy activo por aquí y no me gusta nada T.T . Estoy un poco desesperado.
Tengo una web que consulta un cgi en perl. Para atacar al servidor lo hago mediante una petición post.
El cgi funciona perfectamente. Ataca a una BD para obtener los datos. Estos son muchos, así que el script tarda un poco, debido al fetching de datos.
Lo que sucede, no es que tarde, es que ...
Últimamente estoy muy activo por aquí y no me gusta nada T.T . Estoy un poco desesperado.
Tengo una web que consulta un cgi en perl. Para atacar al servidor lo hago mediante una petición post.
El cgi funciona perfectamente. Ataca a una BD para obtener los datos. Estos son muchos, así que el script tarda un poco, debido al fetching de datos.
Lo que sucede, no es que tarde, es que ...
Read more : Peticion Post que se repite | Vistas : 1256 | Respuestas : 1 | Foro : Administración
Perl Weekly llega a los 2000 suscriptores
Gran éxito de la revista creada por Gabor, con el resumen semanal de la actividad Perl.
Artículo (en inglés)
Artículo (en inglés)
Read more : Perl Weekly llega a los 2000 suscriptores | Vistas : 532 | Respuestas : 1 | Foro : Pasando el rato
Duda con variables
Este es el problema: supuestamente la variable $link debería quedar con lo que estaba
determinado pero el problema es que no se muestra nada en el print() y no entiendo cuál es el error.
my $op = "dos";
if ($op eq "uno") {
my $link = "http://localhost/bad/aca/a";
}
if ($op eq "dos") {
my $link = "http://localhost/bad/aca/b";
}
if ($op eq "tres") {
my $link = "http://localhost/bad/aca/c";
}
if ($op eq "cuatro") {
my ...
determinado pero el problema es que no se muestra nada en el print() y no entiendo cuál es el error.
my $op = "dos";
if ($op eq "uno") {
my $link = "http://localhost/bad/aca/a";
}
if ($op eq "dos") {
my $link = "http://localhost/bad/aca/b";
}
if ($op eq "tres") {
my $link = "http://localhost/bad/aca/c";
}
if ($op eq "cuatro") {
my ...
Read more : Duda con variables | Vistas : 326 | Respuestas : 1 | Foro : Básico
Ayuda con expresión regular
Tengo el siguiente código HTML
<!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'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, ...
<!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'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, ...
Read more : Ayuda con expresión regular | Vistas : 1434 | Respuestas : 13 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981