WEP-KEY एक Spoonwep स्क्रिप्ट के लिए ASCII में प्रदर्शित करने के लिए

द्वारा पोस्ट: व्यवस्थापक 3 में सोमवार 9, 2009

FreeBSD कहानी में नहीं है WEP से लिनक्स का मैं पीछे करने की कोशिश की इस भेद्यता का परीक्षण करने के लिए थोड़ा ध्यान है.

Aircrack-एनजी एक उच्च संभावना है कि जल्दी या IKENAKAっकोई वृद्धि को एक से अधिक,欠KEMASU सांत्वना देने के साथ समझदार हो रहा है?
जब ग्राहक के सामने प्रदर्शन, "यह मुझे पसंद है किसी को भी नहीं कर सकते करने के लिए लगता है."
मैं इतना है कि यह सुरक्षा के प्रति जागरूकता बढ़ाने के लिए विफल साफ़ कर रही थी, Spoonwep एक जीयूआई आवेदन की कोशिश की.

Aircrack को पी मोड स्विच करने के लिए यह अच्छा है तुलना में कुछ समय लग एनजी के लिए एक पूरी तरह से स्वचालित खोज PAKETTOKYAPUCHA विश्लेषण में कार्रवाई की है.
क्योंकि यह हेक्स है Regrettably, अंतिम विश्लेषण (aircrack-की प्रक्रिया) के विकल्प में परिणाम एनजी.
 [ 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);