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] Find paths

  • 0 Respuestas
  • 772 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 09:38:44 pm »
Un simple scanner para buscar directorios sin index en
la pagina que quieran

Código: Perl
  1. #!usr/bin/perl
  2. #Find Paths
  3. #(C) Doddy Hackman 2011
  4.  
  5. use LWP::UserAgent;
  6. use HTML::LinkExtor;
  7. use URI::Split You are not allowed to view links. Register or Login(uri_split);
  8.  
  9. my $nave = LWP::UserAgent->new;
  10. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  11. $nave->timeout(5);
  12.  
  13. head();
  14. unless($ARGV[0]) {
  15. You are not allowed to view links. Register or Login "\n\n[+] Sintax : $0 <web>\n\n";
  16. } else {
  17. scan($ARGV[0]);
  18. }
  19. copyright();
  20.  
  21. sub scan {
  22.  
  23. You are not allowed to view links. Register or Login "\n[+] Find paths in $_[0]\n\n\n";
  24. my @urls = repes(get_links(toma($_[0])));
  25. for $url(@urls) {
  26. my $web = $url;
  27. my ($scheme, $auth, $path, $query, $frag)  = uri_split($url);
  28. if ($_[0] =~/$auth/ or $auth eq "") {
  29. if ($path=~/(.*)\/(.*)\.(.*)$/) {
  30. my $borrar = $2.".".$3;
  31. if ($web=~/(.*)$borrar/) {
  32. my $co = $1;
  33. unless ($co=~/$auth/) {
  34. $co = $_[0].$co;
  35. }
  36. $code = toma($co);
  37. if ($code=~/Index Of/ig) {
  38. You are not allowed to view links. Register or Login "[Link] : ".$co."\n";
  39. }}}}}}
  40.  
  41. sub get_links {
  42.  
  43. $test = HTML::LinkExtor->new(\&agarrar)->parse($_[0]);
  44. You are not allowed to view links. Register or Login @links;
  45.  
  46. sub agarrar {
  47. my ($a,%b) = @_;
  48. You are not allowed to view links. Register or Login(@links,You are not allowed to view links. Register or Login %b);
  49. }
  50. }
  51.  
  52. sub repes {
  53. foreach $test(@_) {
  54. You are not allowed to view links. Register or Login @limpio,$test unless $repe{$test}++;
  55. }
  56. You are not allowed to view links. Register or Login @limpio;
  57. }
  58.  
  59. sub head {
  60. You are not allowed to view links. Register or Login "\n\n-- == Find Paths == --\n\n";
  61. }
  62.  
  63. sub copyright {
  64. You are not allowed to view links. Register or Login "\n\n(C) Doddy Hackman 2011\n\n";
  65. You are not allowed to view links. Register or Login(1);
  66. }
  67.  
  68. sub toma {
  69. You are not allowed to view links. Register or Login $nave->get($_[0])->content;
  70. }
  71.  
  72. sub tomar {
  73. my ($web,$var) = @_;
  74. You are not allowed to view links. Register or Login $nave->post($web,[%{$var}])->content;
  75. }
  76.  
  77. #Thanks to explorer (PerlEnEspañol)
  78. # ¿ The End ?
  79.  
« Última modificación: Marzo 14, 2015, 09:58:07 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1094
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1329
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX