Foro - Perl en Español

Lo mismo que el otro buscador pero esta vez para CS 1.6

El código


#!usr/bin/perl
#Counter Strike 1.6 Servers List
#Version 0.1
#Coded By Doddy H

use LWP::UserAgent;
use Cwd;
use Time::HiRes "usleep";

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 @founds;
my @founds_final;

head();

print " Pages (1-899) : ";
chomp( my $pag = <stdin> );

print "\n\n Searching Servers ....\n";

for my ...

Este script se encarga de buscar servidores del juego Half Life para entrar y jugar. Los resultados se guardan en un archivo de texto.

El código


#!usr/bin/perl
#Half Life Servers List 0.1
#Coded By Doddy H

use LWP::UserAgent;
use Cwd;
use Time::HiRes "usleep";

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 @founds;
my @founds_final;

head();

print " Searching Servers ....\n";

for my $count ( ...

Un simple keylogger en Perl con las siguientes opciones :

Capturar teclas reconociendo mayusculas y minusculas asi como signos
Capturar ventanas activas
Capturar el escritorio de windows cada cierto tiempo o cada click del mouse
Oculta archivos relacionados al programa
Compresion de los logs a zip
Logs ordenados en un archivo HTML
Subir logs a un servidor FTP marcado
Ejecutarse cuando se inicie Windows

Una imagen del ...

Estaba harto de escuchar siempre la misma canción así que mejoré este script para poder escuchar música con los siguientes géneros.

Rock'n'Roll
Pop
Ambient
Trance
House
Y otros mas .......


Aclaro que necesitan bajar el mplayer. Esta el enlace de descarga en el script; una vez que lo tengan descargado y descomprimido creen una carpeta llamada "mplayer" y copian todos los archivos del archivo descomprimido en la carpeta recién ...

Version Tk de esta nueva version de este script para hacer ascii art desde una palabra.

Una imagen



El codigo


#!usr/bin/perl
#ASCII Art 0.2
#Version Tk
#Coded By Doddy H
#
#http://search.cpan.org/~lory/Text-Banner-1.00/Banner.pm
#

use Tk;
use Tk::Dialog;
use Text::Banner;

#if ( $^O eq 'MSWin32' ) {
#use Win32::Console;
#Win32::Console::Free();
#}

my $color_fondo = "black";
my $color_texto = "green";

my $ven =
MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$ven->title("ASCII Art 0.2 ...

Una posible versión mejorada de este script para hacer ASCII Art desde una palabra.

El código:

#!usr/bin/perl
#ASCII Art 0.2
#Coded By Doddy H
#
#http://search.cpan.org/~lory/Text-Banner-1.00/Banner.pm
#

use Text::Banner;
use Time::HiRes "usleep";

my $start = Text::Banner->new;

sub head {

my @logo = (
"#=============================================#", "\n",
"# ASCII Art 0.2 #", "\n",
"#---------------------------------------------#", "\n",
"# Written By Doddy H #", "\n",
"# Email: lepukehotmail #", "\n",
"# Website: doddyhackman.webcindario.com #", "\n",
"#---------------------------------------------#", "\n",
"# ...

Version Tk de este simple script para hacer ASCII Art desde una palabra.

El código

[
#!usr/bin/perl
#ASCII Art 0.1
#Version Tk
#Coded By Doddy H
#Thanks to : reLlene,MARKO,explorer

use Tk;
use Tk::Dialog;
use List::Util "max";

if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}

my %letras = (

a => "
@
@
@ @
@ @
@ @
@ @
@@@@@
@ @
@ @
",

b => " ...

Sin mucho que decir dejo este simple script para hacer ASCII Art desde una palabra.

El código


#!usr/bin/perl
#ASCII Art 0.1
#Coded By Doddy H

use List::Util "max";
use Time::HiRes "usleep";

my %letras = (

a => "
@
@
@ @
@ @
@ @
@ @
@@@@@
@ @
@ @
",

b => "
@@@@
@ @
@ @
@ @
@@@@
@ @
@ @
@ @
@@@@
", ...

Bueno, como se me falseó la tecla enter de tanto escribir los mismos trucos para los suministros del juego Age of Empires 2 decidí hacer este simple script para que los haga por mi. Al terminar vamos a tener 30.000 de madera, alimentos, oro y piedra.

El código:


#!usr/bin/perl
#AOE2 Cheater 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Win32-GuiTest.ppd

use Win32::GuiTest qw(SendKeys);

head();

for my $se ( reverse 1 .. 10 ) { ...

Nueva y posiblemente la última versión de esta consola para usar en los cibers.

Los comandos son

cmd_getip <host>
cmd_getlink <page>
cmd_getprocess
cmd_killprocess <pid process>
cmd_conec <host> <port> <command>
cmd_allow <host>
cmd_paths <page>
cmd_encodehex <text>
cmd_decodehex <text>
cmd_encodeascii <text>
cmd_decodeascii <text>
cmd_encodebase <text>
cmd_decodebase <text>
cmd_scanport <host>
cmd_panel <page>
cmd_getpass <hash>
cmd_kobra <page>
cmd_ftp <host> <user> <pass> ...