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] FTP Scan

  • 2 Respuestas
  • 1277 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Agosto 19, 2011, 11:30:16 pm »
Bueno este es un simple script para scannear paginas en busca de un servidor ftp con el usuario anonymous

El codigo es el siguiente

Código: Perl
  1. #!usr/bin/perl
  2. #FTP Scan (C) Doddy Hackman 2011
  3. #Check login anonymous
  4.  
  5. use Net::FTP;
  6. use URI::Split You are not allowed to view links. Register or Login(uri_split);
  7.  
  8. head();
  9. if($ARGV[0]) {
  10. start($ARGV[0]);
  11. } else {
  12. sintax();
  13. }
  14. copyright();
  15.  
  16. sub start {
  17.  
  18. unless (-f $_[0]) {
  19. You are not allowed to view links. Register or Login "\n\n[-] File Not Found\n\n";
  20. copyright();
  21. }
  22.  
  23. You are not allowed to view links. Register or Login "\n[+] Opening file\n\n";
  24.  
  25. You are not allowed to view links. Register or Login(FILE,$_[0]);
  26. my @webs = <FILE>;
  27. You are not allowed to view links. Register or Login FILE;
  28.  
  29. You are not allowed to view links. Register or Login "[+] Webs found : ".You are not allowed to view links. Register or Login(@webs)."\n\n\n";
  30.  
  31. for my $web(@webs) {
  32. my $host = comer($web);
  33. if ($ftp = Net::FTP->new($host, Debug => 0)) {
  34. if ($ftp->login("anonymous","test@hotmail.com")) {
  35. You are not allowed to view links. Register or Login "[+] Anonymous Found : ".$host."\n";
  36. }}
  37. }
  38. You are not allowed to view links. Register or Login "\n\n[+] Scan Finished\n";
  39. }
  40.  
  41. sub comer {
  42. my ($scheme, $auth, $path, $query, $frag)  = uri_split($_[0]);
  43. You are not allowed to view links. Register or Login $auth;
  44. }
  45.  
  46. sub sintax {
  47. You are not allowed to view links. Register or Login "\n[+] sintax : $0 <file>\n";
  48. }
  49.  
  50. sub head {
  51. You are not allowed to view links. Register or Login You are not allowed to view links. Register or Login(
  52.  
  53.  
  54.  
  55.  
  56.  @@@@@ @@@@@  @@@@@      @@@    @@@@    @    @    @
  57.  @       @    @    @    @   @  @    @   @    @@   @
  58.  @       @    @    @    @      @       @ @   @@   @
  59.  @       @    @    @    @      @       @ @   @ @  @
  60.  @@@@    @    @@@@@      @@@   @      @   @  @ @  @
  61.  @       @    @             @  @      @   @  @  @ @
  62.  @       @    @             @  @      @@@@@  @   @@
  63.  @       @    @         @   @  @    @@     @ @   @@
  64.  @       @    @          @@@    @@@@ @     @ @    @
  65.  
  66.  
  67.  
  68.  
  69. );
  70. }
  71.  
  72. sub copyright {
  73. You are not allowed to view links. Register or Login "\n\n== --(C) Doddy Hackman 2011 -- ==\n\n";
  74. You are not allowed to view links. Register or Login(1);
  75. }
  76.  
  77. sub repes {
  78. foreach $test(@_) {
  79. You are not allowed to view links. Register or Login @limpio,$test unless $repe{$test}++;
  80. }
  81. You are not allowed to view links. Register or Login @limpio;
  82. }
  83.  
  84. # ¿ The End ?
  85.  

« Última modificación: Marzo 14, 2015, 10:24:10 am por Expermicid »

Desconectado Worldwar Web

  • *
  • Underc0der
  • Mensajes: 1
  • Actividad:
    0%
  • Reputación 0
  • <Anon>['WWW']</Anon>
    • Ver Perfil
    • Facebook
    • Email
« Respuesta #1 en: Octubre 26, 2012, 07:36:09 pm »
Hola Doddy, ya ejecute el script pero no sé como correrlo... Donde se supone que ingreso el Dork o qué?
Probablemente moriré antes de cumplir los 25 años, pero viviré la vida de la forma en la que yo quería vivirla y seguiré en la lucha.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« Respuesta #2 en: Noviembre 03, 2012, 11:49:27 am »
no es con google , es con un archivo que tenga los links de las paginas a scanear.

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1042
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1551
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d