script em perl para carregar a rede wireless. Testado com placa broadcom.

• 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
# antes de usar vc deve configurar o seu ip para algo na faixa 192.168.0.0/mask 255.255.255.0 
# (eh so usar a linha comentada e comentar as linhas com # * )
# vc vai no browser e configura pro AP usar o ip na faixa que o seu router usa (sem ser o ip do router/modem)
# depois vc descomenta as linhas e coloca esse script pra ser chamado pelo rc.local
# agora o dhcp vai pegar todas as configuracoes automaticamente...
# esse script e liberado pela GPL

print "Wireless Network installer by _m4n14c_\nwait...\n";
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:(.+)/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);
 print "iwconfig wlan0 essid $essid[0] mode $mode[0] freq $freq[0] rate auto enc $enc[0]\n";
 print `iwconfig wlan0 essid $essid[0] mode $mode[0] freq $freq[0] rate auto enc $enc[0]`;
 sleep 1;
 print "ifconfig wlan0 up\n";
# print `ifconfig wlan0 192.168.0.2 netmask 255.255.255.0 up`;
 print `ifconfig wlan0 up`;   # *
 print `dhcpcd -d -t 10 wlan0`; # *
# print `ping -c1 192.168.0.1`; # ip default do AP... 
 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";
}

Importação de IPs do Whatsapp como Objeto do Zentyal

Carregando automaticamente wireless via ndiswrapper II

Forensic Net Tools

UDP flood em Perl!

ping Aviso