3. [Perl] Scan Port 0.6
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

[Perl] Scan Port 0.6

  • 0 Respuestas
  • 1112 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] Scan Port 0.6

« en: Mayo 19, 2012, 12:27:20 pm »
Un simple scanner port hecho en Perl.

Código: Perl
  1. #!usr/bin/perl
  2. #ScanPort 0.6
  3. #Coded By Doddy H
  4. #Examples
  5. #perl scan.pl -target localhost -option fast
  6. #perl scan.pl -target localhost -option full -parameters 1-100
  7.  
  8. use IO::Socket;
  9. use Getopt::Long;
  10.  
  11. GetOptions(
  12.     "-target=s"     => \$target,
  13.     "-option=s"     => \$opcion,
  14.     "-parameters=s" => \$parameters
  15. );
  16.  
  17. head();
  18. unless ($target) {
  19.     sintax();
  20. }
  21. else {
  22.     if ( $opcion eq "fast" ) {
  23.         scanuno($target);
  24.     }
  25.     if ( $opcion eq "full" and $parameters ) {
  26.         if ( $parameters =~ /(.*)-(.*)/ ) {
  27.             my $start = $1;
  28.             my $end   = $2;
  29.             scandos( $target, $start, $end );
  30.         }
  31.     }
  32. }
  33.  
  34. copyright();
  35.  
  36. sub scanuno {
  37.  
  38.     my %ports = (
  39.         "21"   => "ftp",
  40.         "22"   => "ssh",
  41.         "25"   => "smtp",
  42.         "80"   => "http",
  43.         "110"  => "pop3",
  44.         "3306" => "mysql"
  45.     );
  46.  
  47.     print "\n[+] Scanning $_[0]\n\n\n";
  48.  
  49.     for my $port ( keys %ports ) {
  50.  
  51.         if (
  52.             new IO::Socket::INET(
  53.                 PeerAddr => $_[0],
  54.                 PeerPort => $port,
  55.                 Proto    => "tcp",
  56.                 Timeout  => 0.5
  57.             )
  58.           )
  59.         {
  60.             print "[+] Port Found : "
  61.               . $port
  62.               . " [Service] : "
  63.               . $ports{$port} . "\n";
  64.         }
  65.     }
  66.     print "\n\n[+] Scan Finished\n";
  67. }
  68.  
  69. sub scandos {
  70.  
  71.     print "\n[+] Scanning $_[0]\n\n\n";
  72.  
  73.     for my $port ( $_[1] .. $_[2] ) {
  74.  
  75.         if (
  76.             new IO::Socket::INET(
  77.                 PeerAddr => $_[0],
  78.                 PeerPort => $port,
  79.                 Proto    => "tcp",
  80.                 Timeout  => 0.5
  81.             )
  82.           )
  83.         {
  84.             print "[+] Port Found : $port\n";
  85.         }
  86.     }
  87.     print "\n\n[+] Scan Finished\n";
  88. }
  89.  
  90. sub head {
  91.     print "\n-- == ScanPort 0.6 == --\n\n";
  92. }
  93.  
  94. sub copyright {
  95.     print "\n\n-- == (C) Doddy Hackman 2012 == --\n\n";
  96. }
  97.  
  98. sub sintax {
  99.     print
  100. "\n[+] sintax : $0 -target <target> -option fast/full -parameters <1-9999>\n";
  101. }
  102.  
  103. # The End ?
  104.  
  105.  
« Última modificación: Marzo 14, 2015, 10:21:13 am por Expermicid »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

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

Iniciado por BigBear

 Respuestas: 0
Vistas: 1235 		Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

 Respuestas: 0
Vistas: 1390 		Ú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: 1784 		Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d