(Visual FoxPro) WPA Key Calculation from PassPhrase to Hex

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL lcWpaHexKey
LOCAL lcPw
LOCAL lcPwCharset
LOCAL lcHashAlg
LOCAL lcSsidHex
LOCAL lnIterationCount
LOCAL lnOutputBitLen
LOCAL lcEnc

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

* The "ps" is the WPA passphrase
lcPw = "password"
lcPwCharset = "ansi"

* Hash algorithms may be: sha1, md2, md5, etc.
lcHashAlg = "sha1"

* Specify the SSID in hex:
* For example, if the SSID is "ABC", then the 
* hex values for these us-ascii chars is "414243"
lcSsidHex = "414243"

* The WPA key calculation will always use 4096 iterations.
lnIterationCount = 4096

* The WPA hex output should be 256 bits.
lnOutputBitLen = 256

* Indicate that "hex" is to be returned.
lcEnc = "hex"

lcWpaHexKey = loCrypt.Pbkdf2(lcPw,lcPwCharset,lcHashAlg,lcSsidHex,lnIterationCount,lnOutputBitLen,lcEnc)

? lcWpaHexKey

RELEASE loCrypt