Foro - Perl en Español

Un simple script para escanear un archivo mediante el API de virustotal.com La idea se me ocurrió cuando vi este script en Python hecho por Sanko del foro Underc0de.

Una imagen :



#!usr/bin/perl
#VirusTotal Scanner 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/JSON.ppd
#ppm install http://trouchelle.com/ppm/Digest-MD5-File.ppd
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
#ppm install ...

¿ Cuál les parece mejor para programar ?

Un simple script para subir imágenes a Imageshack.

El código :


#!usr/bin/perl
#Imageshack Uploader 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd

use LWP::UserAgent;

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();

unless ( $ARGV ) {
print "\n Sintax : $0 <image>\n";
}
else {

my $your_key = "YOURKEY"; #Your API Key

print "\n Uploading ...\n";

my ...

«UAV::Pilot es una biblioteca Perl para controlar Vehículos Aéreos Autónomos. Actualmente funciona con el drone Parrot AR.Drone, y hay planes para funcionar con otros.



La biblioteca actual soporta una serie de comandos básicos, como despegue, inclinación, voltear, acelerar verticalmente, aterrizar. También hay soporte para las figuras preprogramadas. La navegación y vídeo todavía no están soportadas.»

Artículo (en inglés)

Traducción a Perl del programa hecho por $DoC llamado AnonFiles Uploader hecho para subir archivos a la página AnonFiles.


#!usr/bin/perl
#AnonFiles Uploader
#Original author: $ DoC
#Translations made by Doddy H
#
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
#

use LWP::UserAgent;

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);

unless ( $ARGV ) {
print "\n Sintax : $0 <file>\n";
}
else ...

En el siguiente ejemplo se ve cómo llamo a un telnet desde Perl:

En mi caso utilizo el telnet para leer en una RN-XV de Roving, y leo el estado de los puertos digitales y también del analógico. Podría hacerlo también con el comando GET de PHP de la tarjeta, pero así utilizo el mismo proceso para escribir y para leer en la RN-XV.

Artículo

«A continuación pongo el programa con el que leo el puerto serie al que tengo conectado mi Arduino micro. En el mensaje sobre Arduino, podéis ver el programa con el que envío los datos que luego leo aquí.»

Artículo

«Vamos a comenzar ver temas mas avanzados con perl al igual que con python que ya vamos en la OPP,en perl también comenzaremos a ver OPP con perl 5.x,pero primero necesitamos saber o necesito explicar algunas cosas antes,como referencias,variables especiales,manejo de archivos de texto.En una entrada pasada habia hablado sobre como abrir archivos de texto pero para su lectura,en este caso aprenderemos...»

Artículo

¡Saludos! Aquí les dejo el complemento que hice llamado Secure XChat (obviamente, hecho en Perl), que es para XChat. Básicamente sirve para cifrar los chat privados del IRC para hacerlos más seguros. De esta forma NADIE más podrá leer vuestros mensajes; de esta forma mantenemos la privacidad si se trata de asuntos que no queramos que alguien más pueda leer. Si alguien nos estuviera esnifando la conexión no podría leer los mensajes; si en ...

He escuchado sobre ella pero nunca he entrado. Escuché que si hacías algo mal ahí terminabas buscado por la policía, muerto o chantajeando con información tuya por supuestos hackers.

¿ Ustedes que opinan de esa página ?