Bienvenido a Tecnohackers

Tecnohackers » General del foro » Area de Programacion » Scripting. VBS, Batch, Bash, JavaSript. (Moderador: Doddy)
»

[Perl] URL Shorter 0.1

Imprimir

Páginas: [1] Ir Abajo

Autor Tema: [Perl] URL Shorter 0.1 (Leído 21 veces)

Doddy

Moderator
Veterano
Mensajes: 267
Slow Mind

[Perl] URL Shorter 0.1

« en: Febrero 06, 2012, 04:48:08 pm »

un simple script para simplificar URLS.

Código: No puedes ver links Registrate o Login

#!usr/bin/perl
#URL Shorter 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"
);
$nave->timeout(5);

head();
print "\n\n\n\n[+] URL : ";
chomp( my $url = <stdin> );
my $code = $nave->get( "http://tinyurl.com/api-create.php?url=" . $url );
if ( $code->is_success ) {
    my $link = $code->content;
    print "\n\n[+] URL Shorter : $link\n";
}
copyright();

sub head {

    print qq(


 @    @  @@@@@   @         @@@   @                         
 @    @  @    @  @        @   @  @              @          
 @    @  @    @  @        @      @              @          
 @    @  @    @  @        @      @ @@   @@@  @@ @@  @@@  @@
 @    @  @@@@@   @         @@@   @@  @ @   @ @  @  @   @ @ 
 @    @  @    @  @            @  @   @ @   @ @  @  @@@@@ @ 
 @    @  @    @  @            @  @   @ @   @ @  @  @     @ 
 @    @  @    @  @        @   @  @   @ @   @ @  @  @   @ @ 
  @@@@   @    @  @@@@@     @@@   @   @  @@@  @   @  @@@  @ 


                                        
                                    Coded By Doddy H
);

}

sub copyright {
    print "\n\n(C) Doddy Hackman 2012\n\n";
    <stdin>;
    exit(1);
}

# The End ?

En línea

No puedes ver links Registrate o Login

Imprimir

Páginas: [1] Ir Arriba

Tags:

Related Topics

		Asunto / Iniciado por	Respuestas	Último mensaje
		DzSoft Perl Editor v5.8.7.3 [ Escribe, Edita y Depura Código Perl CGI ] Iniciado por zolo Area de Programacion	0 Respuestas 219 Vistas	Noviembre 03, 2010, 04:15:45 am por zolo
		[Delphi] URL Shorter 0.1 Iniciado por Doddy Programacion a Alto Nivel. Visual Basic, Java, delphi, etc.	0 Respuestas 38 Vistas	Febrero 06, 2012, 04:44:46 pm por Doddy
		[Ruby] URL Shorter 0.1 Iniciado por Doddy Scripting. VBS, Batch, Bash, JavaSript.	0 Respuestas 18 Vistas	Febrero 06, 2012, 04:45:45 pm por Doddy
		[Python] URL Shorter 0.1 Iniciado por Doddy Scripting. VBS, Batch, Bash, JavaSript.	0 Respuestas 18 Vistas	Febrero 06, 2012, 04:46:17 pm por Doddy

SMF 2.0.2 | SMF © 2011, Simple Machines
Paginas Afiliadas
InfraBios - i-hacker - Twitter - FaceBook - Troyanosyvirus - LaWebDeGoku - daraxblog

Designed by Smf Personal