WEP-CHAVE Spoonwep para um script para exibir em ASCII

Postado por: admin em 3 seg. 9th, 2009

FreeBSD não está na história é um pouco de atenção WEP para testar a vulnerabilidade do Linux Tentei recuar.

Aircrack-ng é uma elevada probabilidade de que mais cedo ou IKENAKAっsem aumento de até mais de um console,欠KEMASU para ser inteligente?
Quando uma manifestação em frente do cliente, "Parece que eu não posso a ninguém."
Eu estava a limpeza, para que ele não consegue levantar a consciência de segurança, Spoonwep tentou uma aplicação GUI.

Aircrack-ng para ter algum tempo, em comparação com o modo AP é bom, pois é transformado em uma pesquisa totalmente automatizado e análise PAKETTOKYAPUCHA.
Lamentavelmente, o processo de análise final (aircrack-ng) resulta na opção porque é HEX. 
 [ XX:XX:XX:XX:XX:XX ]
Para converter para um tipo inteligente, simples Perl dispostos a publicá-lo.

hex-asc.pl 
 #!/usr/bin/perl

## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
## WEP-KEY BIN Viewer for Spoonwep
## (ASCII to BINARY Changer for Spoonwep / Spoonwep2)
##
##           http://freebsd.ai-line.com/  by sio (Japan)
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

## How to use. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#  1.Permission change to 0700.
#  2.When Spoonwep is finished, this running.
#  3.Executes this.
#  4.After that, Please give me a mail(sio<at>ai-line.com).
#    Girl or Japanese limitation ;-)
## ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

## configure
$output_dir = '/root/Desktop/CrackedWEP';

## Spoonwep default setting
$lastattack_dir = '/usr/local/bin/wifispoonfeeder/spoonwep/lastattack';
$key_file = 'key.txt';
$essid_file = 'wscapture-01.txt';

## wepkey
$readfile = "$lastattack_dir/$key_file";
open(IN, $readfile);
  $wepkey = <IN>;
close(IN);
$wepkey =~ s/\[|\]|\ |\:|\n//g;  # [ ww:xx:yy:zz ] => wwxxyyzz
$wepkey =~ s/([a-fA-F0-9][a-fA-F0-9])/pack("H2",$1)/eg; # ASCII to BINARY

## essid
$readfile = "$lastattack_dir/$essid_file";
open(IN, $readfile);
  @essid = <IN>;
close(IN);
$essid = $essid[2];
@essid = split(/,/, $essid);
$essid = $essid[13];
$essid =~ s/^\s*//;
$essid =~ s/\s*$//;

## Write
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon += 1;
$filename = "$year$mon$mday$hour$min$sec";
unless (-d $output_dir) {
  mkdir $output_dir;
}
open(FILE, "> $output_dir/$filename");
  print FILE "ESSID  = $essid\n";
  print FILE "WEPKEY = $wepkey";
close (FILE);

Arquivado sob outras |

No Comments »