[Perl] Simple Downloader 0.1

  • 0 Respuestas
  • 1349 Vistas

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

Desconectado BigBear

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

[Perl] Simple Downloader 0.1

  • 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 qw(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.         print "\n<ul class="bbc_list"><li type="square"> Downloading ....\n";[/li][/list]
  30.         if ( download( $_[0], $file ) ) {
  31.             print "\n</li><li type="square"> File downloaded\n";[/li][/list]
  32.         }
  33.         else {
  34.             print "\n[-] Error\n";
  35.         }
  36.     }
  37. }
  38.  
  39. sub sintax {
  40.     print "\n</li><li type="square"> Sintax : $0 <url>\n";[/li][/list]
  41. }
  42.  
  43. sub head {
  44.     print "\n-- == Simple Downloader == --\n\n";
  45. }
  46.  
  47. sub copyright {
  48.     print "\n\n(C) Doddy Hackman 2012\n\n";
  49.     exit(1);
  50. }
  51.  
  52. sub download {
  53.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  54.         if ( -f $_[1] ) {
  55.             return true;
  56.         }
  57.     }
  58. }
  59.  
  60. #The End ?
  61.  
  62.  
« Última modificación: Marzo 14, 2015, 10:20:54 am por Expermicid »

 

Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 5327
Ú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: 3472
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 2444
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 2606
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

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