Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Sacar links mp3 de Goear 2013
#1
Buenas gente esta ves podran descargar o poner la musica directamente de goear en sus webs(para los que usan buscadores mp3, etc).
El codigo es sencillo y esta en perl, para usarlo tienen que guardarlo como goear.cgi en la carpeta "cgi-bin" y darle permisos 755.
la forma de usarlo seria :


http://www.tuweb.com/cgi-bin/goear.cgi?id= id del mp3 de goear.
Aqui el Code:
Código PHP:
#!/usr/local/bin/perl

#*********************************************#
#*********************************************#
#****** @author:  Zentido (Franco Salcedo)
#****** @contact: [email protected]
#*********************************************#
#*********************************************#

# Para leer http
use LWP::UserAgent;
use 
HTTP::Request;

use 
strict;
use 
CGI::Carp qw(fatalsToBrowser);

use 
XML::Simple;
use 
Data::Dumper;

# Para obtener los gets xd
my(%Variables); #Iniciamos el hash
#Leemos el query enviado
my $buffer $ENV{'QUERY_STRING'};

#Dividimos cada variable
my @pairs split(/&/, $buffer);

foreach 
my $pair (@pairs) {
    
#Separamos la variable de su valor
    
my ($name$value) = split(/=/, $pair);

    
#Decodificamos
    
$name =~ tr/+/ /;
    
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C"hex($1))/eg;
    
$value =~ tr/+/ /;
    
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C"hex($1))/eg;

    
#Asignamos una nueva llave al valor
    
$Variables{$name} = $value;
}


my $ua LWP::UserAgent->new;
$ua->agent("Shockwave Flash");

my $url         "http://www.goear.com/tracker758.php?f=$Variables{'id'}";
my $req         HTTP::Request->new(GET => $urlHTTP::Headers->new("referer" => "http://www.goear.com/files/localplayer.swf?file=$Variables{'id'}","x-flash-version" => "9,0,45,0""Cache-Control" => "no-cache"));
my $response     $ua->request($req);
my $content     $response->content();
my $xml         XMLin($content);


print 
"Content-type: text/html\n\n";

my $xml XMLin($content);

my $mp3     $xml->{song}->{path};
my $tema     $xml->{song}->{title};
my $artista $xml->{song}->{artist};

print 
"$mp3|$artista $tema";

#print Dumper($xml);   <<<< como print_r 

Espero k sea de Gran Ayuda para todos..!!
#2
muy útil amigo, me servirá
#3
Entre este y groovedown tengo toda la discográfica que quiero
#4
Este script me resulta muy util y andaba pensando, seria posible modificar el script para que "autoescanee" goear y cree una base de datos propia del sitio? Si fuera posible tendriamos un sitio de musica completisimo en muy pocos minutos
#5
Pues mas que nada antes de crear otra base de datos creo que mejor seria ver si se puede utilizar el motor de búsqueda de Goear y poder sacar los resultados de su base de datos. Y después agregar la opción de Descarga utilizando éste script.

Pero creo que eso tendría algo de ilegal. Sonrisa
WWW
#6
+Gracias
Me ha gustado, quizá lo utilice más adelante. ¿Podrías dar alguna demo?
#7
Genial :3 yo lo tengo en PHP, pero probaré con CGI Gran sonrisa
#8
gracias estoy me puede se util
WWW


Posibles temas similares...
Tema Autor Respuestas Vistas Último mensaje
  Obtener datos de goEar con PHP (Fácil) torgar22 3 815 16-04-2013, 05:37 AM
Último mensaje: Iro
  Links automaticamente ? videox 6 627 13-04-2013, 11:09 PM
Último mensaje: Tilinga
  10 tendencias del diseño web para el 2013 andrex.nava 8 920 12-03-2013, 08:37 AM
Último mensaje: Mari0x
  Como forzar la descarga con el Script para goEar [PHP] torgar22 3 1,100 04-03-2013, 02:32 AM
Último mensaje: KeviNxDTM
  Jalar de Goear thedandy 1 380 05-02-2013, 11:22 PM
Último mensaje: Postupelis
  Script sacar Imagenes de Google torgar22 0 1,221 13-01-2013, 05:29 PM
Último mensaje: torgar22
  Sistema de Videos Youtube ClipBucket 2013 jhanzito 1 1,364 07-01-2013, 05:24 PM
Último mensaje: Mtraker
  creacion de links JNeutron 10 1,077 23-11-2012, 11:30 PM
Último mensaje: romeho
  Duda con links dBer 4 913 08-04-2012, 10:12 PM
Último mensaje: papi
  Como evito indexar links inexistentes de mi web..? shackur 24 3,511 11-10-2011, 09:18 PM
Último mensaje: papi



Usuarios navegando en este tema: 1 invitado(s)