send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] AnonFiles Uploader

  • 0 Respuestas
  • 822 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« 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[+] Sintax : $0 <file>\n";
  19. }
  20. else {
  21.  
  22.     You are not allowed to view links. Register or Login "\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.         You are not allowed to view links. Register or Login "\n[+] Link : " . $code . "\n";
  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.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2857
Ú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: 1328
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1474
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1266
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 975
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear