WEP-KEY Spoonwep for et script til at vise i ASCII

Indsendt af: admin på 3 mandag 9., 2009

FreeBSD er ikke i historien er en smule opmærksomhed fra WEP at teste sårbarhed Linux jeg forsøgte at vende.

Aircrack-ng er en stor sandsynlighed for, at før eller IKENAKAっuden stige til mere end en konsol,欠KEMASU at være smart?
Når en demonstration foran den kunde, "Det ser ud som om jeg ikke til nogen."
Jeg var at rydde op, så det ikke lykkes at øge bevidstheden omkring sikkerhed, Spoonwep forsøgte en GUI ansøgning.

Aircrack-ng til at tage et stykke tid i forhold til AP funktionsknappen er godt, som det er forarbejdet i en fuldt automatiseret søgning og analyse PAKETTOKYAPUCHA.
Desværre er processen med den endelige analyse (aircrack-ng) resultater i den mulighed, fordi det er HEX. 
 [ XX:XX:XX:XX:XX:XX ]
At omstille sig til et smart, enkelt perl script indrettet til at offentliggøre det.

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);

Filed under andre |

No Comments »