Einzelnen Beitrag anzeigen

Benutzerbild von sk.Silvia
sk.Silvia

Registriert seit: 8. Feb 2006
Ort: Slovenia
90 Beiträge
 
Delphi 7 Personal
 
#13

Re: kopierschutz auch im Netzwerk???

  Alt 11. Mai 2008, 20:37
Zitat von Olli73:
Zitat:
Dann werd' ich mich mal nach der MAC-Adressen-Abfrage tummeln.
Also ich mache das folgendermaßen:

Delphi-Quellcode:
unit arp;


interface


uses
  sysutils, windows, winsock;


type
  TMacAddr = Array[0..5] of char;


function SendARP(DestIP: u_long; SrcIP: u_long; var MacAddr: TMacAddr;
                  var Len: u_long): DWORD; stdcall; external 'iphlpapi.dll';
function GetMacByIp(const IP: String): String;


implementation


function GetMacByIp(const IP: string): String;
var
  Mac: TMacAddr;
  i: Integer;
  L: integer;
  S: String;
begin
  for i := 0 to 5 do
    Mac[i] := #0;
  L := SizeOf(TMacAddr);
  SendARP(inet_addr(PChar(IP)), inet_addr(PChar('localhost')), Mac, L);
  S := '';
  for i := 0 to 5 do
    S := S + IntToHex(Ord(Mac[i]), 2) + '.';
  Delete(S, Length(S), 1);
  result := S;
end;


end.
hallo
und wie kann die MAC adresse andern ohne auf dass windows register zugreifen zummussen?
  Mit Zitat antworten Zitat