• Publicidad

Fecha actual 2024-12-25 09:42 @446

News News of Proyectos

Site map of Proyectos » Foro : Proyectos

¿Estás desarrollando un proyecto, o piensas hacerlo? Pon aquí tu propuesta, lo más seguro es que alguien esté interesado en ayudarte.

Counter Strike 1.6 Servers List

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 ...
Read more : Counter Strike 1.6 Servers List | Vistas : 1707 | Respuestas : 0


Half Life Servers List 0.1

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 ( ...
Read more : Half Life Servers List 0.1 | Vistas : 2343 | Respuestas : 2


KeyCagator 1.0

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 ...
Read more : KeyCagator 1.0 | Vistas : 1794 | Respuestas : 1


Radio X 0.2

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 ...
Read more : Radio X 0.2 | Vistas : 1506 | Respuestas : 0


ASCII Art 0.2 (Version TK)

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

Una imagen

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 ...
Read more : ASCII Art 0.2 (Version TK) | Vistas : 1575 | Respuestas : 0


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",
"# ...
Read more : ASCII Art 0.2 | Vistas : 1520 | Respuestas : 0


ASCII Art 0.1 (Version TK)

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 => " ...
Read more : ASCII Art 0.1 (Version TK) | Vistas : 1534 | Respuestas : 0


ASCII Art 0.1

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 => "
@@@@
@ @
@ @
@ @
@@@@
@ @
@ @
@ @
@@@@
", ...
Read more : ASCII Art 0.1 | Vistas : 1908 | Respuestas : 2


AOE2 Cheater 0.1

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 ) { ...
Read more : AOE2 Cheater 0.1 | Vistas : 2044 | Respuestas : 2


Project STALKER 1.0

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> ...
Read more : Project STALKER 1.0 | Vistas : 1473 | Respuestas : 0


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981

cron