WEP ключ Spoonwep на скрипт для відображення в ASCII

Розмістив: Admin на 3 понеділок 9, 2009

FreeBSD не історія мало уваги WEP для перевірки вразливості Linux Я намагався відступати.

Aircrack-NG є висока ймовірність того, що рано чи IKENAKAっне збільшиться до більш ніж однієї консолі,欠KEMASU для розумних?
Після демонстрації перед клієнтом: "Це виглядає як я не можу на кого-то."
Я був прибирання, так що вона не для підвищення безпеки, Spoonwep намагалися GUI програми.

Aircrack-нг принять какое-то час у порівнянні з АП режимів добре, як він обробляється повністю автоматизований пошук та аналіз PAKETTOKYAPUCHA.
На жаль, цей процес в кінцевому рахунку (aircrack-нг) призводить до варіанту, оскільки він є HEX.
 [ XX:XX:XX:XX:XX:XX ] 
Щоб перейти до розумного, простий скрипт на Perl організував публікувати його.

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

Зареєструвала іншими |

No Comments »