II
ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ
Ц
NetSessionEnumNT: furtctlon(servername,
UncClientName,
.
username: PWChar;
levehDWORD;
bufptnPointer;
prefmaxlen: DWORD;
.
entriesread,
totalentrles,
resumeJiandte:LPDWORD):DWORD; stdcall;
NetFileEnumNT:
function(servemame,
basepath,
usemamerPWChar;
levelrDWORD;
bufptnPointer;
prefmaxlen:DWORD;
entriesread,
totatentdes,
^
resumeJiandle;LPDWORD):DWORD; stdcall;
NetFileClose;
function(ServerName:PWideChar;
Fileld:DWORD):DWORD; stdcall;
NetSessionDelNT: function(ServerName,
UncCHentName,
Username:PWChar):DWORD; stdcall;
B C T a B K a 1
Ф N e tA P I. С та ти с ти ка п о д кл ю ч ем и и —
• 127.0.0.1 (УТЯ)
0:\фильньі\Рс»омя naHTBpa.avi
D:\wi-fi
Рис. 7. Детектор подключений.
Текущие сессии
Рис. 8. Детектор подключений.
“Все чисто”
!ЧеГАР1. У В а с г о с т ь и з ч е р н о го с п и с к а !
Блокировано чтение файла:
C:\cds\FTP\pecypcbi зтой машины
По адресу 10.0.86.124 выслано предупреждение.
..
Рис. 9. Детектор подключений.
Режим блокировки сессий
вставка 2
setlength(lp_ses,0);
//массив IP
setlength(name_ses,0);
//массив юзеров по сессиям
settength(name_file,0);
//массив юзеров по файлам и папкам
setlength(path_fite,0); // массив папок и файлов
//
FLibHandle:= l_oadLibraryfNETAPI32.DLL”);
if FLibHandle = 0 then Exit;
@ NetSessionEnumNT:= GetProcAddress(FLibHandte. “NetSessionEnum");
Sesslonlnfo502:= nil;
if NetSessionEnumNT{nil,nil,nll>502,@Sessionlnfo502lDWORD('1).@entriesreadNT, ©totalentries, nil)=0 then begin
for i:=0 to EntriesReadNT-1 do begin
settength(ip_ses,fength(ipjses)+1); //IP
ip_ses[lerigth(ip_ses)-1 J:s= stnng(Sessionlnfo502A{i].sesi502_cnarne);
setlength(name_ses,lerigth(name_ses)+1); ШАМЕ
name_ses[length(name_ses)-1 ]:= Sessionlnfo502A{i].sesi502_usemame
end
end else gl_mlg:= false;
//скан по файлам*
©NetFileEnumNT:= GetProcAddress(FUbHandle, “NetFlleEnum”);
if not Assigned(NetFileEnumNT) then begin FreeUbrary(FUbHandle); Exit, end;
FilelnfoNT:= nil;
if NetRleEnumNT/nil.hil.nit.S.eFilelnfoNT.DWORDC-IJ.eentriesreadNT, ©totalentries, nil)=0 then begin
//проверяем “чтение” файла и выставляем флаг смены маски в иконке (мигание)
If EntriesReadNT > 0 then gl_mig:= not gLmig else gl_mlg:= false;
//
for 1:=0 to EntriesReadNT-1 do begin
setlength(path_file,length(path_flle)+1); //PATH
path_filePength(path_flle)-1 ]:= FilelnfoNTA(i).fi3_pathname;
setlength(name_file,length(name_file)+1); ШАМЕ
nameJile[iength{narmjfife},'1J:= FilelnfoNTA[i].fi3_usemame
end
end;
FreeLibrary(FLibHandle);
Итак, если у вас на компьютере просматривают се-
тевые папки или файлы, то в трее иконка начнет ми-
гать и при клике левой кнопкой мыши вы увидите -
“кто и что" (см. рис. 7).
При отсутствии сессий - угроза отсутствует** (см.
рис. 8).
поклонники Стива Мартина поймут.
..
10
и Радиолюбитель - 0 8 /2 0 0 8
предыдущая страница 10 Радиолюбитель 2008-08 читать онлайн следующая страница 12 Радиолюбитель 2008-08 читать онлайн Домой Выключить/включить текст