传奇回收验证码图形数字5乘8:
/<
function maskMsg ( text, set, repl )
if #text <= 0 then
return text
end
local function maskor ( str )
return repl or string.rep( "*", #str )
end
for k, str in pairs(set) do
text = text:gsub( str, maskor(str) )
end
return text
end
wordLib = {"%d%d"}
wordLib1 = {""}
key = {
{"BAAABABBBAABBBAABBBAABBBAABBBAABBBABAAAB","0"},
{"BBABBBAABBBBABBBBABBBBABBBBABBBBABBBAAAB","1"},
{"BAAABABBBAABBBABBBABBBABBBABBBABBBBAAAAA","2"},
{"BAAABABBBABBBBABBAABBBBBABBBBAABBBABAAAB","3"},
{"BBBABBBAABBABABBABABABBABBAAAABBBABBBBAA","4"},
{"AAAAAABBBBABBBBAAAABBBBBABBBBAABBBABAAAB","5"},
{"BAAABABBABABBBBAAAABABBBAABBBAABBBABAAAB","6"},
{"AAAAAABBABBBBABBBABBBBABBBBABBBBABBBBABB","7"},
{"BAAABABBBAABBBABAAABABBBAABBBAABBBABAAAB","8"},
{"BAAABABBBAABBBAABBBABAAAABBBBABABBABAAAB","9"}
}
lastmsg=""
function 过验证()
local a=获取NPC对话内容()
if a==lastmsg then return end
lastmsg=a
if a:find("聊天框内输入显示") then
a = maskMsg ( a, wordLib, "A")
a = maskMsg ( a, wordLib1, "B")
num1,num2,num3,num4="","","",""
local nn=""
for k in a:gmatch("([AB][AB]+)") do
a,b,c,d = k:match("([AB][AB][AB][AB][AB])B([AB][AB][AB][AB][AB])B([AB][AB][AB][AB][AB])B([AB][AB][AB][AB][AB])B")
if not a then
a,b,c=k:match("([AB][AB][AB][AB][AB])B([AB][AB][AB][AB][AB])B([AB][AB][AB][AB][AB])B")
end
if not a or not b or not c then break end
if not d then d="" end
num1 = num1 .. a;num2 = num2 .. b;num3 = num3 .. c;num4 = num4 .. d
nn = num1.." "..num2.." "..num3.." "..num4
end
for _,i in ipairs(key) do
nn = nn:gsub(i[1],i[2])
end
nn=nn:gsub(" ","")
if #nn > 1 then
喊话(nn)
等待(1500)
end
end
end
过验证() -- 回收验证保留此行,删除下面一行
设置用户检测("过验证",2000) -- 脱机验证保留此行,删除上面一行
/>