Как уникально идентифицировать физический сетевой адаптер в Delphi для защиты от перемещения приложения на другой компьютер

Delphi , Интернет и Сети , Сеть

Оригинальный заголовок:

Как найти MAC-адрес физического адаптера в Delphi

Введение:

MAC-адрес является уникальным идентификатором, который часто используется для идентификации устройства в локальной сети. В контексте защиты приложений от несанкционированного копирования и перемещения на другие компьютеры, MAC-адрес может быть использован как уникальный идентификатор устройства. Однако, стоит отметить, что MAC-адрес может быть изменен пользователем, что делает его не самым надежным способом идентификации. Тем не менее, в данной статье мы рассмотрим, как можно получить MAC-адрес физического адаптера в среде Delphi.

Тело статьи:

Для начала, рассмотрим пример кода, который позволяет получить список сетевых адаптеров и их MAC-адресов. Важно отметить, что на одном компьютере может быть несколько адаптеров, включая виртуальные, и для определения физического адаптера необходимо использовать дополнительные критерии.

program Program1;
{$APPTYPE CONSOLE}

uses
  SysUtils, ActiveX, ComObj, Variants;

procedure GetWin32_NetworkAdapterInfo;
var
  ElementCount: LongWord;
  FWMIService: OleVariant;
  FWbemObject: OleVariant;
  EnumVariant: IEnumVARIANT;
  FSWbemLocator: OleVariant;
begin
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
  FWbemObjectSet := FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapter WHERE PhysicalAdapter = 1', 'WQL', wbemFlagForwardOnly);
  EnumVariant := IUnknown(FWbemObjectSet._NewEnum) as IEnumVARIANT;
  while EnumVariant.Next(1, FWbemObject, ElementCount) = 0 do
  begin
    Writeln(Format('MACAddress: %s', [VarToStr(FWbemObject.MACAddress)]));
    // Обработка полученных данных
    FWbemObject := Unassigned;
  end;
end;

begin
  try
    CoInitialize(nil);
    try
      GetWin32_NetworkAdapterInfo;
    finally
      CoUninitialize;
    end;
  except
    on E:EOleException do
      Writeln(Format('EOleException %s %x', [E.Message, E.ErrorCode]));
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
  Writeln('Нажмите Enter для выхода');
  Readln;
end.

Важно использовать класс Win32_NetworkAdapter и его свойство PhysicalAdapter, которое позволяет отфильтровать виртуальные адаптеры.

Подтвержденный ответ:

Используйте класс Win32_NetworkAdapter с условием PhysicalAdapter = True для получения MAC-адресов физических адаптеров. Это позволит вам исключить из списка виртуальные адаптеры, такие как адаптеры виртуальных машин.

Альтернативный ответ:

Вы также можете использовать функцию GetAdaptersAddresses из библиотеки IP Helper. Для использования в Delphi, рекомендуется компонент Magenta Systems IP Helper Component.

Заключение:

Для идентификации физического сетевого адаптера в Delphi, можно использовать WMI и класс Win32_NetworkAdapter, обращая внимание на свойство PhysicalAdapter. Это позволит получить MAC-адрес реального адаптера, который можно использовать для уникальной идентификации устройства. Однако, следует помнить о потенциальных ограничениях и возможностях изменения MAC-адреса пользователем.

Примечание:

В зависимости от конкретных требований и ограничений, связанных с безопасностью и уникальностью идентификации, могут потребоваться дополнительные методы и проверки.

Создано по материалам из источника по ссылке.

Статья о том, как найти MAC-адрес физического сетевого адаптера в среде разработки Delphi, используя WMI и класс `Win32_NetworkAdapter`.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сеть ::