3. [Perl] AnonFiles Uploader
Páginas: [1]   Ir Abajo
« anterior próximo »

[Perl] AnonFiles Uploader

  • 0 Respuestas
  • 1206 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 You are not allowed to view links. Register or Login 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.     You are not allowed to view links. Register or Login "\n<ul class="bbc_list"><li type="square"> Sintax : $0 <file>\n";[/li][/list]
  19. }
  20. else {
  21.  
  22.     You are not allowed to view links. Register or Login "\n</li><li type="square"> Uploading ...\n";[/li][/list]
  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.         You are not allowed to view links. Register or Login "\n</li><li type="square"> Link : " . $code . "\n";[/li][/list]
  32.     }
  33.     else {
  34.         You are not allowed to view links. Register or Login "\n[-] Error\n";
  35.     }
  36.  
  37. }
  38.  
  39. #The End ?
  40.  
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 5228 		Ú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: 3440 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
Funciones más utilizadas en la programación de un perl script

Iniciado por Dragora

 Respuestas: 0
Vistas: 4235 		Último mensaje Enero 06, 2019, 01:01:06 am
por Dragora
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

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

Iniciado por BigBear

 Respuestas: 0
Vistas: 2421 		Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear