Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

как узнать МАК-адрес сетевой карты 


ev   (2001-11-10 01:43) [0]

сабж, и s/n винта ?



lel   (2001-11-12 10:30) [1]

Боюсь это невозможно 8))
Например через NetBios, IpHlpApi.dll, SNMP
драйвер напиши в конце концов, к сожалению это не шутка...
Защита с помощью электронных ключей, статья есть на этом сайте, там есть пример первого метода.
Желаю удачи в темных делах.
С уважением Алексей.



Kirill   (2001-11-12 13:38) [2]

Попробуй это, не уверен (сам не пробовал):

uses NB30;

Function GetMACAdress:String;
Var
NCB : PNCB;
Adapter :PAdapterStatus;

URetCode :Pchar;
RetCode :char;
I : Integer;
Lenum : PlanaEnum;
_SystemID :String;
TMPSTR :String;
Begin
Result:="";
_SystemID:="";
Getmem(NCB,sizeof(TNCB));
Fillchar(NCB^,Sizeof(TNCB),0);

Getmem(Lenum,sizeof(TLanaEnum));
Fillchar(Lenum^,Sizeof(TLanaEnum),0);

Getmem(Adapter,sizeof(TAdapterStatus));
Fillchar(Adapter^,Sizeof(TAdapterStatus),0);

Lenum.Length:=chr(0);
NCB.ncb_command:=chr(NCBENUM);
NCB.ncb_buffer:=pointer(Lenum);
NCB.ncb_length:=sizeof(Lenum);
RetCode:=Netbios(NCB);

i:=0;
Repeat
Fillchar(NCB^,Sizeof(TNCB),0);
Ncb.ncb_command:= chr(NCBRESET);
Ncb.ncb_lana_num:=lenum.lana[I];
RetCode:= Netbios(Ncb);

Fillchar(NCB^,Sizeof(TNCB),0);
Ncb.ncb_command:= chr(NCBASTAT);
Ncb.ncb_lana_num:= lenum.lana[I];
// Must be 16
Ncb.ncb_callname:="* ";

Ncb.ncb_buffer:=pointer(Adapter);

Ncb.ncb_length:=sizeof(TAdapterStatus);
RetCode:= Netbios(Ncb);
//---- calc _systemId from mac-address[2-5] XOR mac-address[1]...
if (RetCode=chr(0)) or (RetCode=chr(6)) then
Begin
_SystemId:=inttohex(ord(Adapter.adapter_address[0]),2)+"-"+
inttohex(ord(Adapter.adapter_address[1]),2)+"-"+
inttohex(ord(Adapter.adapter_address[2]),2)+"-"+
inttohex(ord(Adapter.adapter_address[3]),2)+"-"+
inttohex(ord(Adapter.adapter_address[4]),2)+"-"+
inttohex(ord(Adapter.adapter_address[5]),2);

End;
inc(i);
until (I>=ord(Lenum.length)) or (_SystemID<>"00-00-00-00-00-00");
FreeMem(NCB);
FreeMem(Adapter);
FreeMem(Lenum);
GetMacAdress:=_SystemID;
End;



procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := GetMACAdress;
end;



Anatoly Podgoretsky   (2001-11-12 22:37) [3]

Только если это для защиты, то лучше пока не поздно остановиться.



ev   (2001-11-17 02:21) [4]

задача такая - надо привязать прогу к компьютеру, чтобы пользователь не подозревал об этом!

Если есть идеи - пишите.



iZEN   (2001-11-17 03:54) [5]

Интересно, а у виртуальной сетевой карточки (типа MS LoopBack) MAC-адрес тоже имеется?



Anatoly Podgoretsky   (2001-11-17 12:47) [6]

ev (17.11.01 02:21)

Мне нравится твой подход "чтобы пользователь не подозревал об этом!", а пользователям?



Dimka Maslov   (2001-11-17 14:15) [7]

http://www.swissdelphicenter.ch/en/forum/viewtopic.php?topic=2915&forum=2&1



ev   (2001-11-17 16:59) [8]

to Anatoly Podgoretsky © (17.11.01 12:47)

А кто пользователя спрашивать будет ?! ;)

Если пользователю сказать вид защиты, то она (защита) будет "сломана".
А если не говорить, то он будет думать, что это "глюк".




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.018 c
1-18884           Лана Розанова         2002-01-23 16:14  2002.02.07  
RichEdit


3-18705           kd                    2002-01-09 17:04  2002.02.07  
Midas


4-19020           ikar                  2001-12-08 13:51  2002.02.07  
Системные ловушки и VCL


1-18829           BJValentine           2002-01-19 16:20  2002.02.07  
Excel + Delphi=...


14-18988          borisich              2001-12-16 18:36  2002.02.07  
Собрался принтер покупать (струйный)