Форум: "Сети";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Вниз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;
Желаю успехов
← →
Rouse_ (2002-09-28 00:05) [7]Блин, ну что-то я сеня склерозом страдаю
@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:Надеюсь теперь ничего не забыл :)
Желаю успехов
← →
Aralekin (2002-09-28 10:58) [8]2 Rouse_ :
Большое спасябо. Надо будет разобраться с кодом в выходные.
А вот че эта за библиотека такая SVRAPI.DLL? че там содержится?
← →
Rouse_ (2002-09-28 17:11) [9]Это стандартная библиотека из 98 Windows ее аналог в NT - netapi32.dll
В ней содержаться функции по мониторингу сетей такие как
NetSessionEnum
NetFileEnum
NetSessionDel
NetShareEnum
NetShareAdd
NetShareDel
NetFileClose и т.д.
(я скоро сделаю статью по этому поводу и выложу ее на этом сайте) - более подробно можно узнать в МСДН, если будут вопросы задавайте здесь с удовольствием отвечу.
Желаю успехов
PS. ув. Aralekin, не могли бы вы еще раз заскочить на мою ветку по вопросу двух IP там кое что не до конца получилось
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.01 c