Foro - Perl en Español

por **BigBear** » 2013-07-20 16:58 @748

Un simple script en Perl para bajar códigos de Pastebin.

Pueden bajar solo uno o hacer que el programa busque enlaces de pastebin en una página y bajarlos a todos.

El código:

Sintáxis: [ Descargar ] [ Ocultar ]

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.005 segundos,  usando GeSHi 1.0.8.4

Hola, solo por completar a este programa.

En CPAN hay un montón de módulos para bajar códigos desde Pastebin y de webs similares a ella.

WWW::Pastebin::PastebinCa::Retrieve
WWW::Pastebin::PastebinCom::Retrieve
WWW::Pastebin::PastieCabooSe::Retrieve
WWW::Pastebin::PhpfiCom::Retrieve
WWW::Pastebin::RafbNet::Retrieve
WWW::Pastebin::UbuntuNlOrg::Retrieve

Incluso hay un módulo que reúne a todos ellos: WWW::Pastebin::Many::Retrieve

por **BigBear** » 2013-07-20 20:09 @881

¡Nooo...! Yo que pensé que había sido una idea original...

Foro - Perl en Español

PasteBin Downloader 0.1

PasteBin Downloader 0.1

Publicidad

Re: PasteBin Downloader 0.1

Re: PasteBin Downloader 0.1

¿Quién está conectado?