IPrange search

[-SkA-]

Hello,

Could someone make a script that searches *ALL* connected users founded in a specified IPrange?

Example: !checkiprange 213.140.0.1-213.140.255.255                  it will shows all connected users in that IPrange.

Thank you

[bastya_elvtars]

This can be heavy in big hubs.

[NightLitch]

--////////////////////////////////////////////
--// IP-RANGE SEARCHER
--// Requested by: -SkA-
--// Programmed by: NightLitch (2007)
--////////////////////////////////////////////
sCommand = "!iprangesearch"
--////////////////////////////////////////////
ChatArrival = function(user,data)
	data = string.sub(data,1,string.len(data)-1)
	local ok,_,cmd,arg = string.find(data, "%b<>%s(%S+)%s*(.*)")
	if ok then
		if cmd == sCommand and user.bOperator then
			local _,_,r1,r2 = string.find(arg, "(%d+%.%d+%.%d+%.%d+)%-(%d+%.%d+%.%d+%.%d+)")
			if r1 and r2 then
				local users = GetUsersInsideRange(ComputeIP(r1),ComputeIP(r2))
				local s = "*** Users inside "..r1.." - "..r2..": "
				s = s .. "\r\n"
				for i,nick in ipairs(users) do
					if i < 10 then
						s = s .. "\r\n\t   "..i..". "..nick
					else
						s = s .. "\r\n\t "..i..". "..nick
					end
				end
				s = s .. "\r\n"
				user:SendData(frmHub:GetHubBotName(), s)
			else
				user:SendData(frmHub:GetHubBotName(), "*** Invalid IP Range")
			end
			return 1
		end
	end
end

ComputeIP = function(ip)
	local _,_,a,b,c,d = string.find(ip, "(%d+).(%d+).(%d+).(%d+)")
	return a*16777216 + b*65536 + c*256 + d
end

GetUsersInsideRange = function(from,to)
	local tmp = {}
	for _,user in pairs(frmHub:GetOnlineUsers()) do
		local cip = ComputeIP(user.sIP)
		if cip >= from and cip <= to then
			table.insert(tmp, user.sName)
		end
	end
	return tmp
end

[6Marilyn6Manson6]

NightLitch go go LoL

[-SkA-]

Thank you NL but it doesn't works  ;D

[20:47:47] <??k®??> !iprangesearch 213.140.0.1-213.140.255.255

and no script errors

EDIT: now it works great, thank you very much