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] Finder Text 0.2

  • 0 Respuestas
  • 998 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Junio 23, 2012, 01:10:03 pm »
Simple script para buscar patrones en cualquier directorio.

Código: Perl
  1. #!usr/bin/perl
  2. #FinderText 0.2
  3. #Coded by Doddy H
  4.  
  5. head();
  6. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Directory : ";
  7. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $dir = <stdin> );
  8. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] String : ";
  9. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $string = <stdin> );
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Searching text\n\n";
  11. goodbye( $dir, $string );
  12. copyright();
  13.  
  14. sub verificar {
  15.  
  16.     my ( $file, $text ) = @_;
  17.     my $numero_linea = 0;
  18.  
  19.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( FILE, $file );
  20.     my @words = <FILE>;
  21.     No tienes permisos para ver links. Registrate o Entra con tu cuenta FILE;
  22.  
  23.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @words;
  24.  
  25.     for my $linea (@words) {
  26.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $linea;
  27.         $numero_linea++;
  28.         if ( $linea =~ /$text/ ) {
  29.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Text $text Found in file $file in line $numero_linea\n";
  30.         }
  31.     }
  32. }
  33.  
  34. sub goodbye {
  35.     No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR, $_[0];
  36.     my @archivos = No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR;
  37.     No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR;
  38.  
  39.     for (@archivos) {
  40.         next if $_ eq "." or $_ eq "..";
  41.         my $fichero = $_[0] . "/" . $_;
  42.  
  43.         if ( -f $fichero ) {
  44.             verificar( $fichero, $_[1] );
  45.         }
  46.  
  47.         if ( -d $fichero ) {
  48.             &goodbye( $fichero, $_[1] );
  49.         }
  50.     }
  51. }
  52.  
  53. sub head {
  54.  
  55.     No tienes permisos para ver links. Registrate o Entra con tu cuenta No tienes permisos para ver links. Registrate o Entra con tu cuenta(
  56.  
  57.  
  58.  @@@@@ @           @             @@@@@              
  59.  @                 @               @               @
  60.  @                 @               @               @
  61.  @     @ @ @@   @@@@  @@@  @@      @     @@@  @  @ @@
  62.  @@@@  @ @@  @ @   @ @   @ @       @    @   @ @  @ @
  63.  @     @ @   @ @   @ @@@@@ @       @    @@@@@  @@  @
  64.  @     @ @   @ @   @ @     @       @    @      @@  @
  65.  @     @ @   @ @   @ @   @ @       @    @   @ @  @ @
  66.  @     @ @   @  @@@@  @@@  @       @     @@@  @  @  @
  67.  
  68.  
  69.  
  70. );
  71.  
  72. }
  73.  
  74. sub copyright {
  75.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n-- == Doddy Hackman 2012 == --\n\n";
  76.     <stdin>;
  77.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  78. }
  79.  
  80. # The End ?
  81.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1311
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

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

Iniciado por BigBear

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