[es] - Citanje MAC adrese

XGhost

Član broj: 33279
Poruke: 149
*.pppoe744.bih.net.ba.

Profil

^{07.01.2006. u 12:19}

Jel neko zna jednostavnu proceduru za citanje MAC adrese mrezne karte, ili
nekog drugog jedinstvenog podatka sa hardvera. Treba mi za zastitu programa.

^{07.01.2006. u 12:19}

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Citanje MAC adrese

^{07.01.2006. u 12:52}

Sve ti se to lako provali..evo ti primjer u attachu za citanje info o HDD-u..

edit:
http://www.elitesecurity.org/tema/140509/2#927418

_{[Ovu poruku je menjao Passwd dana 07.01.2006. u 14:10 GMT+1]}

Prikačeni fajlovi

HDDSerial.zip - 44.17k

^{07.01.2006. u 12:52}

XGhost

Član broj: 33279
Poruke: 149
*.pppoe1517.bih.net.ba.

Profil

Re: Citanje MAC adrese

^{09.01.2006. u 02:39}

Evo nasao sam ovo, samo sta tebam da uradim da dobijem tekst MAC adrese
npr u Edit ili Memo komponentu
******************************
uses
NB30;

function GetAdapterInfo(Lana: Char): String;
var
Adapter: TAdapterStatus;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBRESET);
NCB.ncb_lana_num := Lana;
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := 'mac not found';
Exit;
end;

FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBASTAT);
NCB.ncb_lana_num := Lana;
NCB.ncb_callname := '*';

FillChar(Adapter, SizeOf(Adapter), 0);
NCB.ncb_buffer := @Adapter;
NCB.ncb_length := SizeOf(Adapter);
if Netbios(@NCB) <> Char(NRC_GOODRET) then
begin
Result := 'mac not found';
Exit;
end;
Result :=
IntToHex(Byte(Adapter.adapter_address[0]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[1]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[2]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[3]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[4]), 2) + '-' +
IntToHex(Byte(Adapter.adapter_address[5]), 2);
end;

function GetMACAddress: string;
var
AdapterList: TLanaEnum;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB), 0);
NCB.ncb_command := Char(NCBENUM);
NCB.ncb_buffer := @AdapterList;
NCB.ncb_length := SizeOf(AdapterList);
Netbios(@NCB);
if Byte(AdapterList.length) > 0 then
Result := GetAdapterInfo(AdapterList.lana[0])
else
Result := 'mac not found';
end;

^{09.01.2006. u 02:39}

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3989
195.252.99.*

ICQ: 266136396
Sajt: www.avramovic.info

Profil