elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Perl] Imageshack Uploader 0.1
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Perl] Imageshack Uploader 0.1  (Leído 1,724 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] Imageshack Uploader 0.1
« en: 14 Mayo 2013, 20:11 pm »

Un simple script para subir imagenes a Imageshack.

El codigo :

Código
  1. #!usr/bin/perl
  2. #Imageshack Uploader 0.1
  3. #Coded By Doddy H
  4. #ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
  5.  
  6. use LWP::UserAgent;
  7.  
  8. my $nave = LWP::UserAgent->new;
  9. $nave->agent(
  10. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  11. );
  12. $nave->timeout(5);
  13.  
  14. head();
  15.  
  16. unless ( $ARGV[0] ) {
  17.    print "\n[+] Sintax : $0 <image>\n";
  18. }
  19. else {
  20.  
  21.    my $your_key = "YOURKEY";    #Your API Key
  22.  
  23.    print "\n[+] Uploading ...\n";
  24.  
  25.    my $code = $nave->post(
  26.        "https://post.imageshack.us/upload_api.php",
  27.        Content_Type => "form-data",
  28.        Content      => [
  29.            key        => $your_key,
  30.            fileupload => [ $ARGV[0] ],
  31.            format     => "json"
  32.        ]
  33.    )->content;
  34.  
  35.    if ( $code =~ /"image_link":"(.*?)"/ ) {
  36.        print "\n[+] Link : " . $1 . "\n";
  37.    }
  38.    else {
  39.        print "\n[-] Error\n";
  40.    }
  41. }
  42.  
  43. copyright();
  44.  
  45. sub head {
  46.    print "\n-- == Imageshack Uploader 0.1 == --\n";
  47. }
  48.  
  49. sub copyright {
  50.    print "\n[+] Written By Doddy H\n";
  51. }
  52.  
  53. #The End ?
  54.  


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[APORTE] [RUBY] Shack (Imageshack Uploader)
Scripting
Eleкtro 0 1,840 Último mensaje 19 Marzo 2012, 15:18 pm
por Eleкtro
[APORTE] [BATCH] Shack (Imageshack Uploader)
Scripting
Eleкtro 5 4,203 Último mensaje 18 Octubre 2012, 04:34 am
por Eleкtro
[RUBY] [WINDOWS] IShack v1.4 (ImagesHack Uploader) ...(24/10/2012)
Scripting
Eleкtro 6 5,779 Último mensaje 27 Octubre 2012, 00:33 am
por Garcad
[Delphi] ImageShack Uploader 0.1
Programación General
BigBear 2 2,023 Último mensaje 12 Octubre 2013, 01:43 am
por BigBear
[Delphi] ImageShack Uploader 0.3
Programación General
BigBear 0 1,651 Último mensaje 2 Mayo 2014, 23:01 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines