Print Page - Please help rehash IPBOT

Title: Please help rehash IPBOT
Post by: Zigurds on 04 March, 2005, 16:43:50

-----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

Title: LUA5
Post by: Scanning on 04 March, 2005, 17:01:16

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..*

Title:
Post by: Zigurds on 04 March, 2005, 19:34:09

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, ????

Title:
Post by: NightLitch on 04 March, 2005, 20:59:22

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

Title:
Post by: Zigurds on 04 March, 2005, 21:21:32

:) me already fine, I warn other

PtokaX forum

Archive => Archived 5.0 boards => Request for scripts => Topic started by: Zigurds on 04 March, 2005, 16:43:50