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

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


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


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] AnonFiles Uploader
« en: 14 Mayo 2013, 00:13 am »

Traduccion a Perl del programa hecho por $DoC llamado AnonFiles Uploader hecho para subir archivos a la pagina AnonFiles.

Código
  1. #!usr/bin/perl
  2. #AnonFiles Uploader
  3. #Original author: $ DoC
  4. #Translations made by Doddy H
  5. #
  6. #ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
  7. #
  8.  
  9. use LWP::UserAgent;
  10.  
  11. my $nave = LWP::UserAgent->new;
  12. $nave->agent(
  13. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  14. );
  15. $nave->timeout(5);
  16.  
  17. unless ( $ARGV[0] ) {
  18.    print "\n[+] Sintax : $0 <file>\n";
  19. }
  20. else {
  21.  
  22.    print "\n[+] Uploading ...\n";
  23.  
  24.    my $code = $nave->post(
  25.        "https://anonfiles.com/api?plain",
  26.        Content_Type => "form-data",
  27.        Content      => [ file => [ $ARGV[0] ] ]
  28.    )->content;
  29.  
  30.    if ( $code =~ /https:\/\/anonfiles\.com\/file\// ) {
  31.        print "\n[+] Link : " . $code . "\n";
  32.    }
  33.    else {
  34.        print "\n[-] Error\n";
  35.    }
  36.  
  37. }
  38.  
  39. #The End ?
  40.  


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Uploader?
Programación Visual Basic
Gogeto 5 3,509 Último mensaje 22 Febrero 2009, 18:17 pm
por Gogeto
Bypassear uploader « 1 2 »
Nivel Web
Nork 16 9,214 Último mensaje 9 Mayo 2009, 01:10 am
por YST
Uploader de elhacker?
Dudas Generales
.:UND3R:. 6 4,387 Último mensaje 12 Julio 2011, 00:18 am
por raul338
[Perl] PasteBin Uploader
Scripting
BigBear 0 2,393 Último mensaje 8 Octubre 2011, 16:55 pm
por BigBear
[Perl] Imageshack Uploader 0.1
Scripting
BigBear 0 1,727 Último mensaje 14 Mayo 2013, 20:11 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines