Perl

WPA Key Calculation from PassPhrase to Hex

See more Encryption Examples

Demonstrates how to calculate a WPA key from a passprhase and network SSID. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

my $crypt = Chilkat2::Crypt2->new;

# The "ps" is the WPA passphrase
my $pw = 'password';
my $pwCharset = 'ansi';

# Hash algorithms may be: sha1, md2, md5, etc.
my $hashAlg = 'sha1';

# Specify the SSID in hex:
# For example, if the SSID is "ABC", then the
# hex values for these us-ascii chars is "414243"
my $ssidHex = '414243';

# The WPA key calculation will always use 4096 iterations.
my $iterationCount = 4096;

# The WPA hex output should be 256 bits.
my $outputBitLen = 256;

# Indicate that "hex" is to be returned.
my $enc = 'hex';

my $wpaHexKey = $crypt->Pbkdf2($pw, $pwCharset, $hashAlg, $ssidHex, $iterationCount, $outputBitLen, $enc);

print $wpaHexKey, "\n";