【更多今日新开奇迹私服点这里查看．．．】

刚刚发现有人使用中文版GS，日志也是中文的，请知道关键字的朋友贴上去


已知中文日至为：输入密码时间太长



本人测试25兆日志文件查找时间不到10秒


CPU：志强2.4*2
主板：泰安
内存：512 DDR ECC


事先声明，程序不够理想，还有很多不尽人意的地方


1、目前只能查出定点刷怪，其他如（复制）、（全屏检）由于没找到日志关键字，无法实现
2、程序可自定义是否自动封停，可自定义举报的可信度，具体在配置区修改
3、由于本人最近忙于其他事物，此程序发布时间延后较长。为了尽早发放，故未经过严格测试，如果有错误，请及时通知
4、参考网站，www.klq8.net （最好31日后参考，我还没联系上此人为我最终测试）


本程序前台为梦之奇迹104版，共3个文件
zxjb.asp 在线举报系统
ftlb.asp 封停公告系统
inc_ft.asp 程序菜单


后台稍后发出


本程序需要新建两个数据表
表名：zxjb_info
键列信息：
(jbchr) [nvarchar] 50
(bjbchr) [nvarchar] 50
(jf) [int] 4
(dt) [int] 4
(xz) [int] 4
(yz) [int] 4
(bz) [nvarchar] 50
(date_info) [smalldatetime] 4
(jjf) [int] 4


表名：hmd_info
键列信息：
(memb___id) [nvarchar] 50
(chr) [nvarchar] 50
(lx) [int] 4
(jf) [int] 4
(date_info) [smalldatetime] 4
(ft) [int] 4


备注：()为列名，[]为类型，后面为长度


------------------------------------------------------------------------------------------------------------------------------------


ftlb.asp

封停列表 <% set rs1 = Server.CreateObject("ADODB.Recordset") sql1="select * from hmd_info where ft=1 order by date_info desc" rs1.open sql1,conn,1,1 for i=1 to 20 if rs1.eof or rs1.bof then exit for Response.Write"" Response.Write"" Response.Write"" if rs1("lx")="1" then Response.Write"" if rs1("lx")="2" then Response.Write"" if rs1("lx")="3" then Response.Write"" if rs1("lx")="4" then Response.Write"" Response.Write"" rs1.movenext next rs1.close set rs1=nothing %> 账户 角色 封停时间 原因 "&rs1("memb___id")&" "&rs1("chr")&" "&rs1("date_info")&" 使用外挂 恶意举报 非法物品 其他原因

inc_ft.asp

封停列表

在线举报

zxjb.asp


<%
zdft=0 0:列入黑名单，1:列入黑名单并自动封停

zbfw=20 判断举报角色坐标的偏移半径，超过超过偏移量视为恶意举报

jbkxd=10 举报的可信度，超过可信度将列入黑名单

levl50=0 50级以下角色的可信度
levl150=1 低于150级角色的可信度
levl250=2 100-250级角色的可信度
levlmax=3 超过250级角色的可信度

eyjb=30 错误举报超过此数量则列入恶意举报黑名单，取消举报资格，设为0:不限制

fxft=0 0:恶意举报不封停举报人，1:恶意举报将反响封停举报人

jgdate=1 用户连续举报同一角色间隔天数，0:不限制(建议限制天数)

yxdate=15 名单有效期限，超过有效期限的纪录不计算可信度

ontime=8 午夜0点至当前小时不开放此服务，由于日志更新原因，为保证是别的准确率，尽量暂停开放一段时间

jbsl=100 限制每天举报的数量，跟9C差不多，0:不限制

filedir="d:\MuServer\GameServer\log\" GS日志路径

wglog="Too long time passed after casting magic." 外挂关键字,请不要随意更改


hk=0
user=request.form("user")
jbchr=request.form("jbchr")
pw=request.form("pw")
bjbchr=request.form("bjbchr")
dt=request.form("dt")
xz=request.form("xz")
yz=request.form("yz")
lx=request.form("lx")
bz=request.form("bz")
jf=request.form("jf")

if instr(user,"")<>0 then hk=1
if instr(user,"=")<>0 then hk=1
if instr(user,"%")<>0 then hk=1
if instr(jbchr,"")<>0 then hk=1
if instr(jbchr,"=")<>0 then hk=1
if instr(jbchr,"%")<>0 then hk=1
if instr(pw,"")<>0 then hk=1
if instr(pw,"=")<>0 then hk=1
if instr(pw,"%")<>0 then hk=1
if len(user)>10 then hk=1
if len(jbchr)>10 then hk=1
if len(pw)>16 then hk=1
if hour(time())response.write ""
response.end
end if
if hk<>0 then
response.write ""
response.end
end if
if user<>"" and jbchr<>"" and pw<>"" then
if dt<>"no" and xz<>"" and yz<>"" and bjbchr<>"" and lx<>"no" and len(bz)>0 and len(bz)<100 then
set rs3 = Server.CreateObject("ADODB.Recordset")
sql3="select * from Character where Name="&bjbchr&""
rs3.open sql3,conn,1,1
if rs3.eof or rs3.bof then
response.write ""
response.end
end if
set rs5 = Server.CreateObject("ADODB.Recordset")
sql5="select * from hmd_info where memb___id="&user&" and chr="&jbchr&" and date_info>"&date()-yxdate&""
rs5.open sql5,conn,1,1
if rs5.eof or rs5.bof then
else
response.write ""
response.end
end if
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="select * from zxjb_info where bjbchr="&bjbchr&" and jbchr="&jbchr&" and date_info>"&date()-jgdate&""
rs4.open sql4,conn,1,1
ey=0
if rs4.eof or rs4.bof then
else
ey=1
end if
response.write "地图号:["&dt&"]("&rs3("MapNumber")&")
"
response.write "X:["&xz&"]("&rs3("MapPosX")&")|Y:["&yz&"]("&rs3("MapPosY")&")
"
response.write "恶意判定:["&ey&"]"
if rs3("MapNumber")=int(dt) and xz+zbfw>rs3("MapPosX") and xz-zbfwrs3("MapPosY") and yz-zbfwelse
response.write ""
response.end
end if
if mid(date(),8,1)="-" then
da=mid(date(),1,4)&mid(date(),6,2)
if len(date())=10 then
da=da&mid(date(),9,2)
else
da=da&"0"&mid(date(),9,1)
end if
else
da=mid(date(),1,4)&"0"&mid(date(),6,1)
if len(date())=9 then
da=da&mid(date(),8,2)
else
da=da&"0"&mid(date(),8,1)
end if
end if

filepath=filedir&da&"_Mu.log"
set mulog=server.createobject("scripting.filesystemobject")
if not mulog.fileExists(filepath) then
response.write "
日志文件没找到，请与管理员联系!"
response.end
else
set f1=mulog.opentextfile(filepath)
end if
userlog=0
do while not f1.atEndOfStream
n=f1.readline
if instr(n,wglog)<>0 and instr(n,bjbchr)<>0 then
userlog=1
exit do
end if
loop
f1.colst
if ey=0 and userlog=1 then
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="INSERT INTO zxjb_info (bjbchr,jbchr,jf,dt,xz,yz,bz,date_info,jjf) VALUES ("&bjbchr&","&jbchr&","&jf&","&dt&","&xz&","&yz&","&bz&","&date()&" "&time()&",0)"
set rs4=conn.execute(sql4)
rs4.close
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="select * from zxjb_info where bjbchr="&bjbchr&" and date_info>"&date()-yxdate&""
rs4.open sql4,conn,1,1
n=0
ft=0
for i=1 to rs4.recordcount
n=rs4("jf")+n
rs4.movenext
next
检查可信度
if n>jbkxd then
如果开启自动封停
if zdft=1 then
set rsft = Server.CreateObject("ADODB.Recordset")
sqlft="select * from MEMB_INFO where memb___id = "&rs3("AccountID")&""
rsft.open sqlft,conn,1,3
rsft("bloc_code")="1"
rs1.update
rs1.close
ft=1
end if
set rs5 = Server.CreateObject("ADODB.Recordset")
sql5="select * from hmd_info where memd___id="&fengid&""
rs5.open sql5,conn,1,3
if rs5.eof or rs5.bof then
sql5="INSERT INTO hmd_info (memb___id,chr,lx,jf,date_info,ft) VALUES ("&rs3("AccountID")&","&bjbchr&",1,"&n&","&date()&" "&time()&","&ft&")"
set rs5=conn.execute(sql5)
else
rs5("chr")=bjbchr
rs5("lx")="1"
rs5("jf")=rs5("jf")+jf
rs5("date_info")=date()&" "&time()
rs5("ft")=ft
rs5.update
rs5.close
end if
if ft=1 then
response.write ""
else
response.write ""
end if
response.write "ftlb.asp"
response.end
else
response.write ""
response.write "ftlb.asp"
response.end
end if
else
er="未检测到对方的可疑迹象，"
if ey=1 then er="您的重复举报将被视为恶意举报，"
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="INSERT INTO zxjb_info (bjbchr,jbchr,jf,dt,xz,yz,bz,date_info,jjf) VALUES ("&bjbchr&","&jbchr&",0,"&dt&","&xz&","&yz&","&bz&","&date()&" "&time()&","&jf&")"
set rs4=conn.execute(sql4)
rs4.close
set rs4 = Server.CreateObject("ADODB.Recordset")
sql4="select * from zxjb_info where jbchr="&jbchr&" and date_info>"&date()-yxdate&""
rs4.open sql4,conn,1,1
n=0
ft=0
for i=1 to rs4.recordcount
n=rs4("jjf")+n
rs4.movenext
next
检查可信度
if n>eyjb and eyjb<>0 then
如果开启自动封停
if fxft=1 then
set rsft = Server.CreateObject("ADODB.Recordset")
sqlft="select * from MEMB_INFO where memb___id = "&user&""
rsft.open sqlft,conn,1,3
rsft("bloc_code")="1"
rs1.update
rs1.close
ft=1
end if
set rs5 = Server.CreateObject("ADODB.Recordset")
sql5="select * from hmd_info where memd___id="&fengid&""
rs5.open sql5,conn,1,3
if rs5.eof or rs5.bof then
sql5="INSERT INTO hmd_info (memb___id,chr,lx,jf,date_info,ft) VALUES ("&user&","&jbchr&",2,"&n&","&date()&" "&time()&","&ft&")"
set rs5=conn.execute(sql5)
else
rs5("chr")=jbchr
rs5("lx")="2"
rs5("jf")=rs5("jf")+jf
rs5("date_info")=date()&" "&time()
rs5("ft")=ft
rs5.update
rs5.close
end if
if ft=1 then
response.write ""
else
response.write ""
end if
response.write "ftlb.asp"
response.end
else
response.write ""
response.write "ftlb.asp"
response.end
end if
end if
else
if request.form("tj")<>"" then
response.write ""
response.end
end if
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from MEMB_INFO where memb___id = "&user&" and memb__pwd="&pw&""
rs1.open sql1,conn,1,1
if rs1.eof or rs1.bof then
response.write ""
response.end
end if
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from Character where AccountID="&user&" and Name="&jbchr&""
rs2.open sql2,conn,1,1
if rs2.eof or rs2.bof then
response.write ""
response.end
end if
%>

[<%=jbchr%>]在线举报 <% jf=levl50 if rs2("cLevel")>50 then jf=levl150 if rs2("cLevel")>150 then jf=levl250 if rs2("cLevel")>250 then jf=levlmax response.write "["&user&"]["&jbchr&"]["&jf&"]["&pw&"]" %> > > > >举报的角色名称 所在地图 ----请选择---- 勇者大陆 地下城 冰封谷 仙踪林 失落之塔 亚特兰蒂斯 死亡沙漠 天空之城 所在坐标 X 举报类型 ----请选择---- 定点耍怪 自动捡物 复制物品 详细说明 <% set rsmd = Server.CreateObject("ADODB.Recordset") sqlmd="select * from zxjb_info where jbchr = "&jbchr&"" rsmd.open sqlmd,conn,1,3 if rsmd.eof or rsmd.bof then response.write "" else for i=1 to rsmd.pagecount if rsmd("date_info")+15>date()&" "&time() then response.write "" set rsft = Server.CreateObject("ADODB.Recordset") sqlft="select * from hmd_info where bjbchr = "&rsmd("bjbchr")&"" rsft.open sqlft,conn,1,3 if rsft.eof or rsft.bof or rsft("ft")="0" then response.write "" else response.write "" end if rsft.close end if rs.movenext next response.write " 举报名单 被举报人 举报时间 处理结果 暂时没有举报纪录 "&rsmd("bjbchr")&" "&rsmd("date_info")&" 正在查实 封停账户 " end if %>