{$APPTYPE CONSOLE}
uses
Windows,
SysUtils,
nduWlanAPI
in
'nduWlanAPI.pas'
,
nduWlanTypes
in
'nduWlanTypes.pas'
;
function
DOT11_AUTH_ALGORITHM_To_String( Dummy :Tndu_DOT11_AUTH_ALGORITHM):
AnsiString
;
begin
Result:=
''
;
case
Dummy
of
DOT11_AUTH_ALGO_80211_OPEN : Result:=
'80211_OPEN'
;
DOT11_AUTH_ALGO_80211_SHARED_KEY : Result:=
'80211_SHARED_KEY'
;
DOT11_AUTH_ALGO_WPA : Result:=
'WPA'
;
DOT11_AUTH_ALGO_WPA_PSK : Result:=
'WPA_PSK'
;
DOT11_AUTH_ALGO_WPA_NONE : Result:=
'WPA_NONE'
;
DOT11_AUTH_ALGO_RSNA : Result:=
'RSNA'
;
DOT11_AUTH_ALGO_RSNA_PSK : Result:=
'RSNA_PSK'
;
DOT11_AUTH_ALGO_IHV_START : Result:=
'IHV_START'
;
DOT11_AUTH_ALGO_IHV_END : Result:=
'IHV_END'
;
end
;
end
;
function
DOT11_CIPHER_ALGORITHM_To_String( Dummy :Tndu_DOT11_CIPHER_ALGORITHM):
AnsiString
;
begin
Result:=
''
;
case
Dummy
of
DOT11_CIPHER_ALGO_NONE : Result:=
'NONE'
;
DOT11_CIPHER_ALGO_WEP40 : Result:=
'WEP40'
;
DOT11_CIPHER_ALGO_TKIP : Result:=
'TKIP'
;
DOT11_CIPHER_ALGO_CCMP : Result:=
'CCMP'
;
DOT11_CIPHER_ALGO_WEP104 : Result:=
'WEP104'
;
DOT11_CIPHER_ALGO_WPA_USE_GROUP : Result:=
'WPA_USE_GROUP OR RSN_USE_GROUP'
;
DOT11_CIPHER_ALGO_WEP : Result:=
'WEP'
;
DOT11_CIPHER_ALGO_IHV_START : Result:=
'IHV_START'
;
DOT11_CIPHER_ALGO_IHV_END : Result:=
'IHV_END'
;
end
;
end
;
procedure
Scan();
const
WLAN_AVAILABLE_NETWORK_INCLUDE_ALL_ADHOC_PROFILES =
$00000001
;
var
hClient : THandle;
dwVersion : DWORD;
ResultInt : DWORD;
pInterface : Pndu_WLAN_INTERFACE_INFO_LIST;
i :
Integer
;
j :
Integer
;
pAvailableNetworkList: Pndu_WLAN_AVAILABLE_NETWORK_LIST;
pInterfaceGuid : PGUID;
SDummy :
AnsiString
;
begin
ResultInt:=WlanOpenHandle(
1
,
nil
, @dwVersion, @hClient);
try
if
ResultInt<> ERROR_SUCCESS
then
begin
WriteLn
(
'Error Open CLient'
+IntToStr(ResultInt));
Exit;
end
;
ResultInt:=WlanEnumInterfaces(hClient,
nil
, @pInterface);
if
ResultInt<> ERROR_SUCCESS
then
begin
WriteLn
(
'Error Enum Interfaces '
+IntToStr(ResultInt));
exit;
end
;
for
i :=
0
to
pInterface^.dwNumberOfItems -
1
do
begin
Writeln
(
'Interface '
+ pInterface^.InterfaceInfo[i].strInterfaceDescription);
WriteLn
(
'GUID '
+ GUIDToString(pInterface^.InterfaceInfo[i].InterfaceGuid));
Writeln
(
''
);
pInterfaceGuid:= @pInterface^.InterfaceInfo[pInterface^.dwIndex].InterfaceGuid;
ResultInt:=WlanGetAvailableNetworkList(hClient,pInterfaceGuid,WLAN_AVAILABLE_NETWORK_INCLUDE_ALL_ADHOC_PROFILES,
nil
,pAvailableNetworkList);
if
ResultInt<> ERROR_SUCCESS
then
begin
WriteLn
(
'Error WlanGetAvailableNetworkList '
+IntToStr(ResultInt));
Exit;
end
;
for
j :=
0
to
pAvailableNetworkList^.dwNumberOfItems -
1
do
Begin
WriteLn
(Format(
'Profile %s'
,[WideCharToString(pAvailableNetworkList^.Network[j].strProfileName)]));
SDummy:=
PAnsiChar
(@pAvailableNetworkList^.Network[j].dot11Ssid
.
ucSSID);
WriteLn
(Format(
'NetworkName %s'
,[SDummy]));
WriteLn
(Format(
'Signal Quality %d '
,[pAvailableNetworkList^.Network[j].wlanSignalQuality])+
'%'
);
SDummy:=DOT11_AUTH_ALGORITHM_To_String(pAvailableNetworkList^.Network[j].dot11DefaultAuthAlgorithm);
WriteLn
(Format(
'Auth Algorithm %s '
,[SDummy]));
SDummy:=DOT11_CIPHER_ALGORITHM_To_String(pAvailableNetworkList^.Network[j].dot11DefaultCipherAlgorithm);
WriteLn
(Format(
'Auth Algorithm %s '
,[SDummy]));
Writeln
(
''
);
End
;
end
;
finally
WlanCloseHandle(hClient,
nil
);
end
;
end
;
begin
try
Scan();
Readln;
except
on
E:Exception
do
Writeln
(E
.
Classname,
': '
, E
.
Message);
end
;
end
.
