Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Citanje MAC adrese

[es] :: Pascal / Delphi / Kylix :: Citanje MAC adrese

[ Pregleda: 5325 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

XGhost

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



+18 Profil

icon Citanje MAC adrese 07.01.2006. u 12:19 - pre 192 meseci
Jel neko zna jednostavnu proceduru za citanje MAC adrese mrezne karte, ili
nekog drugog jedinstvenog podatka sa hardvera. Treba mi za zastitu programa.
 
Odgovor na temu

Passwd

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



Profil

icon Re: Citanje MAC adrese 07.01.2006. u 12:52 - pre 192 meseci
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
 
Odgovor na temu

XGhost

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



+18 Profil

icon Re: Citanje MAC adrese 09.01.2006. u 02:39 - pre 192 meseci
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;
 
Odgovor na temu

Nemanja Avramović
Software architect
Tap medical
Beograd, Srbija

Član broj: 32202
Poruke: 4384
195.252.99.*

Sajt: https://avramovic.info


+45 Profil

icon Re: Citanje MAC adrese 09.01.2006. u 08:23 - pre 192 meseci
Pa verovatno da pozoves:
Code:
edit1.text:=GetMACAddress;

Evo ti u attachment-u demo... isprobaj

[Ovu poruku je menjao JaHvram dana 09.01.2006. u 09:31 GMT+1]
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Prikačeni fajlovi
 
Odgovor na temu

obucina

Član broj: 38191
Poruke: 723

Jabber: obucina


+7 Profil

icon Re: Citanje MAC adrese 09.01.2006. u 13:07 - pre 192 meseci
JCL ima vise funkcija za citanje informacija o sistemu. Medju njima i ovu.
 
Odgovor na temu

XGhost

Član broj: 33279
Poruke: 317
*.pppoe03-546.bih.net.ba.



+18 Profil

icon Re: Citanje MAC adrese 10.01.2006. u 19:35 - pre 192 meseci
Ne razumjem sta je JCL , jel neko zna jos neku proceduru za citanje podataka sa
hardvera (za HDD i Mreznu znam) npr neki broj sa maticne ploce.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Citanje MAC adrese

[ Pregleda: 5325 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.