(Visual Basic 6.0) 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

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

Dim crypt As New ChilkatCrypt2

Dim wpaHexKey As String

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

' Hash algorithms may be: sha1, md2, md5, etc.
Dim hashAlg As String
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"
Dim ssidHex As String
ssidHex = "414243"

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

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

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

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

Debug.Print wpaHexKey