Delphi XE2-如何获取指定网站的IP？

Question

我有一个程序，其中检查一个web服务器上的php文件，看看用户是否得到验证。PHP文件通过数据库运行，并检查和回声“已验证”。

现在，人们很容易绕过验证系统，安装Xampp，将我的服务器路由到他们主机文件中的127.0.0.1，然后设置一个回声验证的脚本。

我希望能够检查我的域名的IP地址，以检查它是否路由到127.0.0.1。

如何通过delphi解析域的IP地址？

Answer 1

我曾经使用类似的黑客来绕过ICQ服务器端验证。当我想测试未被邀请参加的alpha/beta版本时非常方便：-）

Delphi附带的Indy有一个TIdStack.ResolveHost（）函数和一个单独的TIdDNSResolver组件，两者都可以用来获取域的IP。它还有一个TIdStack.LocalAddresses属性来检索本地IPv4地址。或者您可以直接使用套接字APIgethostbyname（）或getaddrinfo（）函数，以及特定于平台的API来枚举本地IP，如Windows上的getAdapterAddresses（）函数。

然而，与其让PHP脚本简单地将纯文本回显到应用程序中，一个更安全的选项（不需要您验证IP）是让应用程序创建一个动态生成的nonce值并将其发送到PHP脚本，然后让脚本使用只有您知道的算法处理它，散列它，根据需要执行任何操作，然后将其发送回应用程序。应用程序可以执行相同的算法并比较结果。除非有人花时间对你的应用程序进行反向工程，否则他们将无法用自定义Xampp脚本复制你的算法或伪造结果。

更好的方法是，使用SSL/TLS加密您与域服务器的连接，并为域服务器提供一个SSL证书，在应用程序与PHP脚本交换任何数据之前，可以验证该证书。如果您只做了这么多，您可以继续使用纯文本回显，因为SSL/TLS将为您验证您是否已连接到域。