自动获取QQ服务器的方法

hcb · 发表于 2008-2-29 11:23:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

×

脚本如下:
#自动获取QQ服务器IP地址
#QQ服务器域名关键字,多个关键字之间用逗号分隔
:set QQ-STR "tencent,qqtcp"
#QQ地址列表名
:set QQ-LST "D-DST"
#取得DNS缓存的A记录
:set id [/ip dns cache all find type=A]
#对记录进行分析
:foreach i in=$id do={
#取得域名
  :set  dom [/ip dns cache all get $i name]
  :set fond "no"
#判断域名中是否有指定的关键字
  :foreach k in=$QQ-STR do={
:if([:find $dom $k]!=[:nothing]) do={:set fond "yes"}
}
#找到关键字的话，就把IP地址保存在指定地址列表中
  :if($fond="yes") do={
/ip firewall address-list add list=$QQ-LST disabled=no address=[/ip dns cache all get $i data]
}
  }
#清除缓存,以便寻找新的IP
/ip dns cache flush

适用于用ros的DNS作为内网DNS的环境，配合防火墙规则，可以很好的控制QQ的访问权限

[ 本帖最后由 hcb 于 2008-2-29 11:35 编辑 ]

tpy372 · 发表于 2008-2-29 14:49:09

我来坐沙发....

winepo · 发表于 2008-2-29 23:25:40

板凳

小狼 · 发表于 2008-11-15 13:21:31

马扎……

jimmyxing001 · 发表于 2008-11-16 09:48:14

支持一下，非常不许哦

myneptune · 发表于 2008-12-23 07:54:12

好牛的网络，不错的

13724965747 · 发表于 2009-3-7 22:04:52

hally · 发表于 2010-7-27 11:55:35

可惜，只能适用于2.9.X，不适用3.X.X
好人改下嘛

47771885 · 发表于 2010-7-27 19:29:33

可惜，只能适用于2.9.X，不适用3.X.X
好人改下嘛
hally 发表于 2010-7-27 11:55

登录/注册后可看大图

搜索核心代码

账号		自动登录	找回密码
密码			注册

[其它] 自动获取QQ服务器的方法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。