Bad search checker with totalkey

[Daywalker]

I used an old script from Hawk that we modifyed with a totalkey so we cld check what the user realy was searching for, it gave the total search string ....is it possible that some1 cld write such a script for me again?

badsearchfiles:
preteen
lolita
r@ygold
animalsex
incest
etc...

i prefer message to opchat and no autokick  

we want to judge that ourself  

[[NL]Pur]

can you post that modified script?

[Daywalker]

Sure no problem  :)

-- pm to ops chat of any one
-- searching for bad files
-- by ??????Hawk?????? 
-- Modded by [NL-DC]Tosty_82 & Daywalker? 
-- 28-06-2004
BadFiles = { 
["childsex"]=1, 
["childporn"]=2, 
["underage"]=3, 
["animalsex"]=4, 
["preteen"]=5,
["r@ygold"]=6, 
["lolita"]=7, 
["rape"]=8,
["incest"]=9, 
["beastiality"]=10, 
["rape"]=11,
}

function Main()
	frmHub:EnableFullData(1)
end

function DataArrival(tUser, sData)
	if tUser.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 
						 SendPmToOps(frmHub:GetOpChatName(), "\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"..key.."\r\nTotalkey:- \t".. sSearch .."\r\n\r\n" )   
					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 
						 SendPmToOps(frmHub:GetOpChatName(), "\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"..key.."\r\nTotalkey:- \t".. sSearch .."\r\n\r\n" )   
					end 
				end
		end
	end
end

the end result is something like this:

This user is searching for Bad files Please check their share:-

Username:-   xxxxxxxx
IP:-      xx.x.xx.x.x
Searched for:-   rape
Totalkey:-    raped

[Daywalker]

just wanted it back in attention...it worked alway fine for us  

[TTB]

Hi...

for the ppl who get also search intercepts from TTH: hashing codes, add this line:

if strsub(sSearch,1,4) ~= "TTH:" then

after line:

if (strfind(strlower(sSearch),key)) then

Don't forget to put an extra "end" in the for loop! You have to do this twice (there are 2 for-loops).

*edited* >> was lua5, now lua4

[CaSaNoVa]

Syntax ...a\Desktop\0.3.3.0.b17.05.nt.rls\scripts\badfiles.lua:21: attempt to call method `EnableFullData' (a nil value)

[Madman]

This one is in lua 4 click here for Lua 5 version