Título: [Perl] PirateBay Manager 0.3
Publicado por: BigBear en 23 Diciembre 2013, 00:27 am
Un simple script para usar en Windows para bajar torrents desde la famosa pagina llamada PirateBay. El codigo. #!usr/bin/perl #PirateBay Manager 0.3 #(C) Doddy Hackman 2013 use LWP::UserAgent; use Time::HiRes "usleep"; 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" ); my $requisito = "C:/Archivos de programa/uTorrent/uTorrent.exe"; head(); print "[+] Write the search : "; chomp( my $busqueda = <stdin> ); $busqueda =~ s/ /%20/; print "\n[+] Searching ..."; my $code = toma( "http://thepiratebay.se/search/" . $busqueda . "/0/99/0" ); my @links; $contador = -1; while ( $code =~ /(.*?)class="detLink" title="Details for (.*?)">(.*?)<a href="magnet(.*?)" title="Download this torrent using magnet"(.*?)<font class="detDesc">(.*?)<\/font>(.*?)<td align="right">(.*?)<\/td>(.*?)<td align="right">(.*?)<\/td>(.*?)/migs ) { my $nombre = $2; my $link_torrent = magnet . $4; my $limpiando_data = $6; my $data; my $seeders = $8; my $leechers = $10; if ( $limpiando_data =~ /(.*), ULed by </ ) { $limpiando_data_2 = $1; $limpiando_data_2 =~ s/ / /migs; $data = $limpiando_data_2; } $contador++; print "\n\n[+] ID : " . $contador; print "\n[+] Name : " . $nombre; push( @links, $link_torrent ); print "\n[+] Data : " . $data . ", Seeders $seeders, Leechers $leechers"; } print "\n\n[+] ID to download : "; chomp( my $id_to = <stdin> ); print "\n[+] Executed !\n"; system( $requisito, $links[$id_to] ); copyright(); ## Functions sub head { my @logo = ( "#=============================================#", "\n", "# PirateBay Manager 0.3 #", "\n", "#---------------------------------------------#", "\n", "# Written By Doddy H #", "\n", "# Email: lepuke[at]hotmail[com] #", "\n", "# Website: doddyhackman.webcindario.com #", "\n", "#---------------------------------------------#", "\n", "# The End ? #", "\n", "#=============================================#", "\n" ); marquesina(@logo); } sub copyright { my @fin = ("-- == (C) Doddy Hackman 2013 == --"); marquesina(@fin); <stdin>; } sub marquesina { #Effect based in the exploits by Jafer Al Zidjali my @logo = @_; my $car = "|"; for my $uno (@logo) { for my $dos ( split //, $uno ) { $|++; if ( $car eq "|" ) { mostrar( "\b" . $dos . $car, "/" ); } elsif ( $car eq "/" ) { mostrar( "\b" . $dos . $car, "-" ); } elsif ( $car eq "-" ) { mostrar( "\b" . $dos . $car, "\\" ); } else { mostrar( "\b" . $dos . $car, "|" ); } usleep(40_000); } } sub mostrar { $car = $_[1]; } } sub toma { return $nave->get( $_[0] )->content; } #The End ?
Ejemplo de uso. C:\Documents and Settings\Doddy\Escritorio\Warfactory VIII>piratebay.pl #=============================================# # PirateBay Manager 0.3 # #---------------------------------------------# # Written By Doddy H # # Email: lepuke[at]hotmail[com] # # Website: doddyhackman.webcindario.com # #---------------------------------------------# # The End ? # #=============================================#
[+] Write the search : batman
[+] Searching ... [+] ID : 0 [+] Name : Batman and Robin v2 25 (2014)(2 cvrs)(1440+2048px-HD)(BrightEyes [+] Data : Uploaded 11-23 03:43, Size 89.67 MiB, Seeders 24, Leechers 5 [+] ID : 1 [+] Name : Batman '66 022 (2013) (digital) (Son of Ultron-Empire) (- Nem -) [+] Data : Uploaded 11-27 14:25, Size 40.39 MiB, Seeders 25, Leechers 1 [+] ID : 2 [+] Name : Batman O Retorno (1992) DVDRip Dublado Repostagem [+] Data : Uploaded 11-25 20:58, Size 811.15 MiB, Seeders 0, Leechers 5 [+] ID : 3 [+] Name : Batman O Retorno (1992) DVDRip Dublado By Eliasjustino [+] Data : Uploaded 11-25 19:10, Size 811.15 MiB, Seeders 1, Leechers 0 [+] ID : 4 [+] Name : BATMAN - LI'L GOTHAM 002 (2013) (Print) (c2c) (GreenManGroup-DCP [+] Data : Uploaded 11-25 16:10, Size 37.15 MiB, Seeders 10, Leechers 2 [+] ID : 5 [+] Name : BATMAN - LI'L GOTHAM 001 (2013) (Print) (c2c) (GreenManGroup-DCP [+] Data : Uploaded 11-25 16:09, Size 38.28 MiB, Seeders 10, Leechers 2 [+] ID : 6 [+] Name : BATMAN - LI'L GOTHAM 023 (2013) (digital) (Son of Ultron-Empire) [+] Data : Uploaded 11-25 11:21, Size 30.81 MiB, Seeders 10, Leechers 1 [+] ID : 7 [+] Name : Batman 1966 Complete Season 3 Uncut TV RIP [+] Data : Uploaded Y-day 07:43, Size 5.19 GiB, Seeders 12, Leechers 6 [+] ID : 8 [+] Name : Batman Arkham Origins (Update 7 + 6 DLC) Repack by z10yded [+] Data : Uploaded Y-day 04:00, Size 8.11 GiB, Seeders 163, Leechers 230 [+] ID : 9 [+] Name : Batman.Arkham.Origins.Update.v2.0.Incl.DLC-RELOADED [+] Data : Uploaded 11-27 19:27, Size 308.21 MiB, Seeders 125, Leechers 14 [+] ID : 10 [+] Name : Batman The Dark Knight 025 (2014) (Digital) (Zone-Empire) [+] Data : Uploaded 11-27 15:27, Size 23.32 MiB, Seeders 81, Leechers 5 [+] ID : 11 [+] Name : Batman - Long Shadows [+] Data : Uploaded 11-27 13:10, Size 59.59 MiB, Seeders 31, Leechers 2 [+] ID : 12 [+] Name : Batman.Arkham.Trilogy-R.G. Mechanics [+] Data : Uploaded 11-27 05:05, Size 25.36 GiB, Seeders 41, Leechers 67 [+] ID : 13 [+] Name : Batman.Arkham.Origins.Update.v20131125-FTS [+] Data : Uploaded 11-26 21:43, Size 253.1 MiB, Seeders 19, Leechers 2 [+] ID : 14 [+] Name : Batman Arkham Origins - FULL GAME PC - LAST UPDATES [+] Data : Uploaded 11-24 12:50, Size 16.51 GiB, Seeders 17, Leechers 52 [+] ID : 15 [+] Name : Damian - Son of Batman 02 (of 04) (2014) (Digital) (Nahga-Empire [+] Data : Uploaded 11-27 13:39, Size 45.2 MiB, Seeders 188, Leechers 24 [+] ID : 16 [+] Name : BATMAN - KNIGHTFALL Volume 1 to 3 (DC) (Digital) (TheHand-Empire [+] Data : Uploaded 11-19 17:21, Size 2.52 GiB, Seeders 29, Leechers 7 [+] ID : 17 [+] Name : BATMAN '66 021 (2013) (DC Comics) (digital) (Son of Ultron-Empi [+] Data : Uploaded 11-21 01:02, Size 68.39 MiB, Seeders 9, Leechers 1 [+] ID : 18 [+] Name : BATMAN AND TWO-FACE 025 (2014) (Digital) (Zone-Empire) [+] Data : Uploaded 11-20 19:44, Size 27.07 MiB, Seeders 43, Leechers 0 [+] ID : 19 [+] Name : BATMAN '66 020 (2013) (DC Comics) (digital) (Son of Ultron-Empi [+] Data : Uploaded 11-14 14:47, Size 71.7 MiB, Seeders 5, Leechers 1 [+] ID : 20 [+] Name : BATMAN - SUPERMAN 005 (2013) (Webrip) (2 covers) (The Last Krypt [+] Data : Uploaded 11-06 13:36, Size 43.09 MiB, Seeders 32, Leechers 1 [+] ID : 21 [+] Name : Batman - Legends of the Dark Knight 077 (2013)(OlJoe-DCP) [+] Data : Uploaded 11-20 13:05, Size 12.53 MiB, Seeders 13, Leechers 0 [+] ID : 22 [+] Name : Batman - Ego (2000).cbr (- Nem -) [+] Data : Uploaded 11-17 17:28, Size 15.34 MiB, Seeders 13, Leechers 0 [+] ID : 23 [+] Name : Batman Beyond 2.0 (001 - 008) (ongoing) (- Nem -) [+] Data : Uploaded 11-17 17:18, Size 201.42 MiB, Seeders 21, Leechers 3 [+] ID : 24 [+] Name : Batman Beyond 2.0 008 (2013) (digital) (Son of Ultron-Empire).cb [+] Data : Uploaded 11-17 17:16, Size 29.28 MiB, Seeders 10, Leechers 0 [+] ID : 25 [+] Name : Batman Beyond 2.0 007 (2013) (digital) (Son of Ultron-Empire).cb [+] Data : Uploaded 11-17 17:14, Size 24.96 MiB, Seeders 8, Leechers 0 [+] ID : 26 [+] Name : Batman Beyond 2.0 006 (2013) (digital) (Son of Ultron-Empire).cb [+] Data : Uploaded 11-17 17:13, Size 25.21 MiB, Seeders 8, Leechers 0 [+] ID : 27 [+] Name : Batman v2 25 (2014) (2 covers) (1440+2048px-HD) (theProletariat- [+] Data : Uploaded 11-15 19:20, Size 113.44 MiB, Seeders 26, Leechers 4 [+] ID : 28 [+] Name : Batman.O.Cavaleiro.das.Trevas_P1 e 2 PTBR [+] Data : Uploaded 11-14 07:16, Size 543.94 MiB, Seeders 6, Leechers 0 [+] ID : 29 [+] Name : Batman - Ano Um (2011) 720p HD Dublado / Dual Audio pt-BR [+] Data : Uploaded 11-13 18:05, Size 501.99 MiB, Seeders 37, Leechers 3 [+] ID to download : 0 [+] Executed ! -- == (C) Doddy Hackman 2013 == --
Título: Re: [Perl] PirateBay Manager 0.3
Publicado por: Max00355 en 3 Enero 2014, 22:22 pm
¿Guión interesante, tienes un GitHub?
Título: Re: [Perl] PirateBay Manager 0.3
Publicado por: BigBear en 4 Enero 2014, 20:54 pm
Si.
|