Sample code for 30+ languages & platforms
Tcl

WPA Key Calculation from PassPhrase to Hex

See more Encryption Examples

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

Chilkat Tcl Downloads

Tcl

load ./chilkat.dll

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

set crypt [new_CkCrypt2]

# The "ps" is the WPA passphrase
set pw "password"
set pwCharset "ansi"

# Hash algorithms may be: sha1, md2, md5, etc.
set 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"
set ssidHex "414243"

# The WPA key calculation will always use 4096 iterations.
set iterationCount 4096

# The WPA hex output should be 256 bits.
set outputBitLen 256

# Indicate that "hex" is to be returned.
set enc "hex"

set wpaHexKey [CkCrypt2_pbkdf2 $crypt $pw $pwCharset $hashAlg $ssidHex $iterationCount $outputBitLen $enc]

puts "$wpaHexKey"

delete_CkCrypt2 $crypt