Busca_wifi

#!bin/bash
# Busca redes wifi
# Por () GNU

clear
scan="Escaneando."

#interfaz="wlan0" # Decomentar
#echo "Nombre de la interfaz: $interfaz" #Para no preguntar interfaz

echo -n "Nombre de la interfaz: " # Cometar
read interfaz # Para no preguntar interfaz

accesos=`iwlist $interfaz scan`

if [ $? -ne 0 ]; then exit 1; else echo -n ""; fi

n_accesos=`iwlist $interfaz scan | grep ESSID | wc -l`
i=1; o=0

while [[ $i && $o -lt $n_accesos ]]; do
    printf "$scan\r"
    red[$o]=`iwlist $interfaz scan |\
                       grep ESSID  |\
                               awk '{print $1}' |\
                                   perl -p -e 's/ESSID://g; s/^["]//g ; s/["]$//g' |\
                                   sed -n -e "$i p; /^$/d"`
    let i=i+1 && let o=o+1 && scan=${scan}"."
done

i=0;
echo "Redes disponibles : "

while [ $i -lt ${#red[*]} ]; do
    echo -e "\e[1;35m$i \e[0m" "${red[$i]}"
    let i=i+1
done

echo -n "Hay ${#red[*]} redes dispnibles,conectarse a : "
n=`expr ${#red[*]} - 1`

while [ 1 ]; do
    read conect
    if [[ $conect =~ [0-"${n}"] ]]; then
        break
    else
        echo -n "Hay ${#red[*]} redes disponibles,conectarse a (numeros) : "
        continue
    fi
done

while [ 1 ]; do
    echo -n "Tiene clave wep: (n/S): "
    read respuesta
    case $respuesta in
        s|S)
            echo -n "Clave : "
            read -s clave  # Eliminar "-s" para poder ver l clave al escribir
            echo "Conectando...\n"
            iwconfig $interfaz essid "${red[$conect]}" key "$clave"
            echo "Ejecutando dhcpcd"
            dhcpcd $interfaz #cambiar dhcpcd por otro programa
            break
            ;;
        n|N)
            echo "Conectando..."
            iwconfig $interfaz essid "${red[$conect]}"
            echo "Ejecutando dhcpcd"
            dhcpcd $interfaz
            break
        ;;
            salir|Salir)
            exit 1;
        ;;
        *)
        echo "Intenta de nuevo"
        continue ;;
    esac
done