Recent

Author Topic: SSID scanner  (Read 1227 times)

pcurtis

  • Hero Member
  • *****
  • Posts: 841
SSID scanner
« on: November 04, 2021, 12:52:58 pm »
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?
« Last Edit: November 04, 2021, 06:12:30 pm by pcurtis »
Windows 10
Laz 2.0.12
FPC 3.2.0

Thaddy

  • Hero Member
  • *****
  • Posts: 11115
Re: SSID scanner
« Reply #1 on: November 04, 2021, 12:58:51 pm »
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.
You have morons, I am one, and you have morons squared.

pcurtis

  • Hero Member
  • *****
  • Posts: 841
Re: SSID scanner
« Reply #2 on: November 04, 2021, 01:31:23 pm »
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
« Last Edit: November 04, 2021, 06:07:04 pm by pcurtis »
Windows 10
Laz 2.0.12
FPC 3.2.0

af0815

  • Hero Member
  • *****
  • Posts: 838
Re: SSID scanner
« Reply #3 on: November 04, 2021, 02:20:12 pm »
I get a range check error 201
Code: Pascal  [Select][+][-]
  1.     for j := 0 to pAvailableNetworkList^.dwNumberOfItems - 1 do
  2.     begin
  3.       l := listview1.Items.Add;
  4.  
  5.       SDummy := PChar(@pAvailableNetworkList^.Network[j].dot11Ssid.ucSSID); // <---- here
  6.       l.Caption := j.ToString +' ' + (SDummy);
  7.       l.SubItems.Add(Format('%d ',
  8.  
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.
« Last Edit: November 04, 2021, 02:23:23 pm by af0815 »
regards
Andreas

pcurtis

  • Hero Member
  • *****
  • Posts: 841
Re: SSID scanner
« Reply #4 on: November 04, 2021, 02:30:44 pm »
I use Laz 2.0.10, something has probably changed.
Windows 10
Laz 2.0.12
FPC 3.2.0

Thaddy

  • Hero Member
  • *****
  • Posts: 11115
Re: SSID scanner
« Reply #5 on: November 04, 2021, 02:33:54 pm »
for in do will prevent the range check...
You have morons, I am one, and you have morons squared.

af0815

  • Hero Member
  • *****
  • Posts: 838
Re: SSID scanner
« Reply #6 on: November 04, 2021, 02:36:02 pm »
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. ?!
regards
Andreas

SymbolicFrank

  • Hero Member
  • *****
  • Posts: 792
Re: SSID scanner
« Reply #7 on: November 04, 2021, 03:39:46 pm »
I have trunk and it complains about the last two values of Tndu_DOT11_AUTH_ALGORITHM being larger than an integer.

pcurtis

  • Hero Member
  • *****
  • Posts: 841
Re: SSID scanner
« Reply #8 on: November 04, 2021, 03:50:58 pm »
The code is not mine. I stumbled on it on the web, and was for delphi 2007
Windows 10
Laz 2.0.12
FPC 3.2.0

 

TinyPortal © 2005-2018