• Inicio
  • Buscar
  • Ingresar
  • Registrarse

    Starfield: el juego que revolucionará el espacio y la tecnología

    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • Consulta: Cómo obtener ip pública.
    • Imprimir
    Páginas: [1]   Ir Abajo

    Autor Tema: Consulta: Cómo obtener ip pública.  (Leído 4476 veces)

    Desconectado deni_celine

    • { L1 } Newbie
    • *
    • Mensajes: 66
      • Ver Perfil
    Consulta: Cómo obtener ip pública.
    « en: Diciembre 23, 2013, 02:23:59 pm »
    Hola a todo el mundo!, como es costumbre mi primer post es a modo de consulta  :(

    De que forma podría obtener a través de perl o consola, la ip pública, tal cuál la muestran páginas como http://www.whatismyip.com/ .

    Gracias por cualquier ayuda que puedan darme!!!
    En línea

    BTshell

    • Visitante
    Re:Consulta: Cómo obtener ip pública.
    « Respuesta #1 en: Diciembre 23, 2013, 02:31:38 pm »
    Pues aquí en HxC, el primer post de costumbre no es a modo de consulta, si no a modo de presentación ;)

    http://foro.hackxcrack.net/forum/presentaciones/

    Código: [Seleccionar]
    #!/usr/bin/perl
    ### Argumentos perl ip.pl wlan0 ##
    $interfaz = $ARGV[0];
    if (!$ARGV[0]){
    open (o ,"> configipviewer");
    @contenido=<o>;
        if(@contenido=""){
        print o "wlan1";
    }
    close o;
    open (p, "< configipviewer");
    @contenido2 = <p>;
    close p;
        $interfaz = @contenido2[0];
    print q "
    Nose dio Ninguna Interfaz se hara con la interfaz predeterminada...
    ######### Metodo de uso: perl ip.pl <interfaz> #########";
    print "\n           Interfaz por defecto actual $interfaz \n"; 

      }  
    @ipprivada2=`GET whatismyipaddress.com`;
    $ipprivada3=@ipprivada2[7];
    my @data = split(">", $ipprivada3);
    $ipprivada4=@data[5];
    my @data2 = split("<", $ipprivada4);
    $ip=@data2[0];

    print "\n   Interfaz: $interfaz\n";
    @ipprivada = `ifconfig $interfaz | grep inet`;
    $ipprivada2=@ipprivada[0];
    my @ipprivada3=split(":", $ipprivada2);
    my @ipprivada4=split(" ", @ipprivada3[1]);
    $ipprivada=@ipprivada4[0];

    @ipprivada = `ifconfig $interfaz | grep inet`;
    $ipprivada2=@ipprivada[0];
    my @ipprivada3=split(":", $ipprivada2);
    my @ipprivada4=split(" ", @ipprivada3[1]);
    $ipprivada=@ipprivada4[0];

    print "   Ip Publica: $ip\n";
    print "   Ip Privada: $ipprivada\n";
    « Última modificación: Diciembre 23, 2013, 02:39:31 pm por BTshell »
    En línea

    Desconectado deni_celine

    • { L1 } Newbie
    • *
    • Mensajes: 66
      • Ver Perfil
    Re:Consulta: Cómo obtener ip pública.
    « Respuesta #2 en: Diciembre 23, 2013, 02:47:04 pm »
    Suena a una buena política xd, lastima que no suelo leerlas.. ahora me presento  :P http://foro.hackxcrack.net/forum/presentaciones/mi-presentacion-%28/#.Urg-9bTToWA
    En línea

    Desconectado deni_celine

    • { L1 } Newbie
    • *
    • Mensajes: 66
      • Ver Perfil
    Re:Consulta: Cómo obtener ip pública.
    « Respuesta #3 en: Diciembre 23, 2013, 03:16:15 pm »
    Ya las leí (las reglas) :) Ahora miraré el código, gracias por la pronta respuesta.

    [edito]

    Gracias BTShell, no había pensado en usar esa página, al final lo hice así:

    Código: [Seleccionar]
    #!C:\perl\bin\perl.exe -w
    use LWP::UserAgent;
    my $ua = new LWP::UserAgent;
    my $response = $ua->get("http://bot.whatismyipaddress.com/");
    my $content = $response->content();
    print $content;

    Saludos
    « Última modificación: Diciembre 23, 2013, 03:38:20 pm por deni_celine »
    En línea

    • Imprimir
    Páginas: [1]   Ir Arriba
    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • Consulta: Cómo obtener ip pública.
     

    • SMF | SMF © 2013, Simple Machines
    • XHTML
    • RSS
    • WAP2
    Va un mudo y le dice a un sordo: Hack x Crack usa cookies. Pues eso... Learn more