help_outline
Ayudanos!
play_arrow
  3. [Perl] AnonFiles Uploader
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

[Perl] AnonFiles Uploader

  • 0 Respuestas
  • 905 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] AnonFiles Uploader

« en: Mayo 13, 2013, 07:13:19 pm »
Traduccion a Perl del programa hecho por $DoC llamado AnonFiles Uploader hecho para subir archivos a la pagina AnonFiles.

Código: Perl
  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
« anterior próximo »
 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 3339 		Ú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: 1602 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

 Respuestas: 0
Vistas: 1224 		Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

 Respuestas: 0
Vistas: 1365 		Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

 Respuestas: 0
Vistas: 1385 		Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear