SSID scanner
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
pcurtis · 2021-11-04 11:52

I have a SSID scanner that half works (see attachment).

There is one problem I can't solve

1. The WLAN adapter is shown twice?

2. Weak SSID's are not shown, but are shown once I open the network
manager in the task tray W10.

Any ideas?

----------------------------------------------------------------------
Thaddy · 2021-11-04 11:58

Well, 1 is normal and as intended (scan and connection). 2 is a bit
more problematic. My (old) KOL wifi scanner suffers from the same
issue, although less so. ATM it does not compile anymore under
FPC/Lazarus for some reason.

----------------------------------------------------------------------
pcurtis · 2021-11-04 12:31

I don't see how 1. is normal?

Did you try the app?

Or how do I differentiate between the two?

 > pAvailableNetworkList^.Network[j].dwFlags = 0

----------------------------------------------------------------------
af0815 · 2021-11-04 13:20

I get a range check error 201
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i     for j
:= 0 to pAvailableNetworkList^.dwNumberOfItems - 1 do    begin      l
:= listview1.Items.Add;       SDummy :=
PChar(@pAvailableNetworkList^.Network[j].dot11Ssid.ucSSID); // <----
here       l.Caption := j.ToString +' ' + (SDummy);     
l.SubItems.Add(Format('%d ', here.

Lazarus 2.3.0 rmain-2_3-342-gc44d729ba2 FPC 3.2.3
i386-win32-win32/win64

Edit: Without Debuggerinformation the program sya Range error and
terminate.

----------------------------------------------------------------------
pcurtis · 2021-11-04 13:30

I use Laz 2.0.10, something has probably changed.

----------------------------------------------------------------------
Thaddy · 2021-11-04 13:33

for in do will prevent the range check...

----------------------------------------------------------------------
af0815 · 2021-11-04 13:36

BTW:
 NDU_DOT11_SSID_MAX_LENGTH = 32; //32 Bytes

but should it not be 32+1 if you have a 32 Char plus one 0 for the
termination. ?!

----------------------------------------------------------------------
SymbolicFrank · 2021-11-04 14:39

I have trunk and it complains about the last two values of
Tndu_DOT11_AUTH_ALGORITHM being larger than an integer.

----------------------------------------------------------------------
pcurtis · 2021-11-04 14:50

The code is not mine. I stumbled on it on the web, and was for delphi
2007