elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Curso de programación en Perl
0 Usuarios y 2 Visitantes están viendo este tema.
Páginas: 1 2 3 [4] Ir Abajo Respuesta Imprimir
Autor Tema: Curso de programación en Perl  (Leído 13,588 veces)
Erik#


Desconectado Desconectado

Mensajes: 1.138


Gundam


Ver Perfil
Re: Curso de programación en Perl
« Respuesta #30 en: 7 Enero 2009, 13:42 pm »

29.Escaner de puertos

Código
  1. #!/usr/bin/perl
  2. use IO::Socket;
  3. print "IP o HOST: ";
  4. $iphost=<STDIN>;
  5. for($puertos=21;$puertos<=270;$puertos++)
  6.   {
  7. $sock = IO::Socket::INET->new(PeerAddr, "$iphost", PeerPort, "$puertos",   Proto, 'tcp');
  8. if ($sock) {      
  9.    print "$puertos Abierto\n";
  10.     } else {  
  11.     print "$puertos Cerrado\n";
  12.     }
  13.   }


En línea

Erik#


Desconectado Desconectado

Mensajes: 1.138


Gundam


Ver Perfil
Re: Curso de programación en Perl
« Respuesta #31 en: 7 Enero 2009, 21:00 pm »

30.Escaner de puertos de X a Y

Código
  1. #!/usr/bin/perl
  2. use IO::Socket;
  3. print "IP o HOST: ";
  4. $iphost=<STDIN>;
  5. print "Puerto de inicio: ";
  6. $puertoi = <STDIN>;
  7. print "Puerto final: ";
  8. $puertof = <STDIN>;
  9. for($puerto = $puertoi;$puerto<$puertof;$puerto++)
  10.   {
  11. $sock = IO::Socket::INET->new(PeerAddr, "$iphost", PeerPort, "$puerto",   Proto, 'tcp');
  12. if ($sock) {      
  13.    print "El puerto $puerto esta abierto\n";
  14.     } else {  
  15.     print "El puerto $puerto esta cerrado\n";
  16.     }
  17.   }


En línea

Páginas: 1 2 3 [4] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
C/c++ curso de programacion (2ª edic)(+ CD-rom), falta CD
Programación C/C++
modo_senin 3 4,180 Último mensaje 30 Diciembre 2011, 16:50 pm
por 3mp3z@ndo
Curso de Programación de aplicaciones en Android
Android
free-articles 1 2,473 Último mensaje 9 Mayo 2013, 00:23 am
por CodeSource
[Duda] ¿Algún curso/manual de Perl?
Scripting
DeMoNcRaZy 5 2,024 Último mensaje 27 Junio 2015, 23:21 pm
por explorer
Curso de Programación Java con Grails
Java
usernovato 1 1,845 Último mensaje 27 Octubre 2015, 00:09 am
por jsuperh
[CURSO] Programación en Java « 1 2 »
Java
3n31ch 10 14,183 Último mensaje 28 Junio 2017, 08:36 am
por 3n31ch
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines