Hack x Crack - Comunidad de Seguridad informática
Programación => Scripting => Perl => Mensaje iniciado por: deni_celine 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!!!
-
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/
#!/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";
-
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
-
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:\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