what you don't know can hurt you

rwkg.pl.txt

rwkg.pl.txt
Posted Sep 5, 2005
Authored by BlackAngels

Random WEP/WPA key generation utility. Written in perl.

tags | tool, perl, wireless
MD5 | c61848b9242e3820c67e72ed1d555ccb

rwkg.pl.txt

Change Mirror Download
#!/usr/bin/perl

##
# RWKG
# Random WEP/WPA Keys Generator
#
# This tool generate a random string of
# allowed ascii characters and convert it
# to hex format (5/13/16/29 characters are
# necessary to create 64/128/152/256 bits
# WEP keys, 8-63 characters strings instead
# to create WPA/PSK keys).
#
# Code for SecurityWireless.info proof use only.
#
# Legal notes :
# BlackAngels staff refuse all responsabilities
# for an incorrect or illegal use of this software
# or for eventual damages to others systems.
##


# Variables
$keytype = $ARGV[ 0 ];
$keydimension = $ARGV[ 1 ];
$string = " !#\$\%\\&()*+,-./0123456789:;<=>?\@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[^]_abcdefghijklmnopqrstuvwxyz{~|}";
@chars = split(//,$string);
$n = @chars - 1;


# Random WEP/WPA Keys Generator
if ($keytype eq "WEP") {
if ($keydimension eq 64) { $key = generate(5); }
elsif ($keydimension eq 128) { $key = generate(13); }
elsif ($keydimension eq 152) { $key = generate(16); }
elsif ($keydimension eq 256) { $key = generate(29); }
else { usage(); }

print "\n\n[*] Generating WEP key ...\n";
$type = "WEP";
}
elsif ($keytype eq "WPA") {
if ($keydimension >= 8 && $keydimension <= 63) {
if ($keydimension <= 20) { print "\nWarning: WPA/PSK keys with a length of less then 20 characters, could be simply found via bruteforce attack ..."; }
$key = generate($keydimension)
}
else { usage(); }

print "\n\n[*] Generating WPA/PSK key ...\n";
$type = "WPA/PSK";
}
else { usage(); }

$hex = unpack('H*', $key);
print "\n[+] Random $type key";
print "\n [-] ASCII Value -> $key";
print "\n [-] Hex Value -> $hex\n\n";


# Subroutines
sub generate
{
my ($len) = @_;
for ($i=0;$i<$len;$i++) {
$index = int(rand $n);
$key = $key . $chars[$index];
}
return $key;
exit(1);
}

sub usage
{
print "\nUsage :\n";
print "perl rwkg.pl <key type> <key dimension>\n";
print "Key types allowed: WEP, WPA\n";
print "Key dimension WEP allowed values: 64, 128, 152, 256\n";
print "Key dimension WPA/PSK allowed values: 8/63\n";
print "Code for SecurityWireless.info proof use only\n\n";
exit(1);
}

Comments

RSS Feed Subscribe to this comment feed

No comments yet, be the first!

Login or Register to post a comment

File Archive:

October 2019

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Oct 1st
    24 Files
  • 2
    Oct 2nd
    15 Files
  • 3
    Oct 3rd
    7 Files
  • 4
    Oct 4th
    4 Files
  • 5
    Oct 5th
    10 Files
  • 6
    Oct 6th
    1 Files
  • 7
    Oct 7th
    21 Files
  • 8
    Oct 8th
    19 Files
  • 9
    Oct 9th
    5 Files
  • 10
    Oct 10th
    20 Files
  • 11
    Oct 11th
    17 Files
  • 12
    Oct 12th
    4 Files
  • 13
    Oct 13th
    4 Files
  • 14
    Oct 14th
    15 Files
  • 15
    Oct 15th
    19 Files
  • 16
    Oct 16th
    0 Files
  • 17
    Oct 17th
    0 Files
  • 18
    Oct 18th
    0 Files
  • 19
    Oct 19th
    0 Files
  • 20
    Oct 20th
    0 Files
  • 21
    Oct 21st
    0 Files
  • 22
    Oct 22nd
    0 Files
  • 23
    Oct 23rd
    0 Files
  • 24
    Oct 24th
    0 Files
  • 25
    Oct 25th
    0 Files
  • 26
    Oct 26th
    0 Files
  • 27
    Oct 27th
    0 Files
  • 28
    Oct 28th
    0 Files
  • 29
    Oct 29th
    0 Files
  • 30
    Oct 30th
    0 Files
  • 31
    Oct 31st
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2019 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close