简单辅助图形数字5乘7_脚本验证

/<
lastmsg = ""
function 过验证()
  local str=获取NPC对话内容()
  if str:find("输入验证码") then
    if lastmsg==str then return end -- 防止重复过验证
    lastmsg=str
    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
 
    local wordLib  = {www"<[^/]+/SCOLOR=%d+>"}
    local wordLib1 = {www
      "<[^/]+/SCOLOR=66>","<[^/]+/SCOLOR=11>","<[^/]+/SCOLOR=17>","<[^/]+/SCOLOR=15>","<[^/]+/SCOLOR=16>",
      "<[^/]+/SCOLOR=18>","<[^/]+/SCOLOR=52>","<[^/]+/SCOLOR=50>","<[^/]+/SCOLOR=73>","<[^/]+/SCOLOR=165>",
      "<[^/]+/SCOLOR=164>","<[^/]+/SCOLOR=162>","<[^/]+/SCOLOR=117>","<[^/]+/SCOLOR=136>","<[^/]+/SCOLOR=137>"
          }
 
    local key =      {www
      {www"AAAAAABBBAABBBAABBBAABBBAABBBAAAAAA","0"},{www"BBBBABBBBABBBBABBBBABBBBABBBBABBBBA","1"},
      {www"AAAAABBBBABBBBAAAAAAABBBBABBBBAAAAA","2"},{www"AAAAABBBBABBBBAAAAAABBBBABBBBAAAAAA","3"},
      {www"ABBBAABBBAABBBAAAAAABBBBABBBBABBBBA","4"},{www"AAAAAABBBBABBBBAAAAABBBBABBBBAAAAAA","5"},
      {www"AAAAAABBBBABBBBAAAAAABBBAABBBAAAAAA","6"},{www"AAAAABBBBABBBBABBBBABBBBABBBBABBBBA","7"},
      {www"AAAAAABBBAABBBAAAAAAABBBAABBBAAAAAA","8"},{www"AAAAAABBBAABBBAAAAAABBBBABBBBAAAAAA","9"}
          }
   
    msg = maskMsg(str, wordLib1, "B")
    msg = maskMsg(msg, wordLib, "A")
    local num1=nil;local num2=nil;local num3=nil;local num4=nil
    local nn=""
    for a,b,c,d in msg:gmatch("([AB]+)[^AB]+([AB]+)[^AB]+([AB]+)[^AB]+([AB]+)[^AB]") do
      if num1 == nil then
        num1 = a;num2 = b;num3 = c;num4 = d
      else
        num1 = num1 .. a;num2 = num2 .. b;num3 = num3 .. c;num4 = num4 .. d
      end       
      nn = num1.." "..num2.." "..num3.." "..num4
      for _,i in ipairs(key) do
        nn = nn:gsub(i[1],i[2]) 
      end 
    end
    nn=nn:gsub(" ","")
    if #nn==4 then
      print("验证码为："..nn)
      合成命令(str:match("(@@[^>]+)"),nn)
      等待(1500)
    end
  end
end
过验证()  -- 回收验证保留此行，删除下面一行
设置用户检测("过验证",2000)  -- 脱机验证保留此行，删除上面一行
/>