[Perl] URL Shorter 0.1

[BigBear]

un simple script para simplificar URLS.

Código (perl) [Seleccionar] Expandir


#!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 ?