Pueden bajar solo uno o hacer que el programa busque enlaces de pastebin en una página y bajarlos a todos.
El código:
Using perl Syntax Highlighting
- #!usr/bin/perl
- #PasteBin Downloader 0.1
- #Coded By Doddy H
- use LWP::UserAgent;
- use URI::Split qw(uri_split);
- use HTML::LinkExtor;
- 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(10);
- my $se = "downloads_pastebin";
- unless ( -d $se ) {
- mkdir( $se, "777" );
- }
- chdir $se;
- print "\n-- == PasteBin Downloader 0.1 == --\n";
- unless ( $ARGV[0] and $ARGV[1] ) {
- print "\n[+] Sintax : $0 < -single / -page > <url>\n";
- }
- else {
- print "\n[+] Searching ...\n";
- if ( $ARGV[0] eq "-single" ) {
- download_this( $ARGV[1] );
- }
- if ( $ARGV[0] eq "-page" ) {
- download_all( $ARGV[1] );
- }
- }
- print "\n(C) Doddy Hackman 2013\n";
- sub download_all {
- my $page = shift;
- my $code = toma($page);
- chomp $code;
- my @links_all = repes( get_links($code) );
- for my $page_down (@links_all) {
- download_this($page_down);
- }
- }
- sub download_this {
- my $page = shift;
- my $titulo = "";
- my $num = "";
- print "\n[+] Checking : $page\n";
- my $code = toma($page);
- if ( $page =~ /http:\/\/(.*)\/(.*)/ ) {
- $num = $2;
- if ( $code =~ /<div class="paste_box_line1" title="(.*)">/ ) {
- $titulo = $1;
- print "[+] Downloading : http://pastebin.com/download.php?i=$num\n";
- if (
- download(
- "http://pastebin.com/download.php?i=$num",
- $titulo . ".txt"
- )
- )
- {
- print "[+] File Downloaded !\n";
- }
- else {
- print "[-] Error\n";
- }
- }
- }
- }
- sub download {
- if ( $nave->mirror( $_[0], $_[1] ) ) {
- if ( -f $_[1] ) {
- return true;
- }
- }
- }
- sub repes {
- my @limpio;
- foreach $test (@_) {
- push @limpio, $test unless $repe{$test}++;
- }
- return @limpio;
- }
- sub toma {
- return $nave->get( $_[0] )->content;
- }
- sub get_links {
- $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
- return @links;
- sub agarrar {
- my ( $a, %b ) = @_;
- push( @links, values %b );
- }
- }
- #The End ?
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4