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] Scan Port 0.6

  • 0 Respuestas
  • 1016 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Mayo 19, 2012, 12:27:28 pm »
Nueva version Tk de un scanner de puertos que hice.

Una imagen



El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #ScanPort 0.6
  3. #Version Tk
  4. #Coded By Doddy H
  5.  
  6. use Tk;
  7. use IO::Socket;
  8.  
  9. my $color_fondo = "black";
  10. my $color_texto = "green";
  11.  
  12. if ( $^O eq 'MSWin32' ) {
  13.     use Win32::Console;
  14.     Win32::Console::Free();
  15. }
  16.  
  17. my $kax =
  18.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  19. $kax->geometry("422x130+20+20");
  20. $kax->resizable( 0, 0 );
  21. $kax->title("Scan Port 0.6 || Coded By Doddy H");
  22.  
  23. $kax->Label(
  24.     -text       => "Host : ",
  25.     -font       => "Impact",
  26.     -background => $color_fondo,
  27.     -foreground => $color_texto
  28. )->place( -x => 20, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 20 );
  29. my $hostx = $kax->Entry(
  30.     -width      => 30,
  31.     -background => $color_fondo,
  32.     -foreground => $color_texto
  33. )->place( -x => 68, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 26 );
  34. $kax->Label(
  35.     -text       => "From port : ",
  36.     -font       => "Impact",
  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 $startx = $kax->Entry(
  41.     -width      => 8,
  42.     -background => $color_fondo,
  43.     -foreground => $color_texto
  44. )->place( -x => 100, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 55 );
  45. $kax->Label(
  46.     -text       => "To : ",
  47.     -font       => "Impact",
  48.     -background => $color_fondo,
  49.     -foreground => $color_texto
  50. )->place( -x => 170, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 50 );
  51. my $endx = $kax->Entry(
  52.     -width      => 8,
  53.     -background => $color_fondo,
  54.     -foreground => $color_texto
  55. )->place( -x => 200, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 55 );
  56.  
  57. $kax->Label(
  58.     -text       => "Progress : ",
  59.     -font       => "Impact",
  60.     -background => $color_fondo,
  61.     -foreground => $color_texto
  62. )->place( -x => 20, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 84 );
  63. my $tatus = $kax->Entry(
  64.     -width      => 8,
  65.     -background => $color_fondo,
  66.     -foreground => $color_texto
  67. )->place( -x => 100, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 90 );
  68. $kax->Button(
  69.     -text             => "Fast",
  70.     -width            => 6,
  71.     -background       => $color_fondo,
  72.     -foreground       => $color_texto,
  73.     -activebackground => $color_texto,
  74.     -command          => \&scanuno
  75. )->place( -x => 158, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 88 );
  76. $kax->Button(
  77.     -text             => "Full",
  78.     -width            => 6,
  79.     -background       => $color_fondo,
  80.     -foreground       => $color_texto,
  81.     -activebackground => $color_texto,
  82.     -command          => \&scandos
  83. )->place( -x => 208, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 88 );
  84.  
  85. $kax->Label(
  86.     -text       => "Port Found",
  87.     -font       => "Impact",
  88.     -background => $color_fondo,
  89.     -foreground => $color_texto
  90. )->place( -x => 305, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 20 );
  91. my $porters = $kax->Listbox(
  92.     -width      => 20,
  93.     -height     => 4,
  94.     -background => $color_fondo,
  95.     -foreground => $color_texto
  96. )->place( -x => 280, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 50 );
  97.  
  98. MainLoop;
  99.  
  100. sub scanuno {
  101.  
  102.     my %ports = (
  103.         "21"   => "ftp",
  104.         "22"   => "ssh",
  105.         "25"   => "smtp",
  106.         "80"   => "http",
  107.         "110"  => "pop3",
  108.         "3306" => "mysql"
  109.     );
  110.  
  111.     $porters->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "0.0", "end" );
  112.     $tatus->configure( -text => " " );
  113.  
  114.     for my $port ( No tienes permisos para ver links. Registrate o Entra con tu cuenta %ports ) {
  115.         $kax->update;
  116.         $tatus->configure( -text => $port );
  117.         if (
  118.             new IO::Socket::INET(
  119.                 PeerAddr => $hostx->get,
  120.                 PeerPort => $port,
  121.                 Proto    => "tcp",
  122.                 Timeout  => 0.5
  123.             )
  124.           )
  125.         {
  126.             $porters->insert( "end", $port );
  127.         }
  128.     }
  129.     $tatus->configure( -text => " " );
  130. }
  131.  
  132. sub scandos {
  133.  
  134.     $porters->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "0.0", "end" );
  135.     $tatus->configure( -text => " " );
  136.  
  137.     for my $port ( $startx->get .. $endx->get ) {
  138.         $kax->update;
  139.         $tatus->configure( -text => $port );
  140.         if (
  141.             new IO::Socket::INET(
  142.                 PeerAddr => $hostx->get,
  143.                 PeerPort => $port,
  144.                 Proto    => "tcp",
  145.                 Timeout  => 0.5
  146.             )
  147.           )
  148.         {
  149.             $porters->insert( "end", $port );
  150.         }
  151.     }
  152.     $tatus->configure( -text => " " );
  153. }
  154.  
  155. # The End ?
  156.  
  157.  

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

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3161
Ú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: 1476
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1134
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear