PtokaX forum

hi,
i think this is a nice script so i post it here
but who did this good script?

code:
_____________________________________________
--made by ?
MaxPM = 2 -- more than 2 pms within 0,8 seconds cause a gag
MaxMain = 2 -- more than 2 mainchat msgs within 0,8 seconds cause a gag
timeslice = 1*800 -- 0,8 seconds

gagged = {}
MainCount = {}
PMCount = {}
yournick = "your nick here!!"
botname = "antispam"

function FloodDetected (user,data)


local name,ip = user.sName,user.sIP
tinsert(gagged, ip)
tinsert(gagged, name)
SendToAll("Hub-Security", "*** "..botname.." has IP-gagged: "..name)

end

function Main()
SetTimer(timeslice)
StartTimer()
end

function OnTimer()
PMCount = {}
MainCount = {}
end

function DataArrival(user, data)
if strfind(data, "!") and user.sName == yournick then
else
for i,v in gagged do
   if user.sIP == gagged then
return 1
end
end
end
if data == nil then data = 0 end
if strfind(data, "!") and user.sName == yournick then
else
for i,v in gagged do
   if user.sName == gagged then
return 1
end
end
end

if strfind(data,"$To:") then
if PMCount[user.sIP] ~= nil then
PMCount[user.sIP] = PMCount[user.sIP] +1
if PMCount[user.sIP] > MaxPM then
FloodDetected (user, data)
PMCount[user.sIP] = -100
return 1
end
else
PMCount[user.sIP] = 1
end
elseif strfind(data,user.sName,1,plain) == 2 then
if MainCount[user.sIP] ~= nil then
MainCount[user.sIP] = MainCount[user.sIP] +1
if MainCount[user.sIP] > MaxMain then
FloodDetected (user, data)
MainCount[user.sIP] = -100
return 1
end
else
MainCount[user.sIP] = 1
end
end
end
_____________________________________________

I can tell you.. DirtyFinger made it....

real name of the bot and hole script:

--=====================================
--            SpamBan
---------------------------------------
-- version: 1.2 (06.2.2003)
--  author: DirtyFinger
--   email: [EMAIL]DirtyFinger@gmx.net[/EMAIL]
--    ICQ : 145873101
--  HomePage: [URL]http://mitglied.lycos.de/dirtyfinger01/[/URL]
--   (Yes, i know i still suck as Web Designer)
--=====================================
-- This script automatically bans pm-spammers and mainchat-spammers.
--
-- This does not protect from spam, but at least the spammer can't come back (at least not with the same ip)
-- For the script to work you might have to change the PtokaX flood-protection values (chat limit in the 'Rules and bots' section)
-- The script bans by default after 30 pms are being sent within 10 seconds.
--   But if the hub disconnects BEFORE the script triggers, no banning is possible and the spammer can come back.
-- So choose some quite generous settings, e.g. the first line of the above spam contains about 400 characters.
-- For the script to trigger you have to allow the users to send 8000 characters per second so the script can trigger.
--
-- Don't worry, real flooders send much much more so you'll be fine.
--
--   Version Changes :
-- 1.2  : bans mainchat flooder too. I didn't implement it in previous versions because i thought ptokax dealt with it.
-- 1.1  : removed the mainchat flooding of ban notifications
-- 1.0  : first version

sBotName = "Spamban"

PMCount = {}
MainCount = {}
MaxPM = 20 -- more than 20 pms within 10 seconds cause a ban
MaxMain = 20 -- more than 20 mainchat msgs within 10 seconds cause a ban
timeslice = 10*1000 -- 10 seconds


function Main()
frmHub:RegBot(sBotName)
SendToAll(sBotName.." "..date(" launched at %B %d %Y %X "))
SetTimer(timeslice)
StartTimer()

end

--// This function is fired when a new data arrives
function DataArrival(curUser, sData)
if strfind(sData,"$To:") then
if PMCount[curUser.sIP] ~= nil then
PMCount[curUser.sIP] = PMCount[curUser.sIP] +1
--SendToAll("----",PMCount[curUser.sIP])
if PMCount[curUser.sIP] > MaxPM then
FloodDetected (curUser, sData)
PMCount[curUser.sIP] = -100
end
else
PMCount[curUser.sIP] = 1
end
elseif strfind(sData,curUser.sName,1,plain) == 2 then
if MainCount[curUser.sIP] ~= nil then
MainCount[curUser.sIP] = MainCount[curUser.sIP] +1
--SendToAll("----",PMCount[curUser.sIP])
if MainCount[curUser.sIP] > MaxMain then
FloodDetected (curUser, sData)
MainCount[curUser.sIP] = -100
end
else
MainCount[curUser.sIP] = 1
end
end

end

function OnTimer()
--for k,v in PMCount do
-- SendToAll("---------",k.."\t"..v)
--end
PMCount = {}
MainCount = {}
end

function FloodDetected (curUser,sData)
local message = "     -= Spam Warning =-"
local name,ip = curUser.sName,curUser.sIP
SendToAll ("# "..sBotName.."-Alert #--> "..name .. " has been banned for spamming.")
message = message .."\r\n\t\t"
.. "Violation detected by: " .. name .."\r\n\t\t"
.. "IP: " .. ip .. "\t\r\n\t\t"
.. "Last packet : \t" .. sData

SendPmToOps (sBotName,message)
curUser:Ban()
curUser:Disconnect()
end

/NL

thanks a lot NL=)
and to dirtyfinger for a good script..but he probably already knows ;)