FORUM DARKERS

Administração => Darkers Project => Topic started by: Ch3rn0b0y on 16 de June , 2008, 05:14:47 PM

Title: Projeto Air-Bat ,script conector tabajara Wireless
Post by: Ch3rn0b0y on 16 de June , 2008, 05:14:47 PM
Bom gente eu vim postar o source de um amigo meu o Cooler adm do botecounix.serveftp.com  ele não é membro pois não conhece o forum eu irei passar pra ele mas é um projeto é um projeto que ele procura o melhor sinal e conectar e se tiver wep ou wpa tentar quebrar... este script ta basico soh vai da para conectar no Linux
para BSD he diferente os comandos...

#!/usr/bin/perl
# testado com um router DLINK com wep
# script criado por Cooler(Tony_baiacu) para facilitar conectividade wireless em sistemas linux
# era para tar em SH deixa pra la...

   print "Configurando Drivers...\n";
   print "digite a interface ex wlan0 \n";
   $interface = <STDIN>;
   chomp($interface);
   print `ifconfig $interface 192.168.0.2 netmask 255.255.255.0`;
   print `modprobe ndiswrapper`;
   print `sleep 5`;
   print "Radar procurando Rede\nwait...";
   @scan = `iwlist $interface scanning`;
      if(grep /No scan results/i, @scan)
      {
        print "----------------------------------\n";
        print "-------radar-sem-resultado--------\n";
        print "----------------------------------\n";
        print "-----------GAME-OVER--------------\n";
        exit;
      }
      else
      {
        print @scan;
        print "Analise o resultado do radar e escolha um cell\n";
        print "digite o essid escolhido\n";
        $essid = <STDIN>;
        chomp($essid);
        print "digite o frequencia\n";
        $freq = <STDIN>;
        chomp($freq);
        print "digite modo\n";
        $mode = <STDIN>;
        chomp($mode);
        print "digite os digitos da criptografia\n";
        $enc = <STDIN>;
        chomp($enc);
        print "analisando os dados\nwait...";
        print "iwconfig $interface essid $essid mode $mode freq $freq rate auto enc $enc\n\n";
        print `iwconfig $interface essid $essid mode $mode freq $freq rate auto enc $enc`;
        print "Injetando dados na rede\n";
        sleep 1;
        print "ifconfig $interface up\n";
        print `ifconfig $interface 192.168.0.2 netmask 255.255.255.0 up`;
        print `ifconfig $interface up`;   
        print `dhcpcd -d -t 10 $interface`;
        print "comandos injetados com sucesso\n";
      }

      print "testando conectividade\n";
      @teste = `ping -c1 192.168.1.2`;
      if(grep /unreachable/i, @teste)
      {
       print "---------------------------------------------------\n";
       print "O-sinal-parese-estar-fraco-de-mas,tente-outro-anglo\n";
       print "-------------tente-um-com-qualidade-melhor---------\n";
       print "--------------------GAME_OVER----------------------\n";
       exit;
      }
      else
      {
       print "----------------------------------------\n";
       print "---Conectividade-testada-com-sucesso----\n";
       print "---A_rede_wifi_pode_estar_funcionando---\n";
       print "----------------------------------------\n";
       print "--------------_------------_------------\n";
      }


Mas ai se quiserem ajudar esse projeto podem ajuda, nesse code so colocar o aircrack+regex pra ele procurar o sinal melhor ainda.

Abraços
Title: Re: Projeto Air-Bat ,script conector tabajara Wireless
Post by: _Mlk_ on 19 de June , 2008, 07:27:44 PM
Eu curte o bagulhetys do cooler...ele coda d+ ^^