If bc.IndexOf(Buffer, "GET") <> -1 Then
If bc.IndexOf(Buffer, "/set") <> -1 Then
Log("we got credentials!!")
Dim ssid = "", password = "" As String
Dim i1 As Int = 0
Dim i2 As Int = 0
For Each b1() As Byte In bc.Split(Buffer, " ")
If i1 = 1 Then
For Each b2() As Byte In bc.Split(b1, "=")
Select i2
Case 1
' ssid = bc.StringFromBytes(b2)
ssid = bc.StringFromBytes(bc.SubString2(b2, 0, bc.IndexOf(b2, "&")))
Case 2
password = bc.StringFromBytes(b2)
End Select
i2 = i2 + 1
Next
End If
i1 = i1 + 1
Next
Log("SSID: ", ssid)
Log("Pass: ", password)