Vot takoy voprosik u menya....

← →
Aralekin © (2002-09-26 19:41) [0]

Kak v seti mojno uznat` chto kto-to kopiruet file? Ponimayu chto glupiy vopros....no pomogite, Please...

← →
Rouse_ © (2002-09-27 00:56) [1]

Вопрос не глупый, но не конкретный, что ты подрузамеваешь под копированием? Копирует файл у тебя или еще откуда. Больше конкретики.

Желаю успехов

← →
Aralekin © (2002-09-27 09:10) [2]

Ооо....клава русская врубилась....

Так.
Значит вот ткая задача:
Надо узнать что творится в локалке.
Например, Юзверь Паша отправляет немеский поронофильм размером более 50 Мб Юзверю Маше в надежде, что ей это понравится. Нас не интересует понравится ли немеский поронофильм Юзверю Маше и что у них будет сегодня вечером.
Нас интересует другое - а точнее сам процесс передачи в сеть этого немеского поронофильма размером более 50Мб.
Как это отловить с другой машины, к примеру, с моей?
Если это не возможно, то как это можно отловить на локальной машине?

воот такой вопросик...

← →
. (2002-09-27 12:45) [3]

если ты не между ними то только троянами

← →
Aralekin © (2002-09-27 17:01) [4]

Хорошо.Троян так троян. Но тогда возникает другой вопрос: Как перехватить процесс копирования?...тока не надо давать ответы типа "Ставь хук" и т.д. Это я и так понимаю . Мне нужен пример Если можно...

← →
Rouse_ © (2002-09-27 23:57) [5]

> если ты не между ними то только троянами

Это верно, а если ты на той машине на которую сливают файл то следующим образом

type
TFileInfo50 = packed record
fi50_id : Cardinal;
fi50_permissions : WORD;
fi50_num_locks : WORD;
fi50_pathname : PChar;
fi50_username : PChar;
fi50_sharename : PChar;
end;

function ShowFiles;
var FLibHandle : THandle;
FileInfo50: array [0..512] of TFileInfo50;
EntriesRead,TotalAvial: Word;
begin
try
FLibHandle := LoadLibrary("SVRAPI.DLL");
if FLibHandle <> 0 then
try
@NetFileEnum := GetProcAddress(FLibHandle, "NetFileEnum");
NetFileEnum (nil,nil,50,@FileInfo50,SizeOf(FileInfo50),@EntriesRead,@TotalAvial);
if EntriesRead >0 then
memo1.lines.add(string(FileInfo50[i].fi50_username));
memo1.lines.add(string(FileInfo50[i].fi50_pathname));
end;
end;
end;

Пример для 98 - Ме

Если нужно для NT, пиши в эту же конфу

Желаю успехов

← →
Rouse_ © (2002-09-28 00:00) [6]

Забыл указать обьявление функции, вот оно

var NetFileEnum: function (servername,basepath:PChar;level:DWORD;bufptr:Pointer;cbBuffer:DWORD;entriesread,totalentries:pointer):integer; stdcall;

Желаю успехов

Блин, ну что-то я сеня склерозом страдаю

@NetFileEnum := GetProcAddress(FLibHandle, "NetFileEnum");
NetFileEnum (nil,nil,50,@FileInfo50,SizeOf(FileInfo50),@EntriesRead,@TotalAvial);
if EntriesRead >0 then
memo1.lines.add(string(FileInfo50[i].fi50_username));
memo1.lines.add(string(FileInfo50[i].fi50_pathname));

Естественно в цикл заключить
for i:=0 to EntriesRead-1 do begin

end;

PS:Надеюсь теперь ничего не забыл :)

Желаю успехов

2 Rouse_ :
Большое спасябо. Надо будет разобраться с кодом в выходные.
А вот че эта за библиотека такая SVRAPI.DLL? че там содержится?

Это стандартная библиотека из 98 Windows ее аналог в NT - netapi32.dll

В ней содержаться функции по мониторингу сетей такие как
NetSessionEnum
NetFileEnum
NetSessionDel
NetShareEnum
NetShareAdd
NetShareDel
NetFileClose и т.д.
(я скоро сделаю статью по этому поводу и выложу ее на этом сайте) - более подробно можно узнать в МСДН, если будут вопросы задавайте здесь с удовольствием отвечу.

Желаю успехов

PS. ув. Aralekin, не могли бы вы еще раз заскочить на мою ветку по вопросу двух IP там кое что не до конца получилось

Vot takoy voprosik u menya.... Найти похожие ветки