ISP Blocker
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

ISP Blocker

Started by bastya_elvtars, 01 January, 2005, 15:14:13

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

bastya_elvtars

Requested in the other board. Inaccurate, but maybe someone can use it.

-- SimpleHostBlock by bastya_elvtars
-- warning: hostnames do NOT always resolve


blocked=
{
["u-szeged.hu"]=1, -- enter many hostnames, if you set 1, it will be blocked. Set to 0 if you wanna stop blocking it. (hmm this 1 is my hostname ;))

["hostname2"]=0,
}

block_partial=1 -- 1 to block partial ISP's, 0 to not.

partial={ -- should not contain the following chars:+$%[]()
		-- rules for syntax are same as above
["VPN"]=1,
["LMFAO"]=0,

}


function NewUserConnected(user)
	if tohostname(user.sIP) then
		if blocked[tohostname(user.sIP)]==1 then
			user:SendData("ISPChk","Your ISP/IP is not allowed here.")
			user:Disconnect()
			return 1
		elseif block_partial==1 then
			partialispchk(user)
		end
	end
end

function partialispchk(user)
	local _,_,isp=tohostname(user.sIP)
	for a,b in partial do
		if b==1 and strfind(isp,a) then
			user:SendData("ISPChk","Your ISP/IP is not allowed here.")
			user:Disconnect()
			return 1
		end
	end
end
Everything could have been anything else and it would have just as much meaning.

SMF spam blocked by CleanTalk