Print Page - Detecting certain files BOT

Title: Detecting certain files BOT
Post by: PRED_UK on 23 November, 2003, 02:54:45

Can anyone help me ?

I`m trying to find a script that will automatically search connecting users files for PORN and kick them without me having to manually check all the shares myself.

Is it possible to also auto kick users for slot locking as in (No Slots Available) when you try for a filelist.

I`m really pulling my hair out with this one, Thanks for all your help and keep up the good work.

Thanks to all @ THE LUA LANGUAGE BOARD ; o )

PRED ( Man on a mission )

Title:
Post by: BlazeXxX on 23 November, 2003, 03:33:30

Hi there,
To get rid of "No Slots messages" while getting file list, use latest version of DCK++ , which will kick if someone gives that msg... It cn also check for bad files, fake share etc...

For auto check on login, add ur keywords in the list.. or the extensions.. e.g: .mpg or .avi kinds.. some are done already for u :)

Hope that helps!

Byezzz,
BlazeX

-- Start Copying from here
-- Simple Illegalist v0.1
-- Created by Ptaczek, Jan-3, 2003
-- Searches for specified patterns. Useful for illegal share checking

BotName = "Illegalist"

Files = {
   ["rape"]="Do not share sick porn!",
   ["preteen"]="No pre-teen here!",
   ["nazi"]="No nazi related material here!",
   [".avi"]="No AVI files 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.." kicked. Reason: "..Reason)
         user:SendPM(BotName, "You were kicked. "..Reason)
         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
-- End of Copying

Title:
Post by: Jabo on 24 November, 2003, 20:26:31

Is there any way I could add this to my Robocop script by copying a paste or would that not work?

Title:
Post by: kepp on 24 November, 2003, 21:02:33

I thought robocop had that? :D

Title:
Post by: Jabo on 24 November, 2003, 21:30:41

Does it really....I've never noticed it!

Title:
Post by: kepp on 25 November, 2003, 22:05:28

Maybe not avi. and dll.

But, if you use robocop 4 which is compiled you are not able to

Title:
Post by: oblivion on 25 November, 2003, 23:12:18

just paste it in ptokax window save as Illegalist..restart scripts...bobs ya uncle ,,,done!!

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: PRED_UK on 23 November, 2003, 02:54:45