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

  • 0 Respuestas
  • 1151 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:52 pm »
Version Tk de un programa para buscar patrones en cualquier directorio.

Una imagen



El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #Finder Text 0.2
  3. #Version Tk
  4. #Coded By Doddy H
  5.  
  6. use Tk;
  7.  
  8. my $color_fondo = "black";
  9. my $color_texto = "green";
  10.  
  11. #if ($^O eq 'MSWin32') {
  12. #use Win32::Console;
  13. #Win32::Console::Free();
  14. #}
  15.  
  16. my $vent =
  17.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  18. $vent->title("Finder Text 0.2 (C) Doddy Hackman 2012");
  19. $vent->geometry("395x440+20+20");
  20. $vent->resizable( 0, 0 );
  21.  
  22. $vent->Label(
  23.     -text       => "Directory : ",
  24.     -font       => "Impact1",
  25.     -background => $color_fondo,
  26.     -foreground => $color_texto
  27. )->place( -x => 20, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 20 );
  28. my $dir = $vent->Entry(
  29.     -width      => 40,
  30.     -background => $color_fondo,
  31.     -foreground => $color_texto
  32. )->place( -x => 100, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 23 );
  33.  
  34. $vent->Label(
  35.     -text       => "String : ",
  36.     -font       => "Impact1",
  37.     -background => $color_fondo,
  38.     -foreground => $color_texto
  39. )->place( -x => 20, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 50 );
  40. my $string = $vent->Entry(
  41.     -width      => 30,
  42.     -background => $color_fondo,
  43.     -foreground => $color_texto
  44. )->place( -x => 80, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 53 );
  45.  
  46. $vent->Button(
  47.     -text             => "Find",
  48.     -command          => \&now,
  49.     -width            => 11,
  50.     -background       => $color_fondo,
  51.     -foreground       => $color_texto,
  52.     -activebackground => $color_texto
  53. )->place( -x => 271, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 53 );
  54.  
  55. $vent->Label(
  56.     -text       => "Files Found",
  57.     -font       => "Impact",
  58.     -background => $color_fondo,
  59.     -foreground => $color_texto
  60. )->place( -x => 150, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 100 );
  61. my $listas = $vent->Listbox(
  62.     -width      => 50,
  63.     -height     => 15,
  64.     -background => $color_fondo,
  65.     -foreground => $color_texto
  66. )->place( -x => 45, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 150 );
  67.  
  68. $vent->Label(
  69.     -text       => "Status : ",
  70.     -font       => "Impact1",
  71.     -background => $color_fondo,
  72.     -foreground => $color_texto
  73. )->place( -x => 70, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 390 );
  74. my $tatus = $vent->Entry(
  75.     -width      => 30,
  76.     -background => $color_fondo,
  77.     -foreground => $color_texto
  78. )->place( -x => 130, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 393 );
  79.  
  80. $listas->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "<Double-1>", [ \&loader ] );
  81.  
  82. MainLoop;
  83.  
  84. sub loader {
  85.     $listasx = $listas->curselection();
  86.     for my $id (@$listasx) {
  87.         my $linkar = $listas->get($id);
  88.         No tienes permisos para ver links. Registrate o Entra con tu cuenta("$linkar");
  89.     }
  90. }
  91.  
  92. sub now {
  93.     $listas->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "0.0", "end" );
  94.     goodbye( $dir->get, $string->get );
  95.     $tatus->configure( -text => " " );
  96. }
  97.  
  98. sub verificar {
  99.  
  100.     my ( $file, $text ) = @_;
  101.     my $numero_linea = 0;
  102.  
  103.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( FILE, $file );
  104.     my @words = <FILE>;
  105.     No tienes permisos para ver links. Registrate o Entra con tu cuenta FILE;
  106.  
  107.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @words;
  108.  
  109.     for my $linea (@words) {
  110.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $linea;
  111.         $numero_linea++;
  112.         if ( $linea =~ /$text/ ) {
  113.             $listas->insert( "end", $file );
  114.         }
  115.     }
  116. }
  117.  
  118. sub goodbye {
  119.     No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR, $_[0];
  120.     my @archivos = No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR;
  121.     No tienes permisos para ver links. Registrate o Entra con tu cuenta DIR;
  122.  
  123.     for (@archivos) {
  124.         next if $_ eq "." or $_ eq "..";
  125.         my $fichero = $_[0] . "/" . $_;
  126.  
  127.         if ( -f $fichero ) {
  128.             $vent->update;
  129.             $tatus->configure( -text => $fichero );
  130.             verificar( $fichero, $_[1] );
  131.         }
  132.  
  133.         if ( -d $fichero ) {
  134.             &goodbye( $fichero, $_[1] );
  135.         }
  136.     }
  137. }
  138.  
  139. #The End ?
  140.  
  141.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1318
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1668
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Search in google for scan SQLI

Iniciado por BigBear

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