Foro - Perl en Español

por **BigBear** » 2014-09-22 07:58 @374

Hola, quería preguntar cómo puedo detectar todos los wifi disponibles usando Perl, algo así como hacen las tabletas o los smartphones cuando te muestran la lista de los wifi disponibles con el nombre y todo eso. ¿Ya existe algún módulo para ayudarnos con eso?

require Win32::Wlan;
my $wlan = Win32::Wlan->new;
if ($wlan->available) {
    print "Conectado to ", $wlan->connection->{profile_name},"\n";
    print "Veo las siguientes redes\n";
    for ($wlan->visible_networks) {
        printf "%s\t-%d dbm\n", $_->{name}, $_->{signal_quality};
    };
 
} else {
    print "No se ha detectado Wlan (o está desactivado)\n";
};
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

En Linux, no siquiera necesitas un módulo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl -E 'say join "\n", qx(iwlist wlan0 scanning) =~ /ESSID:(.+?)$/msg;'
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2014-09-22 10:53 @495

Gracias por la ayuda, explorer. Te quería preguntar qué comando uso para realizar una conexión con el WiFi de mi casa con contraseña y comprobar si se conectó o no. Me fijé en los datos de mi conexión desde mi tableta y dice que mi WiFi tiene seguridad WPA PSK. ¿Qué tendría que hacer y qué necesito para hacerlo?

Edición:

Mira, encontré el siguiente código en Ruby pero no sé si funciona para el WiFi de mi casa. Pide los siguientes parámetros:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

 -c     --connect SSID {Hexkey|s:asciikey}    Connect to an access point    Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using ruby Syntax Highlighting

    def connect essid, key = nil
         if `sudo ifconfig wlan0 up` != ''
             abort("Please run the script using sudo or as root")
         end
 
        unless key 
            puts "Connecting to #{essid}"
            if `sudo iwconfig #{@interface} essid #{essid}` == ''
                puts "Connected to #{essid}"
            else
                abort("Could not connect")
            end
        else
            puts "Connecting to #{essid} with WEP encryption"
            if `sudo iwconfig #{@interface} essid #{essid} key #{key}` == ''
                puts "Connected to #{essid}"
            else
                    abort("Could not connect")
            end
        end
 
        `sudo #{DHCPCLIENT} -q -n #{@interface}`
        puts "#{DHCPCLIENT.to_s.capitalize} started."
    end
 
    def disconnect
        "Disconnecting #{@interface}"
        if `sudo iwconfig #{@interface} essid off` != '' 
            "Disconnect failed! Try running as root"
        end
    end
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿Cómo hago con el WiFi de mi casa, tengo que codificar la contraseña o algo?

por **BigBear** » 2014-10-07 16:58 @749

Tengo un problema con todos los comandos en los que uso mi interfaz inalámbrico. El problema es que no me reconoce ni detecta ninguno. Intenté con todos los comandos posibles que encontré en Google y no me encuentra nada con los comandos encontrados. Hasta tu comando no me devuelve nada. Intenté con ath0, wlan0 y otro que no me acuerdo el nombre en este momento.

Tu comando me devuelve :

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

lo        Interface doesn't support scanning.

eth0      Interface doesn't support scanning.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

También probé con :

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ifconfig eth0 up

iwlist eth0 sColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

También revisé y parece estar todo instalado. Dice que eth0 está activado pero no escanea.

¿Cuál sera el problema ?

por **explorer** » 2014-10-07 18:26 @810

eth0 está reservado para las conexiones alámbricas. Su nombre deriva de cuando existían las redes Ethernet.

Para las redes inalámbricas, lo normal es que el dispositivo se llame wlan0, wlan1, etc.

Una forma de ver el nombre del dispositivo es mirando la salida del comando dmesg:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

[ 5391.785890] wlan0: authenticate with 4c:ed:de:35:4c:dd

[ 5391.797262] wlan0: send auth to 4c:ed:de:35:4c:dd (try 1/3)

[ 5391.798745] wlan0: authenticated

[ 5391.800149] wlan0: associate with 4c:ed:de:35:4c:dd (try 1/3)

[ 5391.808165] wlan0: RX AssocResp from 4c:ed:de:35:4c:dd (capab=0x411 status=0 aid=1)Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

o consultando la salida de /proc/net/dev

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Inter-|   Receive                                                |  Transmit

 face |bytes    packets errs drop fifo frame compressed multicast|bytes    packets errs drop fifo colls carrier compressed

  eth0:       0       0    0    0    0     0          0         0        0       0    0    0    0     0       0          0

    lo:  468800    3935    0    0    0     0          0         0   468800    3935    0    0    0     0       0          0

 wlan0: 82154782   75550    0    0    0     0          0         0  7586877   57471    0    0    0     0       0          0Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

o, si existe, la de /proc/net/wireless

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Inter-| sta-|   Quality        |   Discarded packets               | Missed | WE

 face | tus | link level noise |  nwid  crypt   frag  retry   misc | beacon | 22

 wlan0: 0000   52.  -58.  -256        0      0      0      0     12        0Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Así que primero hay que saber el nombre del dispositivo que ha reconocido el sistema. Y si no sale ninguno, es que quizás el sistema no ha cargado el módulo del kernel apropiado para hacerlo (algo así como un driver (controlador)). Esos módulos se indican en /etc/modules o /etc/modprobe.d/, pero bueno, lo normal es que el sistema lo reconociese en el momento de la instalación o desde el panel de control, y se encargase él mismo de actualizar esos archivos.

Una vez que sabemos qué nombre de interfaz es, pues el resto es usar el iwconfig (atento a la 'w' del nombre), en donde aparecen todos los dispositivos de red, y si son inalámbricos o no:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

eth0      no wireless extensions.

lo        no wireless extensions.

wlan0     IEEE 802.11bg  ESSID:"Jazztel_4C"  

          Mode:Managed  Frequency:2.427 GHz  Access Point: 4D:ED:DE:35:4C:DD   

          Bit Rate=54 Mb/s   Tx-Power=20 dBm   

          Retry  long limit:7   RTS thr:off   Fragment thr:off

          Encryption key:off

          Power Management:off

          Link Quality=52/70  Signal level=-58 dBm  

          Rx invalid nwid:0  Rx invalid crypt:0  Rx invalid frag:0

          Tx excessive retries:0  Invalid misc:13   Missed beacon:0Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Es con ese con el que puedes controlar el levantamiento de la conexión a un cierto ESSID.

P.D.: también puedes probar iwconfig desde el principio. Más información en la página de manual de iwconfig (man iwconfig).

por **BigBear** » 2014-10-07 19:13 @842

explorer: mañana voy a actualizar mi Ubuntu 10.04 al 14 actualizando desde una opción cómoda que me da el sistema para probar si es un problema de la versión vieja porque ya lo intenté todo y nada. ¿Perderé los datos guardados en mi Ubuntu? ¿Hará algo raro al disco de seven que está aparte?

por **explorer** » 2014-10-08 04:05 @212

En toda actualización de un sistema siempre se pierden los datos de la configuración del sistema anterior.

Y de los datos del usuario (la carpeta /home) se "puede" perder si en la actualización no le decimos que no formatee las particiones. E incluso así, aunque le digas que no formatee esa partición y que solo la use como /home, podría fallar e inicializarla, con lo que puedes perderlo (esto me pasó con Linux Mint, pero nunca con OpenSuSE).

Así que... la regla básica es: SIEMPRE hacer copia de seguridad de todo.

Lo que se suele hacer es instalar el nuevo sistema operativo en un nuevo disco, y cuando compruebas que todo está bien, vas pasando la información del disco viejo al nuevo, o mantienes el disco viejo en el sistema.

En fin, hay muchas opciones.

por **BigBear** » 2014-10-08 10:52 @494

Acabo de instalar en una máquina virtual un Kali Linux y Wifislax, y lo mismo: no encuentra nada y dicen que eth0 y otro más no aceptan escaneos. Ahora pruebo actualizando Ubuntu y te cuento...

por **BigBear** » 2014-10-09 18:20 @805

No hubo forma, explorer, ni en los tres sistemas operativos ni en el Ubuntu 14.04 hizo andar este tema. Al parecer ya es problema de mi computadora en sí.

por **explorer** » 2014-10-09 18:34 @815

¿Cuál es la salida del comando iwconfig?

Foro - Perl en Español

Detectar redes WIFI

Detectar redes WIFI

Publicidad

Re: Detectar redes WIFI

Re: Detectar redes WIFI

Re: Detectar redes WIFI

Re: Detectar redes WIFI

Re: Detectar redes WIFI

Re: Detectar redes WIFI

Re: Detectar redes WIFI

Re: Detectar redes WIFI

Re: Detectar redes WIFI

¿Quién está conectado?