Код:
#!usr/bin/perl #PasteBin Downloader 0.1 #Coded By Doddy H use LWP::UserAgent; use URI::Split You are not allowed to view links. Register or Login(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 ) { You are not allowed to view links. Register or Login( $se, "777" ); } You are not allowed to view links. Register or Login $se; You are not allowed to view links. Register or Login "\n-- == PasteBin Downloader 0.1 == --\n"; unless ( $ARGV[0] and $ARGV[1] ) { You are not allowed to view links. Register or Login "\n[+] Sintax : $0 < -single / -page > <url>\n"; } else { You are not allowed to view links. Register or Login "\n[+] Searching ...\n"; if ( $ARGV[0] eq "-single" ) { download_this( $ARGV[1] ); } if ( $ARGV[0] eq "-page" ) { download_all( $ARGV[1] ); } } You are not allowed to view links. Register or Login "\n(C) Doddy Hackman 2013\n"; sub download_all { my $page = You are not allowed to view links. Register or Login; my $code = toma($page); You are not allowed to view links. Register or Login $code; my @links_all = repes( get_links($code) ); for my $page_down (@links_all) { download_this($page_down); } } sub download_this { my $page = You are not allowed to view links. Register or Login; my $titulo = ""; my $num = ""; You are not allowed to view links. Register or Login "\n[+] Checking : $page\n"; my $code = toma($page); if ( $page =~ /http:\/\/(.*)\/(.*)/ ) { $num = $2; if ( $code =~ /<div class="paste_box_line1" title="(.*)">/ ) { $titulo = $1; You are not allowed to view links. Register or Login "[+] Downloading : http://pastebin.com/download.php?i=$num\n"; if ( download( "http://pastebin.com/download.php?i=$num", $titulo . ".txt" ) ) { You are not allowed to view links. Register or Login "[+] File Downloaded !\n"; } else { You are not allowed to view links. Register or Login "[-] Error\n"; } } } } sub download { if ( $nave->mirror( $_[0], $_[1] ) ) { if ( -f $_[1] ) { You are not allowed to view links. Register or Login true; } } } sub repes { my @limpio; foreach $test (@_) { You are not allowed to view links. Register or Login @limpio, $test unless $repe{$test}++; } You are not allowed to view links. Register or Login @limpio; } sub toma { You are not allowed to view links. Register or Login $nave->get( $_[0] )->content; } sub get_links { $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] ); You are not allowed to view links. Register or Login @links; sub agarrar { my ( $a, %b ) = @_; You are not allowed to view links. Register or Login( @links, You are not allowed to view links. Register or Login %b ); } } #The End ?