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

• Download wlan
• Enviar nova versão

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`;
}

Enviando notificações do Nagios para o MSN

Obter Nome e IP do Host

Web Fuzzer em Perl

Servidor remoto de ps aux

UDP flood em Perl!

Nenhum comentário foi encontrado.