Foro - Perl en Español

«En el lenguaje de programación Perl, podríamos escribir los números del 1 al 15, usando la forma básica con un arreglo, o bien, podríamos hacer uso de la forma más económica siguiente, usando el operador rango»

Artículo

«Bien,le hice otra pequeña actualización al programa de una vez,ya que voy ha estar ocupado los próximos días, no es una versión completa, ya que puede que haga 4.5.1,4.5.2, etc. para corregir errores de ésta, así que lo que le he añadido es lo siguiente: 1. Cambié algunas cosas de la interfaz para que se vea mejor: 4.5: 4. antes 2. También añadí los conocidos accel. Que...»

Artículo

Hola a todos...
Antes que nada me presento: soy n3td1srupt, joven de 15 años pues interesado en programación y el mundo del hacking :) ...

Bueno, esta duda la he buscado por Internet y no he visto nada relacionado. He encontrado en esta web diferentes soluciones para integrar PHP y perl, pero no sé si esto es lo mismo...

Veréis: estoy diseñando o tengo en mente más ...

Ja, como regalo de navidad les dejo el script navideño xDDD.

El código


#!usr/bin/perl
#El script navideño
#Coded By Doddy H

while(true) {

my($dia,$mes,$anio,$hora,$minutos,$segundos) = agarrate_la_hora();

unless($dia eq "25" and $mes eq "12") {
syswrite STDOUT," Fecha y hora : $dia/$mes/$anio $hora:$minutos:$segundos \r";
} else {
syswrite STDOUT,"\n\n Feliz navidad !";
<stdin>;
exit(1);
}

}

sub agarrate_la_hora {

my ($a,$b,$c,$d,$e,$f,$g,$h,$i) = localtime(time);

$f+= 1900;
$e++;

return($d,$e,$f,$c,$b,$a);

}

#The End ?

Bueno, siempre quise hacer una botnet en Perl. Logré programar una bien básica que tiene las siguientes opciones:

Ejecución de comandos
Simple GetIP
Listar procesos activos
Matar procesos
Listar archivos de un directorio
Borrar un archivo o directorio cualquiera
Leer archivos
Abrir y cerrar lectora
Ocultar y mostrar programas del escritorio
Ocultar y mostrar Taskbar
Mandar mensajitos molestos
Abrir Word y hacer que ...

Traduccion a Perl (mega buggeada) del script que hizo Javier de PortalHacker para poder leer los mensajes privados y listar las categorías de un foro SMF.

El código:


#!usr/bin/perl
#SMF Manager 0.00001
#Coded By Doddy H

#ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd

use LWP::UserAgent;
use HTTP::Cookies;

use HTML::Strip;

my $nave = LWP::UserAgent->new(
cookie_jar => HTTP::Cookies->new(),
requests_redirectable => ,
timeout => 5,
agent =>
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);

print qq( ...

Ya está en marcha el Calendario de Adviento de Perl 6 de este año (en inglés).

Calendario de Adviento 2012 (en inglés)

Podéis uniros a su fuente RSS y seguirlo en Twitter, en la cuenta @PerlAdvent

Ya comenzó el Calendario de Adviento de Perl Dancer 2012 (en inglés).

«Como decía el otro día, necesito un programa que calcule distancias entre ciudades. No puedo ir a GOOGLE MAPS y hacerlo a mano porque hablamos de una tabla completa.

Hoy vamos a utilizar Perl.»

Artículo