• Publicidad

Acceso a MediaFire con Perl

¿Estás desarrollando un proyecto, o piensas hacerlo? Pon aquí tu propuesta, lo más seguro es que alguien esté interesado en ayudarte.

Re: Acceso a MediaFire con Perl

Notapor explorer » 2013-01-16 11:03 @502

A mí sí que me funciona lo del SHA1:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl
  2. use v5.14;
  3.  
  4. use Digest::SHA1 'sha1_hex';
  5.  
  6. my $correo  = '[email protected]';
  7. my $contra  = 'azuquecadehenares';
  8. my $app_id  = '32063';
  9. my $api_key = '5606dudsfa60xy0f7p60oac7b31tpi8bethde701';
  10.  
  11. say sha1_hex($correo . $contra . $app_id . $api_key);  # a5bcdc99ef4a8b4789592e10b2c6c5db9060655e
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Con respecto a los otros problemas, de que no funciona la subida de archivos, el error principal que veo es que a los datos que lees desde la entrada del teclado, no les quitas el carácter de nueva línea.

Debe ser así (ejemplo para solo un dato):

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. print "Input the SHA1 signature\n";
  2. $signature = <STDIN>;
  3. chomp $signature;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Publicidad

Re: Acceso a MediaFire con Perl

Notapor n3td1srupt » 2013-01-16 22:44 @989

Yo intenté hacer login con la signature devuelta SHA1 hex, pero dice que ha habido un error, por lo tanto pensé en que SHA1 tiene diferentes formas de darte los datos... no sé... ya veré si hay algo ahí mal. El último carácter de signature, vale, quitaré el "\n" con chop(), sin embargo, ni uno ni otro arregla el problema para subir el archivo.

Estoy viendo a ver qué puede ser, pero por ahora no tengo ni idea...

Salu2
n3td1srupt
Perlero nuevo
Perlero nuevo
 
Mensajes: 16
Registrado: 2012-10-28 15:13 @675

Re: Acceso a MediaFire con Perl

Notapor explorer » 2013-01-17 09:57 @456

Debes quitar los retorno de carro de todos los datos que leas por teclado o desde archivos de texto. Su presencia altera, y mucho, la construcción de la URL, además de que la SHA1 ya no sería correcta.

Y mejor usar chomp(), en lugar de chop().
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Acceso a MediaFire con Perl

Notapor n3td1srupt » 2013-01-19 18:35 @816

explorer escribiste:Debes quitar los retorno de carro de todos los datos que leas por teclado o desde archivos de texto. Su presencia altera, y mucho, la construcción de la URL, además de que la SHA1 ya no sería correcta.

Y mejor usar chomp(), en lugar de chop().



Lo siento, explorer, pero nada,lo que he hecho es enviar una pregunta al grupo de ayuda de MediaFire por que se me hace que lo de la API de upload, o tiene algún problema, o no está disponible o algo, pero a mi me parece o creo que es la API de upload de MediaFire donde anda el problema. En cualquier caso seguiré escribiendo código para otras opciones y el upload pues ya veré si encuentro la forma de hacerlo.

Muchas gracias :) :)

Salu2
n3td1srupt
Perlero nuevo
Perlero nuevo
 
Mensajes: 16
Registrado: 2012-10-28 15:13 @675

Anterior

Volver a Proyectos

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado