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] Get IP 0.1

  • 0 Respuestas
  • 1061 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Marzo 31, 2012, 09:06:05 pm »
Estaba muriendome de aburrimiento y me programe este pequeño programa en 5 minutos , que sirve para obtener la IP de un Host cualquiera.

Una imagen


El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #Get IP 0.1
  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 = "yellow";
  11.  
  12. if ( $^O eq 'MSWin32' ) {
  13.     use Win32::Console;
  14.     Win32::Console::Free();
  15. }
  16.  
  17. my $ua =
  18.   MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
  19. $ua->title("Get IP || Coded By Doddy H");
  20. $ua->geometry("350x110+20+20");
  21. $ua->resizable( 0, 0 );
  22.  
  23. $ua->Label(
  24.     -text       => "Host : ",
  25.     -font       => "Impact",
  26.     -background => $color_fondo,
  27.     -foreground => $color_texto
  28. )->place( -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 20, -x => 20 );
  29. my $host = $ua->Entry(
  30.     -width      => 30,
  31.     -background => $color_fondo,
  32.     -foreground => $color_texto
  33. )->place( -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 25, -x => 70 );
  34. $ua->Button(
  35.     -text             => "Get IP",
  36.     -width            => 10,
  37.     -command          => \&quien,
  38.     -background       => $color_fondo,
  39.     -foreground       => $color_texto,
  40.     -activebackground => $color_texto
  41. )->place( -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 23, -x => 260 );
  42.  
  43. $ua->Label(
  44.     -text       => "IP : ",
  45.     -font       => "Impact",
  46.     -background => $color_fondo,
  47.     -foreground => $color_texto
  48. )->place( -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 60, -x => 20 );
  49. my $ip = $ua->Entry(
  50.     -width      => 33,
  51.     -background => $color_fondo,
  52.     -foreground => $color_texto
  53. )->place( -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 65, -x => 52 );
  54.  
  55. MainLoop;
  56.  
  57. sub quien {
  58.     $ip->configure( -text => get_ip( $host->get ) );
  59. }
  60.  
  61. sub get_ip {
  62.     my $get = No tienes permisos para ver links. Registrate o Entra con tu cuenta( $_[0] );
  63.     No tienes permisos para ver links. Registrate o Entra con tu cuenta inet_ntoa($get);
  64. }
  65.  
  66. #The End ?
  67.  
« Última modificación: Marzo 14, 2015, 10:17:56 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3156
Ú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: 1472
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1250
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1371
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1600
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d