send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] MP3 Downloader 0.1

  • 0 Respuestas
  • 1019 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Noviembre 27, 2012, 11:57:04 am »
Hice este simple script para buscar y bajar musica.

El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #MP3 Downloader 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6. use URI::Split You are not allowed to view links. Register or Login(uri_split);
  7. use Time::HiRes "usleep";
  8.  
  9. my $nave = LWP::UserAgent->new;
  10. $nave->agent(
  11. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  12. );
  13. $nave->timeout(5);
  14.  
  15. my $se = "downloads_mp3";
  16.  
  17. unless ( -d $se ) {
  18.     You are not allowed to view links. Register or Login( $se, "777" );
  19. }
  20.  
  21. You are not allowed to view links. Register or Login $se;
  22.  
  23. head();
  24.  
  25. You are not allowed to view links. Register or Login "[?] Song : ";
  26. You are not allowed to view links. Register or Login( my $song = <stdin> );
  27.  
  28. $song =~ s/ /-/;
  29.  
  30. You are not allowed to view links. Register or Login "\n[+] Searching ...\n\n";
  31.  
  32. my $code = toma( "http://mp3skull.com/mp3/" . $song . ".html" );
  33.  
  34. You are not allowed to view links. Register or Login $code;
  35.  
  36. if ( $code =~ /Sorry, no results found for/ ) {
  37.     You are not allowed to view links. Register or Login "\n[-] Not Found\n";
  38.     copyright();
  39. }
  40.  
  41. my @nombres;
  42. my @datas;
  43. my @links;
  44.  
  45. while ( $code =~ /<div style="font-size:15px;"><b>(.*)<\/b><\/div>/mig ) {
  46.     my $nombre = $1;
  47.  
  48.     #print "name : $nombre\n";
  49.     You are not allowed to view links. Register or Login( @nombres, $nombre );
  50. }
  51.  
  52. while ( $code =~ /<!-- info mp3 here -->\s+(.*?)<\/div>/migs ) {
  53.     my $data = $1;
  54.     $data =~ s/<br \/>/ /;
  55.     $data =~ s/<br \/>/ /;
  56.  
  57.     #print "data : $data\n";
  58.     You are not allowed to view links. Register or Login( @datas, $data );
  59. }
  60.  
  61. while ( $code =~ /<a href=\"(.*)\.mp3\"/mig ) {
  62.     my $link = $1 . ".mp3";
  63.  
  64.     #print "link : $link\n";
  65.     You are not allowed to view links. Register or Login( @links, $link );
  66. }
  67.  
  68. my $encontrados = You are not allowed to view links. Register or Login(@nombres) - 1;
  69.  
  70. for my $aca ( 0 .. $encontrados ) {
  71.     You are not allowed to view links. Register or Login "[Song $aca] : $nombres[$aca]\n";
  72.     You are not allowed to view links. Register or Login "[Data] : $datas[$aca]\n";
  73.     You are not allowed to view links. Register or Login "[Link] : $links[$aca]\n\n";
  74. }
  75.  
  76. You are not allowed to view links. Register or Login "\n[?] Number : ";
  77. You are not allowed to view links. Register or Login( my $number = <stdin> );
  78.  
  79. You are not allowed to view links. Register or Login "\n[+] Downloading ...\n";
  80.  
  81. now( $links[$number] );
  82.  
  83. You are not allowed to view links. Register or Login "\n[+] Finished\n";
  84.  
  85. copyright();
  86.  
  87. sub head {
  88.  
  89.     my @logo = (
  90.         "#=============================================#", "\n",
  91.         "#             MP3 Downloader 0.1              #", "\n",
  92.         "#---------------------------------------------#", "\n",
  93.         "# Written By Doddy H                          #", "\n",
  94.         "# Email: lepuke[at]hotmail[com]               #", "\n",
  95.         "# Website: doddyhackman.webcindario.com       #", "\n",
  96.         "#---------------------------------------------#", "\n",
  97.         "# The End ?                                   #", "\n",
  98.         "#=============================================#", "\n"
  99.     );
  100.  
  101.     You are not allowed to view links. Register or Login "\n";
  102.  
  103.     marquesina(@logo);
  104.  
  105.     You are not allowed to view links. Register or Login "\n\n";
  106.  
  107. }
  108.  
  109. sub copyright {
  110.  
  111.     my @fin = ("-- == (C) Doddy Hackman 2012 == --");
  112.  
  113.     You are not allowed to view links. Register or Login "\n\n";
  114.     marquesina(@fin);
  115.     You are not allowed to view links. Register or Login "\n\n";
  116.  
  117.     <stdin>;
  118.  
  119.     You are not allowed to view links. Register or Login(1);
  120.  
  121. }
  122.  
  123. sub marquesina {
  124.  
  125.     #Effect based in the exploits by Jafer Al Zidjali
  126.  
  127.     my @logo = @_;
  128.  
  129.     my $car = "|";
  130.  
  131.     for my $uno (@logo) {
  132.         for my $dos ( You are not allowed to view links. Register or Login //, $uno ) {
  133.  
  134.             $|++;
  135.  
  136.             if ( $car eq "|" ) {
  137.                 mostrar( "\b" . $dos . $car, "/" );
  138.             }
  139.             elsif ( $car eq "/" ) {
  140.                 mostrar( "\b" . $dos . $car, "-" );
  141.             }
  142.             elsif ( $car eq "-" ) {
  143.                 mostrar( "\b" . $dos . $car, "\\" );
  144.             }
  145.             else {
  146.                 mostrar( "\b" . $dos . $car, "|" );
  147.             }
  148.             usleep(40_000);
  149.         }
  150.         You are not allowed to view links. Register or Login "\b ";
  151.     }
  152.  
  153.     sub mostrar {
  154.         You are not allowed to view links. Register or Login $_[0];
  155.         $car = $_[1];
  156.     }
  157.  
  158. }
  159.  
  160. sub now {
  161.  
  162.     my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  163.  
  164.     if ( $path =~ /(.*)\/(.*)$/ ) {
  165.         my $file = $2;
  166.         if ( download( $_[0], $file ) ) {
  167.         }
  168.     }
  169. }
  170.  
  171. sub download {
  172.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  173.         if ( -f $_[1] ) {
  174.             You are not allowed to view links. Register or Login true;
  175.         }
  176.     }
  177. }
  178.  
  179. sub toma {
  180.     You are not allowed to view links. Register or Login $nave->get( $_[0] )->content;
  181. }
  182.  
  183. #The End ?
  184.  

Un ejemplo de uso

Código: You are not allowed to view links. Register or Login

#=============================================#
#             MP3 Downloader 0.1              #
#---------------------------------------------#
# Written By Doddy H                          #
# Email: lepuke[at]hotmail[com]               #
# Website: doddyhackman.webcindario.com       #
#---------------------------------------------#
# The End ?                                   #
#=============================================#


[?] Song : bones now

[+] Searching ...

[Song 0] : Discovery Now - bionic bones mp3
[Data] : 256 kbps 1:30 2.79 mb
[Link] : http://www.whro.org/home/html/podcasts/discoverynow/041408.mp3

[Song 1] : Sean Bones - 'Here Now' mp3
[Data] : 128 kbps 3:28 3.19 mb
[Link] : http://serve.castfire.com/audio/878039/sean-bones-here-now_2012-02-23-1
74939.128.mp3

[Song 2] : Discovery Now - bionic bones mp3
[Data] : 256 kbps  00:01:30 2.8 mb
[Link] : http://whro.org/home/html/podcasts/discoverynow/041408.mp3

[Song 3] : Sean Bones - Here Now mp3
[Data] : 5.02 mb
[Link] : http://www.hulkshare.com/dl/4t42l4kxi811/sean_bones_-_here_now.mp3

[Song 4] : Fuego Ft. Amara - Lo Que Quiero (Prod. By Bones, Now & Laterz) (Www.S
tiloCaro.Com) mp3
[Data] : 4.43 mb
[Link] : http://www.hulkshare.com/dl/w86wxq8bl0n4/fuego_ft._amara_-_lo_que_quier
o_%28prod._by_bones%2c_now_%26_laterz%29.mp3

[Song 5] : Sean Bones - Here Now mp3
[Data] : 160 kbps 3:27 3.95 mb
[Link] : http://myspoonful.com/wp-content/uploads/Sean-Bones-Here-Now.mp3

[Song 6] : Frankie Bones - Bonesbreaks Vol. 2 (B2) On The Beat Now-freestyle na
veia mp3
[Data] : 4:40 mins 6.41 mb
[Link] : http://dc203.4shared.com/img/564370108/97ff8470/dlink__2Fdownload_2FS4X
eLchH_3Ftsid_3D20121127-94941-8934f180/preview.mp3


[?] Number : 1

[+] Downloading ...

[+] Finished


-- == (C) Doddy Hackman 2012 == --


 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2854
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1325
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1474
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 970
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1266
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX