Forbidden File Search

[TheRevenge]

Here are a Script for illegal search on the Hub, there forbidden Words in the Search

-----------------------------------------------------
-- Sendet eine PM an die Operator - Send a Pm to OperatorChat
-- meldet wenn ein User verbotenes sucht - if a user forbidden announces searches
-- warn oder bannt einen User - bot is banned or warned
-- by TheRevenge
-- Datum: 5.10.2004
--
--
----------------- BotNamen -------------------------------------------------------
-- Hier nur den Botnamen ?ndern - here botname
-- Opchat nimmt er von selber - Opchat from PtokaX
--
--

BotName = "Donnerg?ttin???"		--BotNamen
OpChatName = frmHub:GetOpChatName()	--Use this line for inbuilt Px opchat
--OpChatName = "OPChat"			--Use this line for a scripted opchat

---------------- BadFilesSearch --------------------------------------------------
-- Hier die verbotenen W?rter eintragen mit Aktion - write here forbidden Words in the search
--

BadFiles = { 
["childsex"]="ban", 
["childporn"]="warn", 
["underage"]="warn", 
["animalsex"]="warn", 
["preteen"]="warn",
["r@ygold"]="warn", 
["rape"]="warn",
["incest"]="warn", 
["beastiality"]="warn", 
["nazi"]="warn",
["schoolgirl"]="warn",
}

----------------------------------------------------------------------------------
-- Hier bitte nur Zeit vom ZeitBan eintragen - Time for Ban
--

function Main()
	frmHub:EnableFullData(1)
	time = "60"
end

------------- Messages zum User und Operator -------------------------------------

function DataArrival(curUser, sData)
	if curUser.bOperator == nil 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 
						if BadFiles[key] == "ban" then
							SendPmToOps(OpChatName, "\r\n\r\nDieser User wurde gebannt f?r "..time.." Min, denn er suchte nach Dateien mit verbotenem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\n" ) 
							SendPmToNick(curUser.sName,BotName, "\r\n\r\nDu wurdest gebannt f?r "..time.." Min, wegen der Suche nach Dateien mit folgendem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\nDiese Daten  wurden im Logbuch festgehalten\r\n" ) 
							curUser:TimeBan(time)
							curUser:Disconnect()
						elseif BadFiles[key] == "warn" then
							SendPmToOps(OpChatName, "\r\n\r\nDieser User sucht nach Dateien mit verbotenem Inhalt - Bitte ?berpr?fe seinen Share:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\n" ) 
							SendPmToNick(curUser.sName,BotName, "\r\n\r\nDu suchst nach Dateien mit verbotenem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSearched for:-\t"..key.."\r\n\r\nDiese Daten  wurden im Logbuch festgehalten \r\n\r\n! ! ! D A S  I S T  E I N E   W A R N U N G ! ! !\r\n" ) 
						end

					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 
						if BadFiles[key] == "ban" then
							SendPmToOps(OpChatName,"\r\n\r\nDieser User wurde gebannt f?r "..time.." Min, denn er suchte nach Dateien mit verbotenem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\n" ) 
							SendPmToNick(curUser.sName,BotName, "\r\n\r\nDu wurdest gebannt  f?r "..time.." Min, wegen der Suche nach Dateien mit folgendem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\nDiese Daten  wurden im Logbuch festgehalten\r\n" ) 
							curUser:TimeBan(time)
							curUser:Disconnect()
						elseif BadFiles[key] == "warn" then
							SendPmToOps(OpChatName, "\r\n\r\nDieser User sucht nach Dateien mit verbotenem Inhalt - Bitte ?berpr?fe seinen Share:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSuchte nach:-\t"..key.."\r\n\r\n" ) 
							SendPmToNick(curUser.sName,BotName, "\r\n\r\nDu suchst nach Dateien mit verbotenem Inhalt:-\r\n\r\nUsername:-\t"..curUser.sName.."\r\n\IP:-\t\t" .. curUser.sIP .. "\r\nSearched for:-\t"..key.."\r\n\r\nDiese Daten  wurden im Logbuch festgehalten \r\n\r\n! ! ! D A S  I S T  E I N E   W A R N U N G ! ! !\r\n" ) 
						end
					end 
				end
		end
	end
end

[bastya_elvtars]

Use this script...

function Main()
	SendToAll("bastya_elvtars","Use DCDM++ for searching bad files, LUA scripts are _not_ for that purpose."
end

[Typhoon]

:) , good one bast , gonna use it straight away :p


Typhoon?