Please help rehash IPBOT

[Zigurds]

-----this bot work in PtokaX3.3.0 b16.24
--- no, my interest that work all subnets - example:  oAllow 213.182.192.0-213.182.192.255

Bot = "IP-Bots"
oAllow={}
function splittip(IP)
r,g,a,b,c,d = string.find(IP, "(%d*).(%d*).(%d*).(%d*)")
d=a.."."..b.."."..c.."."..d
c=a.."."..b.."."..c..".*"
b=a.."."..b..".*"
a=a..".*"
return a,b,c,d
end

function Main()
--frmHub:RegBot(Bot)
  oAllow["62.84.0.*"]=1
  oAllow["62.84.1.*"]=1
  oAllow["62.84.2.*"]=1
  oAllow["62.84.3.*"]=1
            
end
function NewUserConnected(curUser)
theIP=curUser.sIP
local a,b,c,d=splittip(theIP)
if ((oAllow[a]==1)or(oAllow==1)or(oAllow[c]==1)or(oAllow[d]==1)) then
else
curUser:SendPM(Bot,"This hub for Latvian users only ....")
--curUser:Ban()
curUser:Disconnect()
end
end

Sorry my bad English language
---------------------------------------
owner for Latvian hub Alfa

[Scanning]

Code:

--Made by nErBoS
--Fixed by Scanning
sBot = frmHub:GetHubBotName()

ipallowed = {
"62.84.0.0-62.84.255.255",
"62.84.1.0-62.84.255.255",
"62.84.2.0-62.84.255.255",
"62.84.3.0-62.84.255.255",
}    --From-To end

function NewUserConnected(user, data)
   if (IspChecker(user.sIP) == 0) then
      user:SendData(sBot, "Your IP is NOT allowed in this hub.")
      user:SendData("$ForceMove "..frmHub:GetRedirectAddress().."|")
   end
end

OpConnected = NewUserConnected

function IspChecker(IP)
   local accept = 0

   local s,e,ip1,ip2,ip3,ip4 = string.find(IP, "(%d+)%.(%d+)%.(%d+)%.(%d+)")
   local userIP = Addzero(ip1)..Addzero(ip2)..Addzero(ip3)..Addzero(ip4)
   userIP = tonumber(userIP)

   for i=1, table.getn(ipallowed) do
      local s,e,a1,a2,a3,a4,b1,b2,b3,b4 = string.find(ipallowed, "(%d+)%.(%d+)%.(%d+)%.(%d+)-(%d+)%.(%d+)%.(%d+)%.(%d+)")
      local aIP = Addzero(a1)..Addzero(a2)..Addzero(a3)..Addzero(a4)
      aIP = tonumber(aIP)
      local bIP = Addzero(b1)..Addzero(b2)..Addzero(b3)..Addzero(b4)
      bIP = tonumber(bIP)

      if (userIP >= aIP and userIP <= bIP) then
         accept = 1
         break
      end
   end
return accept
end

function Addzero(number)
   iAux = tonumber(number)
   if (iAux < 10) then
      number = "00"..number
   elseif (iAux < 100) then
      number = "0"..number
   else
      number = number
   end
return number
end

*I need moore coffe, the original was right :P but copy paste was wrong..*

[Zigurds]

thanks, good work

note warn: one error - not everywhere  "

"67.165.10.98-67.165.10.100",
"62.84.0.0-62.84.255.255, ????

[NightLitch]

place a " before the ,

"67.165.10.98-67.165.10.100",
"62.84.0.0-62.84.255.255", ????


correction:

ipallowed = {
"67.165.10.98-67.165.10.100",
"62.84.0.0-62.84.255.255",
"62.84.1.0-62.84.255.255",
"62.84.2.0-62.84.255.255",
"62.84.3.0-62.84.255.255",
} --From-To end

[Zigurds]

:) me already fine,  I warn other