Foro - Perl en Español

Como primer programa del 2014 les traigo la nueva versión de mi ParanoicScan en su versión 1.5. Hace tiempo ciertas personas robaron el código fuente de la anterior versión de este programa. El tema es que no me molestó que usaran el código sino que solo le cambiaron el nombre del programa y el nombre del autor, no se molestaron en cambiar los nombres de las variables, solo cambiaron el nombre del autor. Por un ...

Un simple script en Perl que hice con la ayuda de explorer para realizar búsquedas en Shodan usando el API que hicieron para Perl.

El código.

#!usr/bin/perl
# Shodan Tool 0.2
# (C) Doddy Hackman 2013

# Install the dependencies
# sudo perl -MCPAN -e 'install CGI::Enurl'
# sudo perl -MCPAN -e 'install JSON::XS'
# sudo perl -MCPAN -e 'install HTTP::Request::Common'
# Install Shodan
# curl -OL http://github.com/downloads/achillean/s ... 0.3.tar.gz ...

Hola, estoy buscando amigos compañeros, para formar un equipo o quizás no, pero para tener una Red de programadores de Perl y desarrollar aplicaciones que salgan al mercado...

La idea es promocionar el desarrollo en Perl, pero a la vez, saber quienes desarrollan de manera independiente y le gusta participar en proyectos cortos :)

Hay muchos trabajos para realizar, pero sencillamente pocos programadores disponibles...

¿¡ QUIÉN SE ...

Un simple script en Perl para sacar un screenshot y subirlo a Imageshack.

El código:
#!usr/bin/perl
#DH ScreenShoter 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd

use Win32::GuiTest
qw(GetAsyncKeyState GetForegroundWindow GetWindowText FindWindowLike SetForegroundWindow SendKeys);
use Win32::Clipboard;
use Time::HiRes "usleep";
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);

$|++;

my ...

Un simple script para mandar mensajes de correo a donde quieran. Para usarlo necesitan una cuenta en Gmail. Lo nuevo de esta versión es que usé otro módulo que hace que el script no tenga tantas dependencias como en la última versión.

El código:
#!usr/bin/perl
#DH Bomber 0.2
#Coded By Doddy H

use Win32::OLE;

head();

print "\n Host : ";
chomp( my $host = <stdin> );

print "\n Port : ";
chomp( my $puerto ...

Un simple script en Perl para HTTP FingerPrinting o por lo menos lo intenta xDD.

El código :

#!usr/bin/perl
#HTTP FingerPrinting 0.1
#Coded By Doddy H

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

print "\n-- == HTTP FingerPrinting 0.1 == --\n";

unless ( $ARGV ) {

print "\n Sintax : $0 <page> < -fast / -full >\n";

}
else {

print "\n Getting Data ...

Un simple script en Perl para bajar códigos de Pastebin.

Pueden bajar solo uno o hacer que el programa busque enlaces de pastebin en una página y bajarlos a todos.

El código:


#!usr/bin/perl
#PasteBin Downloader 0.1
#Coded By Doddy H

use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;

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

my $se = "downloads_pastebin";

unless ( -d $se ) { ...

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 ...

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 ...

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 ...