dns中转服务器源码dns中继服务器

保存本地数据库 数组 [4]' 如果ip地址为空，说明没有解析
md5 ＝ 到大写 (取数据摘要 (到字节集 (数组 [5])))
sql ＝ “SELECT time,ip FROM ” ＋ 取文本左边 (md5, 1) ＋ “ where md5='” ＋ md5 ＋ “';”
句柄 ＝ 外部数据库1.查询 (sql)
oldtime ＝ 到数值 (外部数据库1.读 (句柄, “time”))
.如果 (取启动时间 () － oldtime ＞ 本地缓存时间) ' 600000 取启动时间 比 取时间戳的速度要快100倍，所以这里没有用时间戳
' 如果超过10分钟就更新，否则取本地数据
新端口 ＝ 到数值 (数组 [6])
参数变量 ＝ 数组 [3] ＋ “#” ＋ 数组 [4] ＋ “#” ＋ 数组 [5] ＋ “#” ＋ 到文本 (新端口)
查询数据接收 (参数变量, 字节集变量, oldtime)
.否则
' 组装 dns传回数据
ip ＝ 到文本 (外部数据库1.读 (句柄, “ip”))
新数据 ＝ 生成dns数据 (取字节集左边 (字节集变量, 2), 数组 [5], ip) ' 数据头,域名,ip
客户信息.对方IP ＝ 数组 [3]
客户信息.对方端口 ＝ 到数值 (数组 [4])
数据报.发送 (客户信息, 新数据, 200)
输出调试文本 (“本地缓存读取用时：” ＋ 到文本 (取启动时间 () － 开始时间) ＋ “ 域名：” ＋ 数组 [5])
.如果结束
转发次数 ＝ 转发次数 ＋ 1 ' 记录转发次数
外部数据库1.关闭记录集 (句柄)