B4X

WPA Key Calculation from PassPhrase to Hex

See more Encryption Examples

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

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

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

Dim wpaHexKey As String

'  The "ps" is the WPA passphrase
Dim pw As String = "password"
Dim pwCharset As String = "ansi"

'  Hash algorithms may be: sha1, md2, md5, etc.
Dim hashAlg As String = "sha1"

'  Specify the SSID in hex:
'  For example, if the SSID is "ABC", then the 
'  hex values for these us-ascii chars is "414243"
Dim ssidHex As String = "414243"

'  The WPA key calculation will always use 4096 iterations.
Dim iterationCount As Int = 4096

'  The WPA hex output should be 256 bits.
Dim outputBitLen As Int = 256

'  Indicate that "hex" is to be returned.
Dim enc As String = "hex"

wpaHexKey = crypt.Pbkdf2(pw, pwCharset, hashAlg, ssidHex, iterationCount, outputBitLen, enc)

Log(wpaHexKey)