Anti Child-Porn

[QuikThinker]

Can sum1 convert this script pls?

-- pm to ops chat of any one
-- searching for bad files
-- by ??????Hawk??????  
-- 28-06-2004
-- fixed by ? Empie ?
-- 11-08-2004
-- Exclude user list added by ? Empie ?
-- 13-08-2004

BadFiles = { 
	["childsex"]=1, 
	["childporn"]=2, 
	["underage"]=3, 
	["animalsex"]=4, 
	["preteen"]=5,
	["r@ygold"]=6, 
	["lolita"]=7, 
	["rape"]=8,
	["incest"]=9, 
	["beastiality"]=10, 
	["nazi"]=11,
	["forced"]=12,
	["pissing"]=13,
	["snuff"]=14,
	["teen$raped"]=15,
	["zoo-sex"]=16,
	["raped$real"]=17,
	["raped"]=18,
	["rape$real"]=19,
	["real$rape"]=20,
	["forced$to$have$sex"]=21,
	["forced$to$fuck"]=22,
	["forced$to$suck"]=23,
	["lolita$sex"]=24,
	["preteen$sex"]=25,

}

-- Good Users are case sensitive! Need to add more users just keep counting e.g. ["nick-here"]=3, etc
GoodUsers = {
	["nick-here"]=1,
	["nick-here"]=2,
}

opchat = "?Q??KPR?T?KT?"
botname = "?PHH?"
relax = 0

function Main()
	frmHub:EnableFullData(1)
end

function DataArrival(tUser, sData)
	if (tUser.bOperator == nil) then
		for key2,a in GoodUsers do
			if (tUser.sName == key2) then
				relax = 1
			end
		end
		if (relax==0) then
			if strsub(sData, 1, 12) == "$Search Hub:" then 
				local _,_,  sSearch = strfind(sData, "$Search Hub:%S+%s+%a%?%a%?%d+%?%d+%?(.*)|")
				for key,a in BadFiles do 
					if( strfind( strlower(sSearch), key) ) then 
						theString = sSearch
						niceString = gsub(theString, "[$]", " ")
						SendPmToOps(opchat, "\r\n\r\nThis user is POTENTIALLY searching for sicko files. Please check their share: \r\n\r\nUsername: \t"..tUser.sName.."\r\n\IP: \t\t" .. tUser.sIP .. "\r\nSearched for: \t\""..niceString.."\"\r\n" ) 
						SendToAll(botname, "THE USER: "..tUser.sName.." IS POTENTIALLY DIRTY VERMIN. HIS SEARCH HAD THE WORD "..key.." IN IT. THIS WAS THE WHOLE SEARCH STRING: \""..niceString.."\"")
					end 
				end	
			elseif strsub(sData, 1, 7) == "$Search" then 
				local _,_, sSearch = strfind(sData, "%$Search %d+%.%d+%.%d+%.%d+:%d+%s+%a%?%a%?%d+%?%d+%?(.*)|")
				for key,a in BadFiles do 
					if( strfind( strlower(sSearch), key) ) then 
						theString = sSearch
						niceString = gsub(theString, "[$]", " ")
						SendPmToOps(opchat, "\r\n\r\nThis user is searching for Bad files Please check their share: \r\n\r\nUsername: \t"..tUser.sName.."\r\n\IP: \t\t" .. tUser.sIP .. "\r\nSearched for: \t\""..niceString.."\"\r\n" ) 
						SendToAll(botname, "THE USER: "..tUser.sName.." IS POTENTIALLY DIRTY VERMIN. HIS SEARCH HAD THE WORD "..key.." IN IT. THIS WAS THE WHOLE SEARCH STRING: \""..niceString.."\"")
					end 
				end
			end
		end
	relax = 0
	end
end

Apologies 4 floodin the board but I've been kinda slow at changin over 2 ne PX n really think it's time I did!

Thanx in advance.

[the_pest]

might work...

-- pm to ops chat of any one
-- searching for bad files
-- by ?~”?o•Hawk•o?”~?  
-- 28-06-2004
-- fixed by • Empie •
-- 11-08-2004
-- Exclude user list added by • Empie •
-- 13-08-2004
-- to LUA 5 converted on Earth

BadFiles = { 
	["childsex"]=1, 
	["childporn"]=2, 
	["underage"]=3, 
	["animalsex"]=4, 
	["preteen"]=5,
	["r@ygold"]=6, 
	["lolita"]=7, 
	["rape"]=8,
	["incest"]=9, 
	["beastiality"]=10, 
	["nazi"]=11,
	["forced"]=12,
	["pissing"]=13,
	["snuff"]=14,
	["teen$raped"]=15,
	["zoo-sex"]=16,
	["raped$real"]=17,
	["raped"]=18,
	["rape$real"]=19,
	["real$rape"]=20,
	["forced$to$have$sex"]=21,
	["forced$to$fuck"]=22,
	["forced$to$suck"]=23,
	["lolita$sex"]=24,
	["preteen$sex"]=25,

}

-- Good Users are case sensitive! Need to add more users just keep counting e.g. ["nick-here"]=3, etc
GoodUsers = {
	["nick-here"]=1,
	["nick-here"]=2,
}

opchat = "•Q??KPROT€KT•"
botname = "•PHH•"
relax = 0

function SearchArrival(tUser, sData)
	if (tUser.bOperator == nil) then
		for key2,a in GoodUsers do
			if (tUser.sName == key2) then
				relax = 1
			end
		end
		if (relax==0) then
			if string.sub(sData, 1, 12) == "$Search Hub:" then 
				local _,_,  sSearch = string.find(sData, "$Search Hub:%S+%s+%a%?%a%?%d+%?%d+%?(.*)|")
				for key,a in BadFiles do 
					if( string.find( string.lower(sSearch), key) ) then 
						theString = sSearch
						niceString = string.gsub(theString, "[$]", " ")
						SendPmToOps(opchat, "\r\n\r\nThis user is POTENTIALLY searching for sicko files. Please check their share: \r\n\r\nUsername: \t"..tUser.sName.."\r\n\IP: \t\t" .. tUser.sIP .. "\r\nSearched for: \t\""..niceString.."\"\r\n" ) 
						SendToAll(botname, "THE USER: "..tUser.sName.." IS POTENTIALLY DIRTY VERMIN. HIS SEARCH HAD THE WORD "..key.." IN IT. THIS WAS THE WHOLE SEARCH STRING: \""..niceString.."\"")
					end 
				end	
			elseif string.sub(sData, 1, 7) == "$Search" then 
				local _,_, sSearch = string.find(sData, "%$Search %d+%.%d+%.%d+%.%d+:%d+%s+%a%?%a%?%d+%?%d+%?(.*)|")
				for key,a in BadFiles do 
					if( string.find( string.lower(sSearch), key) ) then 
						theString = sSearch
						niceString = string.gsub(theString, "[$]", " ")
						SendPmToOps(opchat, "\r\n\r\nThis user is searching for Bad files Please check their share: \r\n\r\nUsername: \t"..tUser.sName.."\r\n\IP: \t\t" .. tUser.sIP .. "\r\nSearched for: \t\""..niceString.."\"\r\n" ) 
						SendToAll(botname, "THE USER: "..tUser.sName.." IS POTENTIALLY DIRTY VERMIN. HIS SEARCH HAD THE WORD "..key.." IN IT. THIS WAS THE WHOLE SEARCH STRING: \""..niceString.."\"")
					end 
				end
			end
		end
	relax = 0
	end
end

[QuikThinker]

Thanx a lot man, works perfect  

[kh2000man]

hi
sorry new to this hope you can help
cannot get this to work getting the error

(to close `function' at line 50) near `'

i copied and paste to ptokax and saved as anti

[??????Hawk??????]

Originally posted by kh2000man
hi
sorry new to this hope you can help
cannot get this to work getting the error

(to close `function' at line 50) near `'

i copied and paste to ptokax and saved as anti

hi m8  

try copy and pasting again  making sure you get it all  ..

it looks like you missed the last    '  end '  


??????Hawk??????