un simple script para simplificar URLS.
#!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 ?