comment
IRC Chat
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] Simple Downloader 0.1

  • 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
« en: Mayo 05, 2012, 09:18:24 pm »
Un simple script en perl para bajar archivos.

Código: Perl
  1. #!usr/bin/perl
  2. #Simple downloader 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6. use URI::Split No tienes permisos para ver links. Registrate o Entra con tu cuenta(uri_split);
  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(20);
  13.  
  14. head();
  15. unless ( $ARGV[0] ) {
  16.     sintax();
  17. }
  18. else {
  19.     now( $ARGV[0] );
  20. }
  21. copyright();
  22.  
  23. sub now {
  24.  
  25.     my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  26.  
  27.     if ( $path =~ /(.*)\/(.*)$/ ) {
  28.         my $file = $2;
  29.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Downloading ....\n";
  30.         if ( download( $_[0], $file ) ) {
  31.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] File downloaded\n";
  32.         }
  33.         else {
  34.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[-] Error\n";
  35.         }
  36.     }
  37. }
  38.  
  39. sub sintax {
  40.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Sintax : $0 <url>\n";
  41. }
  42.  
  43. sub head {
  44.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n-- == Simple Downloader == --\n\n";
  45. }
  46.  
  47. sub copyright {
  48.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n(C) Doddy Hackman 2012\n\n";
  49.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  50. }
  51.  
  52. sub download {
  53.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  54.         if ( -f $_[1] ) {
  55.             No tienes permisos para ver links. Registrate o Entra con tu cuenta true;
  56.         }
  57.     }
  58. }
  59.  
  60. #The End ?
  61.  
  62.  
« Última modificación: Marzo 14, 2015, 10:20:54 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3238
Ú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: 1515
Ú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: 1667
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

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

Iniciado por BigBear

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