Carregando automaticamente wireless via ndiswrapper II

Publicado por jean michael gandin 10/11/2006

[ Hits: 5.461 ]

Download wlan




Este script é uma atualização do script "Carregando automaticamente wireless via ndiswrapper", que agora exibe menu quando encontra mais de uma rede wireless.

  



Esconder código-fonte

#!/usr/bin/perl

# este script segue o procedimento descrito em:
# http://www.vivaolinux.com.br/artigos/verArtigo.php?codigo=1183
# testado com um router DSLink 200E ligao a um ap WAP1963

#para configurara a partir da conf default use ./wlan 1

$cell = shift or 0;

$setup = shift or 0;
if($ENV{'PATH'} !~ /sbin/) { $ENV{'PATH'} .= ":/sbin"; }
print `modprobe ndiswrapper; sleep 5`;
@scan = `iwlist wlan0 scanning`;
if(grep /No scan results/i, @scan)
{
 print "Nao encontrou nenhuma rede\n";
 exit;
}
else
{
# print @scan;
 $p = -1;
 foreach $line (@scan)
 {
  chop($line);
  if($line =~ /ESSID:(.+)/i) { $essid[$p] = $1; };
  if($line =~ /Frequency:([\.\d]+)/i) { $freq[$p] = $1; };
  if($line =~ /Mode:(.+)/i) { $mode[$p] = $1; };
  if($line =~ /Encryption key:(.+)/i) { $enc[$p] = $1; };
  if($line =~ /Cell/) { $p++; }
 }
# $freq =~ s/Hz//g;
 $mode = lc ($mode);
 
 if($p > 0)
 {
  print "multiplas escolhas:\n";
  $k = 0;
  foreach $name (@essid)
  {
   print $k . ") " . $essid[$k] . "(" . $mode[$k] . ")\n";
   $k ++;
  }
  print "Celula: "; 
  $cell = <stdin>;
 }
 
 print "iwconfig wlan0 essid $essid[$cell] mode $mode[$cell] freq $freq[$cell] rate auto enc $enc[$cell]\n";
 print `iwconfig wlan0 essid $essid[$cell] mode $mode[$cell] freq $freq[$cell] rate auto enc $enc[$cell]`;
 sleep 1;
 if($setup)
 {
  print "ifconfig wlan0 192.168.0.2 netmask 255.255.255.0 up\n";
  print `ifconfig wlan0 192.168.0.2 netmask 255.255.255.0 up`;
  print `ping -c1 192.168.0.1`; # ip default do AP... 
 }
 else
 {
  print "ifconfig wlan0 up\n";
  print `ifconfig wlan0 up`;   # *
  print `dhcpcd -d -t 10 wlan0`; # *
  print `ping -c1 192.168.1.2`; # * pingando o AP, se nao retornar nada aki nao funcionou.. esse ip eh o q vc coloca no browser..
 }
 print "A rede wireless deve estar funcionando...\n";
}
if(!$setuo)
{
 # sincroniza o relogio com o relogio da hoggar
 print "Sincronizando relogio com o da hoggar..\n";
 `/etc/cron.hourly/horacerta`;
 # atualiza DNS
 print "Atualizando DNS..\n";
# print `/home/m4n14c/ddclient 2>&1`;
}

Scripts recomendados

Web Fuzzer em Perl

Obter Nome e IP do Host

Script de conectividade wireless

Script para Detectar rede Wireless

Servidor remoto de ps aux


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts