help_outline
Ayudanos!
play_arrow
  3. [Perl Tk] Fast Scan Port 0.3
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 Tk] Fast Scan Port 0.3

  • 0 Respuestas
  • 846 Vistas

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

Desconectado BigBear

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

[Perl Tk] Fast Scan Port 0.3

« en: Julio 03, 2011, 10:00:37 pm »
Un scanner bien rapido en perl , solo es rapido en linux xDDDDDD

Una imagen en mi glorioso ubuntu





Código: Perl
  1. #!usr/bin/perl
  2. #Fast Scan Port 0.3
  3. #(c) Doddy Hackman 2011
  4. #Tested on Ubuntu 10.04
  5.  
  6. use Tk;
  7. use Tk::ROText;
  8. use IO::Socket;
  9.  
  10. my $new = MainWindow->new();
  11.  
  12. $new->title("Fast Scan Port 0.3");
  13. $new->geometry("240x400+20+20");
  14. $new->resizable(0,0);
  15.  
  16. $new->Label(-text=>"Target : ",-font=>"Impact1")->place(-y=>20,-x=>20);
  17. my $target = $new->Entry(-width=>20,-text=>"localhost")->place(-y=>24,-x=>85);
  18. $new->Label(-text=>"Port : ",-font=>"Impact1")->place(-x=>20,-y=>50);
  19. my $par = $new->Entry(-width=>10,-text=>"1-9999")->place(-y=>53,-x=>70);
  20.  
  21. $new->Label(-text=>"Output",-font=>"Impact1")->place(-x=>90,-y=>90);
  22. my $console = $new->ROText(-height=>14,-width=>28)->place(-y=>130,-x=>20);
  23.  
  24. $new->Button(-text=>"Scan Now",-command=>\&scan,-width=>20)->place(-y=>350,-x=>50);
  25.  
  26. MainLoop;
  27.  
  28. sub scan {
  29.  
  30. my $ip = $target->get;
  31. my $verbien = $par->get;
  32.  
  33. if ($verbien=~/(.*)-(.*)/) {
  34.  
  35. my $start = $1;
  36. my $end = $2;
  37.  
  38. $console->delete("0.0","end");
  39. $console->insert("end","\n[+] Target : ".$ip."\n");
  40. $console->insert("end","[+] Port : $verbien\n\n");
  41.  
  42. for my $port($start..$end) {
  43. $new->update;
  44. if (new IO::Socket::INET(Timeout=>0.5,PeerAddr => $ip,PeerPort => $port,Proto => "tcp",Timeout  => 0.5)) {
  45. $console->insert("end","[+] Port Found : ".$port."\n");
  46. }}
  47. $console->insert("end","\n\n[+] Scan Finished\n\n");
  48. }}
  49.  
  50. # ¿ The End ? 
  51.  
« Última modificación: Julio 17, 2011, 03:43:55 am por Sthefano02 »
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: 3342 		Ú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: 1603 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

 Respuestas: 0
Vistas: 1208 		Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

 Respuestas: 0
Vistas: 1472 		Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

 Respuestas: 0
Vistas: 1365 		Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear