12

我正在使用GetHostByName从主机/DNS 获取 IP 地址。我也有 Kaspersky Internet Security 2013 并注意到它GetHostByName被它选中了。似乎我的进程试图在hklm\SYSTEM\CONTROLSET001\SERVICES\TCPIP\PARAMETERS. 这实际上意味着，如果用户没有任何管理员权限，我将无法使用此功能。有没有其他方法可以解析主机/dns？

编辑：这里是截图：

在此处输入图像描述

EDIT2：我实际上使用了 getaddrinfo 并且 KIS 没有“检测到任何东西”。我想使用它，但我仍然希望支持 Win2K。

EDIT3：添加了调试屏幕截图

在此处输入图像描述

EDIT4：这是我的“测试”代码：

program Project2;

{$APPTYPE CONSOLE}

uses
  Winsock;

var
    DummyWSA : WSADATA;

begin
  if WSAStartup($0202, DummyWSA) = 0 then begin
    GetHostByName ('localhost');
  end;
  readln;
end.

EDIT5：GetAddrInfo 版本...

program Project2;

{$APPTYPE CONSOLE}

uses
  Winsock;

type
  PAddrInfo = ^TAddrInfo;
  TAddrInfo = packed record
    ai_flags: Integer;
    ai_family: Integer;
    ai_socktype: Integer;
    ai_protocol: Integer;
    ai_addrlen: LongWord;
    ai_canonname: Array of Char;
    ai_addr: PSOCKADDR;
    ai_next: PAddrInfo;
  end;

function getaddrinfo(const nodename: PChar; const servname : PChar; const hints: PAddrInfo; var res: PAddrInfo): Integer; stdcall; external 'ws2_32.dll' name 'getaddrinfo';
procedure freeaddrinfo(ai: PAddrInfo); stdcall; external 'ws2_32.dll' name 'freeaddrinfo';

var
  DummyWSA      : WSADATA;
  SocketHint    : PAddrInfo;
  SocketResult  : PAddrInfo;

begin
  if WSAStartup($0202, DummyWSA) = 0 then begin
    //GetHostByName ('localhost');
    getaddrinfo ('localhost', '80', SocketHint, SocketResult);
    // getaddrinfo ('localhost', NIL, SocketHint, SocketResult); // Not sure if I can NIL the port...
  end;
  readln;
end.

此版本似乎根本没有向注册表写入任何内容...

4

1 回答 1

15

gethostbyname()是通过 DNS 查询主机名的正确方法（getaddrinfo()是更好的选择，尤其是在您需要支持 IPv6 的情况下），而且绝对不仅限于管理员。许多应用程序使用gethostbyname()（和/或getaddrinfo()），因此卡巴斯基不太可能阻止它。

为什么您认为这gethostbyname()是创建注册表项？实际创建的是什么？它不应该创造任何东西。这可能表明某些外部代码已挂接到gethostbyname().

于 2013-03-06T19:01:51.527 回答