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] Scan Port By Doddy H

  • 0 Respuestas
  • 888 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:49:34 pm »
HOla a todos  aca les traigo un simple scanner de puertos
hecho en perl

Código: Perl
  1. #!usr/bin/perl
  2. #Scan Port
  3. #(C) Doddy Hackman 2011
  4. #Creditos
  5.  
  6. use IO::Socket;
  7.  
  8. head();
  9. unless($ARGV[0]) {
  10. You are not allowed to view links. Register or Login "\n\n[sintax] : ".$0." <ip> \n\n";
  11. } else {
  12. scan($ARGV[0]);
  13. }
  14. copyright();
  15.  
  16. sub scan {
  17.  
  18. my %ports = ("21"=>"ftp",
  19. "22"=>"ssh",
  20. "25"=>"smtp",
  21. "80"=>"http",
  22. "110"=>"pop3",
  23. "3306"=>"mysql"
  24. );
  25.  
  26.  
  27. You are not allowed to view links. Register or Login "\n[+] Scanning $_[0]\n\n\n";
  28.  
  29. for my $port(You are not allowed to view links. Register or Login %ports) {
  30.  
  31. if (new IO::Socket::INET(PeerAddr => $_[0],PeerPort => $port,Proto => "tcp",Timeout  => 0.5)) {
  32. You are not allowed to view links. Register or Login "[Port] : ".$port." [Service] : ".$ports{$port}."\n";
  33. }
  34. }
  35.  
  36. }
  37.  
  38. sub head {
  39. You are not allowed to view links. Register or Login "\n\n-- == Scan Port == --\n\n";
  40. }
  41.  
  42. sub copyright {
  43. You are not allowed to view links. Register or Login "\n\n(C) Doddy Hackman 2011\n\n";
  44. You are not allowed to view links. Register or Login(1);
  45. }
  46.  
  47.  

Ejemplo de uso

Código: You are not allowed to view links. Register or Login
perl scan.pl localhost
« Última modificación: Julio 17, 2011, 03:45:19 am por Sthefano02 »

 

¿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: 1409
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1095
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1236
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

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