Banned files scanner

[QuikThinker]

Hey ppl, i've got this script & I think it's supposed 2 boot out users who av any of the followin in their shares but it dun seem 2 work, any help please?

BotName = "?PHH?"

Files = {
	["forcedsex"]="forcedsex = permban!",
	["preteen"]="preteen is for sicko's!",
	["rape"]="Do not share sick porn!", 
	["incest"]="NO incest movies-pictures here!", 
	["childsex"]="NO sick Porn in here!",
	["childporn"]="NO sick Porn in here!",
	["underage"]="NO sick Porn in here!",
	["nazi"]="NO nazi related material here!", 
	["animalsex"]="NO Animalsex files here!", 
	["svastika"]="NO Nazi/white power music HERE!!!",
	[".temp.mp3"]="NO sharing of incomplete downloads",
	["_INCOMPLETE_"]="NO sharing of incomplete downloads",
	["download123456789.dat"]="NO sharing of incomplete downloads",
	["part.met"]="NO sharing of incomplete downloads",
	[".getright"]="NO sharing of incomplete downloads",
	[".vob"]="NO sharing of incomplete downloads",
	["lolita"]="Lolita?? Who r u, SHI??",
	["kiddy"]="KiddyPorn is for sicko's!",
	["forcedtosuck"]="forced to WHAT?? YUKKK!",
	["2_teen 16 year young cute lolita"] = "under 18? NOT HERE!"}

Kicked = {}

function NewUserConnected(user)
if( Kicked[user.sName] == 1 ) then
	Kicked[user.sName] = nil
end
	for i,v in Files do
		user:SendData("$Search Hub:"..BotName.." F?F?0?1?"..i)
	end
end

function DataArrival(user, data)
if( strsub(data, 1, 3) == "$SR" ) then
_,_,nick = strfind( data, "\05(%S*)|$" )
	if( nick == BotName and Kicked[user.sName] == nil ) then
		Kicked[user.sName] = 1
		Reason = FindWhat(data)
		SendToOps(BotName, "*** User "..user.sName.." banned. Reason: "..Reason)
		user:SendPM(BotName, "You were banned. "..Reason)
		user:Ban()
		user:Disconnect()
		end
	end
end

function FindWhat(data)
	for i,v in Files do
		if( strfind(strlower(data), i) ) then
		return v
		end
	end
	return "Other files"
end

Thanx in advance,
Quik.

[VERMiN]

Remember that scripts are only capable of retrieving this kind of data from Active users.

[[NL]trucker]

QuikThinker

it seems to me that you are missing a part of the script
use the one below it works.

- Simple Illegalist v0.1 
-- Created by Ptaczek, Jan-3, 2003 
-- Searches for specified patterns. Useful for illegal share checking 
-- some changes by Skippy and RabidWombat and OpiumVolage and trucker 

BotName = "Illegalist" 

function Main() 
frmHub:EnableSearchData(1) 
end 

Files = { 
["childsex"]="NO sick Porn inhere!", 
["childporn"]="NO sick kid Porn inhere!", 
["underage"]="NO sick kid Porn inhere!", 
["animalsex"]="NO Animalsex files here!", 
["svastika"]="NO Nazi/white power music HERE!!!", 
[".temp.mp3"]="NO sharing of incomplete downloads", 
["_INCOMPLETE_"]="NO sharing of incomplete downloads", 
["download123456789.dat"]="NO sharing of incomplete downloads", 
["part.met"]="NO sharing of incomplete downloads", 
[".getright"]="NO sharing of incomplete downloads", 
[".vob"]="NO sharing of incomplete downloads", 
["share faker"]="NO tools for fake sharing allowed", 
["share hacker"]="No tools for fake sharing allowed"} 


Kicked = {} 

function NewUserConnected(user) 
if( Kicked[user.sName] == 1 ) then 
Kicked[user.sName] = nil 
end 
for i,v in Files do 
user:SendData("$Search Hub:"..BotName.." F?F?0?1?"..i) 
end 
end 

function DataArrival(user, data) 
if( strsub(data, 1, 3) == "$SR" ) then 
_,_,nick = strfind( data, "\05(%S*)|$" ) 
if( nick == BotName and Kicked[user.sName] == nil ) then 
Kicked[user.sName] = 1 
Reason = FindWhat(data) 
SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." kicked. Reason: "..Reason) 
user:SendPM((BotName),( "You were kicked. "..Reason),("You can come back when you have corrected the problem")) 
user:Disconnect() 
end 
end 
end 

function FindWhat(data) 
for i,v in Files do 
if( strfind(strlower(data), i) ) then 
return v 
end 
end 
return "Other files" 
end

in this part you can set your name so that you receive a pm wich users were disconnected and why ;))

this way your OPchat doesnt get pop ups evrytime a user is diconnected.

SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." kicked. Reason: "..Reason) 
user:SendPM((BotName),( "You were kicked. "..Reason),("You can come back when you have corrected the problem"))

[QuikThinker]

Seems 2 be workin fine man but is it possible 2 give them a tempban like a usual kick coz some users get kicked & just come str8 back within minutes?

[bastya_elvtars]

- Simple Illegalist v0.1

-- Created by Ptaczek, Jan-3, 2003

-- Searches for specified patterns. Useful for illegal share checking

-- some changes by Skippy and RabidWombat and OpiumVolage and trucker



BotName = "Illegalist"



function Main()

frmHub:EnableSearchData(1)

end



Files = {

["childsex"]="NO sick Porn inhere!",

["childporn"]="NO sick kid Porn inhere!",

["underage"]="NO sick kid Porn inhere!",

["animalsex"]="NO Animalsex files here!",

["svastika"]="NO Nazi/white power music HERE!!!",

[".temp.mp3"]="NO sharing of incomplete downloads",

["_INCOMPLETE_"]="NO sharing of incomplete downloads",

["download123456789.dat"]="NO sharing of incomplete downloads",

["part.met"]="NO sharing of incomplete downloads",

[".getright"]="NO sharing of incomplete downloads",

[".vob"]="NO sharing of incomplete downloads",

["share faker"]="NO tools for fake sharing allowed",

["share hacker"]="No tools for fake sharing allowed"}





Kicked = {}



function NewUserConnected(user)

if( Kicked[user.sName] == 1 ) then

Kicked[user.sName] = nil

end

for i,v in Files do

user:SendData("$Search Hub:"..BotName.." F?F?0?1?"..i)

end

end



function DataArrival(user, data)

if( strsub(data, 1, 3) == "$SR" ) then

_,_,nick = strfind( data, "\05(%S*)|$" )

if( nick == BotName and Kicked[user.sName] == nil ) then

Kicked[user.sName] = 1

Reason = FindWhat(data)

SendPmToNick("[NL]trucker", BotName, "*** User "..user.sName.." kicked. Reason: "..Reason)

user:SendPM((BotName),( "You were kicked. "..Reason),("You can come back when you have corrected the problem"))

user:TimeBan(30)

end

end

end



function FindWhat(data)

for i,v in Files do

if( strfind(strlower(data), i) ) then

return v

end

end

return "Other files"

end

this gives 30 min tempban.. just edit the number in TimeBan() if u wanna change this... (Value is in minutes.)

[[NL]trucker]

or open ptotax and go to advanced options and set the timeban in minuts there that way you dont need to adjust the script.

[[G-T-E]Gate?]

Little problem on the above mentioned Illigalist script;

The script does not send any info to the users on what files he/she was kicked for. Only responce shown is>> *** Search spam detected from Illegalist
Welcome Tiger Your IP is: xxx.xxx.xxx.xxx and has been logged for security purposes only.

Some how this part Is not working>> user:SendPM((BotName),( "You were kicked. "..Reason),("You can come back when you have corrected the problem"))  

The info to Me comes perfect >>   *** User Tiger kicked. Reason: NO sharing of incomplete downloads.

[[G-T-E]Gate?]

I hit the wrong key to fast  I wasnt done ;

I have tested it running dc++401 and I get disconnected , but testing with  oDC5.31 keeps me connected to the hub with only the messege from the script>>*** Search spam detected from Illegalist .

Any feed back on why ?

 tks Gate

[[G-T-E]Gate?]

One more thing;
 to send the Pm not only to me but to all my ops is it just to add additional Nicks.
Ie..
SendPmToNick("[G-T-E]:I:N:F:O:R:C:E:R:?", "[G-T-E]Orion","[G-T-E]Patrax","[G-T-E]Q", BotName, "*** User "..user.sName.." kicked. Reason: "..Reason)

Hope I wrote it correctly

Gate

[bastya_elvtars]

btw i dont use this script... is this a resource hog?

[[G-T-E]Gate?]

If I read between the line I still dont see any solution to my ? . ,, :D

If u mean cpu hog, well it depends on what ur system is.
Not the feed back I was waiting 4.
Next ...
 :D Gate

[[NL]trucker]

[G-T-E]Gate?

user:SendPM((BotName),( "You were kicked. "..Reason),("You can come back when you have corrected the problem"))

replace it with this

user:SendPM((BotName),( "You were kicked. Reason: "..Reason),("You can come back when you have corrected the problem"))

hope it helps

One more thing; 
to send the Pm not only to me but to all my ops is it just to add additional Nicks. 
Ie.. 
SendPmToNick("[G-T-E]:I:N:F:O:R:C:E:R:?", "[G-T-E]Orion","[G-T-E]Patrax","[G-T-E]Q", BotName, "*** User "..user.sName.." kicked. Reason: "..Reason) 

Hope I wrote it correctly

change this SendPmToNick  to SendPmToOpchat that should do the trick also if i,m right.

[[G-T-E]Gate?]

Just back from work . real late too 23:46, Grrr.

But anyway , [NL]trucker thans lots M8 for the feedback , will try out ur solution m8.
Will get back to ya which ever way it goes...
Tks again ,
G8

[robertone]

Saw some different versions of the 'Illigalist' and change some text in it myself too. But there is a problem that we should be aware of.
Searching with an argument like 'underage', will also give result on a title like 'underaged workers'; 'rape' will also give result on everything with 'grapes'; 'lolita'... you know!
Therefor it would be nice to have a script that will look for a combination of words. I'm not a scripter, so please forgive me my way of interpretation.

Files = {
["underage" "girl" "sex"]
["underage" "girl" "porn"]
["underage" "boy" "xxx"]
}

search ("filename") NewUserConnected(user) for ("firstword")
    if ("filename") contains ("firstword") then
        search ("filename") for ("secondword")
    else return
        if found ("filename") contains ("secondword") then
            search ("filename") for ("thirdword")
        else return
            if ("filename") contains  ("thirdword") then
                ban user
            else return
        end

I know it isn't correct, but I hope it express the idea.
Ifn't, I'll draw a flowdiagram and place it as a gif picture.


robertone

[[G-T-E]Gate?]

[NL]trucker I said Iwould get back ;) But

With the editing on Reason I now get this responce:
*** User Tiger kicked. Reason: Other files
 *** User went offline [Illegalist (Offline)] ***
FeedBack Pleezz Tks G8

Below is the code.

-- Simple Illegalist v0.1 
-- Created by Ptaczek, Jan-3, 2003 
-- Searches for specified patterns. Useful for illegal share checking 
-- some changes by Skippy and RabidWombat and OpiumVolage and trucker 

BotName = "Illegalist" 

function Main() 
frmHub:EnableSearchData(1) 
end 

Files = { 
["childsex"]="NO sick Porn inhere!", 
["childporn"]="NO sick kid Porn inhere!", 
["underage"]="NO sick kid Porn inhere!", 
["animalsex"]="NO Animalsex files here!", 
["svastika"]="NO Nazi/white power music HERE!!!", 
[".temp.mp3"]="NO sharing of incomplete downloads", 
["_INCOMPLETE_"]="NO sharing of incomplete downloads", 
["download123456789.dat"]="NO sharing of incomplete downloads", 
["part.met"]="NO sharing of incomplete downloads", 
[".getright"]="NO sharing of incomplete downloads", 
[".vob"]="NO sharing of incomplete downloads",
[".dmg"]="NO Mac Files here this is a  Windows Location",
["mspqm.sys"]="Dont share files like this in this Location",
["ntoskrnl.exe"]="Dont share files like this in this Location",
["emalware.cab"]="Dont share files like this in this Location",
["msmsg.exe"]="Dont share files like this in this Location",
["wordpad.exe"]="Dont share files like this in this Location",
["system32"]="Dont share folder like this in this Location",
["winampa.exe"]="Dont share shit like this in this Location",
["InstalledSKUs"]="Dont share files like this in this Location",
["Q330994.cat"]="Dont share files like this in this Location",
["dailer.exe"]="Dont share files like this in this Location", 
["share faker"]="NO tools for fake sharing allowed", 
["share hacker"]="No tools for fake sharing allowed"} 


Kicked = {} 

function NewUserConnected(user) 
if( Kicked[user.sName] == 1 ) then 
Kicked[user.sName] = nil 
end 
for i,v in Files do 
user:SendData("$Search Hub:"..BotName.." F?F?0?1?"..i) 
end 
end 

function DataArrival(user, data) 
if( strsub(data, 1, 3) == "$SR" ) then 
_,_,nick = strfind( data, "\05(%S*)|$" ) 
if( nick == BotName and Kicked[user.sName] == nil ) then 
Kicked[user.sName] = 1 
Reason = FindWhat(data) 
SendPmToNick("[G-T-E]:I:N:F:O:R:C:E:R:?", BotName, "*** User "..user.sName.." kicked. Reason: "..Reason) 
user:SendPM((BotName),( "You were kicked. Reason: "..Reason),("You can come back when you have corrected the problem")) 
user:Disconnect() 
end 
end 
end 

function FindWhat(data) 
for i,v in Files do 
if( strfind(strlower(data), i) ) then 
return v 
end 
end 
return "Other files" 
end

[[NL]trucker]

gate

i,m sorry m8 i cant help you any further

have you tried putting a file with rape or something like that and looked at the kick message than?

i have no idear what "other files"means.

*** User went offline [Illegalist (Offline)] ***


who went offline? the user or the bot?

[[G-T-E]Gate?]

HI  Trucker sorry for the headach..
I shared a folder called Test and in that a file called underage.avi.

When I connect I (as Users Tiger)  I get disconnected  with just this in man chat showing no reason for kick from Illegalist

*** Search spam detected from Illegalist
Welcome Tiger Your IP is: xxx.xxx.xx.xxx and has been logged for security purposes only. Enhanced Right Click Support for [RoboCop] is available!
// Type !help in main for your available commands!
Welcome  Tiger to [BBB]SwedishFastSpeed[10Mb]    Have a Good Time. Read -infobot & -forbiddenfiles !!!
*** Disconnected

In my other dc client logged in as master I get the followng messege from the script

*** User Tiger kicked. Reason: Other files
 *** User went offline [Illegalist (Offline)] ***

The script at this part of the code is sending the "Other Files"

function FindWhat(data) 
for i,v in Files do 
if( strfind(strlower(data), i) ) then 
return v 
end 
end 
return "Other files" 
end

 
 This code isnt sending a reason to user who gets kicked.

user:SendPM((BotName),( "You were kicked. Reason: "..Reason),("You can come back when you have corrected the problem"))

[[NL]trucker]

GATE

i,m sorry m8 my knoledge of scripting isnt that good yet
perhaps one of the other members of this board can help you any further.

but i know you are right there is something wrong in this script;but on the other hand it is kicking with a good reason  tat is something you know now :-)

[[G-T-E]Gate?]

thanks Trucker.
 Will see if anyone else can give it a go.
Tks again ,
Have a Grand week end

[G-T-E]Gate? aka   [G-T-E]:I:N:F:O:R:C:E:R:?

[plop]

here's a brief explenation of that search function.

function FindWhat(data) 
   for i,v in Files do 
      if( strfind(strlower(data), i) ) then 
         return v -- here it breaks the loop and returns the found item
      end 
   end 
   return "Other files" -- if nothing is found it returns "other files"
end

now i can remember a modded version of this script which doesn't trigger a search on users who connect but which uses a timer.
on the timer it sends out a search 2 all connected users.
this has a much better result as it doesn't cause a search spam on the 2 be searched users.
but beside that these kind of scripts are causing more faulty kicks then good 1's.
i lost count on the amout of times i have been kicked for "nirvana - rape me.mp3".
my advice is 2 use dc++k CDM and manualy check if it really is a bad file.

plop

[[NL]trucker]

yep you,re right plop

i would check with dc++k cmd to as it can search for far more things through  ADL search and it even kicks automaticlly whit out causing any prob,s to the hub.

anf thnx gate have a nice weekend yourself to.

[[G-T-E]Gate?]

First to start off with I want to thank [NL]Trucker and plop for the input u both gave and the suggestion on dc++k cmd.

Long before this thread began I have visited Imperialnet.org forum and dc++k cmd Guide where Iam registered and attempted to use eariler and
the latest version of dc++k cmd v3.0.
Understanding the application of dc++k cmd is clear but the problem arises on where to place the raw commands and how it is written.
I have read thru the Guide and copied severial raw cmds and placed them in Favorites/Properities then used a cmd like /checkshare and it runs,
even added forbidden files in ADL Search with raw cmds.
finds and kicks but God does it kick ppl, somethings gone real crazy. So I gave up on that.
I know that many hub owners are using the program with great results, wish it was possible
to get a copy of the raw cmds and all that is needed to do a correct set up of dc++k cmd.
Would be nice if the old saying "share and share alike" was true. We are all working for haveing a clean hub operation.

More I can not say, so that is why I turned to the "Banned Files Scanner" and unfortunately Iam still back to square 1.
Maybe I'll be lucky and find a complete list of Raw and where to place them.

AgainTks for what help u all have given.
Regards from a sad hubowner.
G8

[[NL]trucker]

gate

the files you want user to be banned for has to go in adlsearch and CMD will automatticlly kick those users whitout you even noticing it.
so this is what you could call a real spy like and undercover operation ...lol

i use these raws for my cmd.

this one is for files and filelist enz.

$To: %[nick] From: %[mynick] $<%[mynick]> You are being Warned because: %[cheatingdescription]|$To: OpChat From: %[mynick] $<%[mynick]> User: %[nick] %[cheatingdescription]|<%[mynick]> is warning %[nick] because: %[cheatingdescription]|<%[mynick]> !warn %[nick] %[cheatingdescription]|

this one is for the client part.

$To: %[nick] From: %[mynick] $<%[mynick]> You are being Warned because: %[clienttype-] - %[cheatingdescription]|$To: OpChat From: %[mynick] $<%[mynick]> User: %[nick] - %[clienttype] - %[cheatingdescription]|<%[mynick]> is Warning %[nick] because: %[clienttype] - %[cheatingdescription]|<%[mynick]> !Warn %[nick] %[clienttype]|
 

if CMD find a bad user it will telll the user and if you ticked the right box in settings[ kick after sending raw command] it will also kick the user
and it will tell in OPchat who has been kicked and why.

[[G-T-E]Gate?]

Trucker again tks.  
Regarding ur codes I have placed them in what I think is the right place ,
Ur code for ADL Search  can u see thru my link how I have done. ADL Search Properites1  and ADL SearchProperites2 .
Then regarding the client code look here Favorite Hub Properites .

The Favorite hub properites Iam little confused about if I have the correct raws and if I have ticked the correct boxes.
If anything more is need to show what Ive done  just tell me.

If any of the links dont get u in u can go thru the main page which has them just for this purpose.
The site Ive put up for really another purpose.... Search'n' Rescue
I received a PM from Snooze and he will be mailing me aswell.
Tks Gate

[[G-T-E]Gate?]

Have just added 2 more links showing the Fav.xml and adl.xml  to get feedback of its all right.

G8