| Цитата(p0s0l @ 6.11.2004, 16:49) | | SendARP (inet_addr('127.0.0.1'), 0, ...) - не пашет... как им пользоваться ? |
К примеру вот так  :| Код | uses ... winsock;
...
function SendARP(DestIP:DWord; SrcIP:DWord; pMacAddr:PULONG;
PhyAddrLen:PULONG):DWORD; stdcall; external 'IPHLPAPI.DLL';
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetIP():string;
var WSAData:TWSAData;
p:PHostEnt;
hName:array [0..255] of Char;
begin
WSAStartup($101,WSAData);
GetHostName(hName,255);
p:=GetHostByName(hName);
Result:=inet_ntoa(PInAddr(p.h_addr_list^)^);
WSACleanup;
end;
function GetMacByIP(const sIP:string):string;
var DestIP:integer;
AddrLen:u_long;
MacAddr: array[1..6] of byte;
s:string;
i:integer;
begin
DestIP:=inet_addr(pchar(sIP));
AddrLen:=sizeof(MacAddr);
if (SendARP(DestIP,0,PULONG(@MacAddr),@AddrLen)=0)and(AddrLen>0) then
begin
for i:=1 to AddrLen-1 do s:=s+IntToHex(MacAddr[i],2)+'.';
s:=s+IntToHex(MacAddr[AddrLen],2);
end else s:='00.00.00.00.00.00';
Result:= s;
end;
... |
Использование: Caption:=GetMacByIP(GetIP) или Caption:=GetMacByIP('192.168.1.1')...
| Цитата(p0s0l @ 6.11.2004, 16:49) | | КАК БЫТЬ ? Какие идеи ? |
Ну... можно обратиться к таблице маршрутизации на прямую, т.е. воспользоваться INETMIB1.DLL: SnmpExtensionInit - Функция инициализации; SnmpExtensionQuery - Функция запроса; SnmpExtensionTrap - Обработчик ловушек.
Проверять, при неактивном сетевом подключении, не стал... так как считаю что привязка по MAC не есть гуд... Т.к. МАС можно изменить!
Поясню...:
1)Для некоторых сетевых карт можно заменить МАС адресс в настройках драйвера;
2)Для некоторых... устанавливая соответствующие ключи в реестре
3)Использование двух интерфейсов - готовых реализаций в инете полно
4)Самый простой и надежный способ! - Корректировать драйвер сетевой карты. Т.к. драйвер сетевой карты считывает MAC-адрес через стандартные порты ввода-вывода только на этапе инициализации! Чтение MAC-адреса происходит через порт XXX и определение его не составляет труда: смотрится диапазон ввода-вывода сетевой карты... к примеру он равен=AA00h...AA1Fh => тогда XXX=AA00h+10h=AA10h... ну а дальше SoftIce и bpio AA10 r и... и... я думаю поймеш дальше сам...
PS: Даже если ты сделаеш определение МАС адресса через порт(имхо: самый надежный спрособ ), то... не хороший юзер... все равно быстро енто отсечет и воспользуется 4 способом... но уже не для драйвера, а для твоей программы.
Удачи. |
