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

← →
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-адрес тоже имеется?

ev (17.11.01 02:21)

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

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)

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

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

как узнать МАК-адрес сетевой карты Найти похожие ветки