Text only | Text with Images

PtokaX forum

Archive => Archived 5.0 boards => Finished Scripts => Topic started by: plop on 04 April, 2005, 23:14:59

Title: CTM filter (deflood)
Post by: plop on 04 April, 2005, 23:14:59
here is the standalone version of the ConnectToMe filter from deflood converted 2 lua 5.
tiny bit enhanced, ip's are linked 2 nicks.
but only 1 nick per IP.
Code Select
--------------------------------
-- LUA 5.
--------------------------------
-- standalone CTM filter.
-- kicks wrong of private IP's.
-- you need a folder called "deflood".
--------------------------------
-- by plop.
--------------------------------

tSet = {
   ---- the name of the bot.
   Bot = "Deflood_5.0",

   ---- how long the time ban takes.
   iTimeBan = 10,

   ---- don't check the next IP's on fake $ConnectToMe's.
   ---- (for hub owners who are behind a NAT router)
   -- ["ip"] = "nickname",
   tIPs = {
["127.0.0.1"] = "certainnick",
["127.0.0.2"] = "othernick",
   }
}

------ DON"T TOUCH THE NEXT TABLE.
tPriv = {
[3232235520] = 3232301055,
[2886729728] = 2887778303,
[167772160] = 184549375
}
------ ok you can start touching below here again.

function ConnectToMeArrival(user, data)
   local sUser = user.sName
   local s,e,ip = string.find(data, "(%S+):%d+|$")
   if ip and tSet.tIPs[user.sIP] ~= user.sName then
if ip ~= user.sIP then
  local s,e,dIP1,dIP2,dIP3,dIP4 = string.find(ip, "(%d+)%.(%d+)%.(%d+)%.(%d+)")
  if dIP1 and dIP2 and dIP3 and dIP4 then
dIP1 = (tonumber(dIP1) * 16777216) + (tonumber(dIP2) *65536) + (tonumber(dIP3) * 256) + (tonumber(dIP4))
for a,b in tPriv do
  if dIP1 >= a and dIP1 <= b then
local sLog = (os.date("%X").." - "..sUser.." - "..user.sIP.." private IP.")
StoreLog(sLog)
SendPmToOps(tSet.Bot, sLog)
local sSend = "You either left the IP box from your active settings empty or you placed a private IP"..
  "in there by accident!\r\nIP's like this will not resolve outside your local network, change it for "..user.sIP
user:SendData(tSet.Bot, sSend)
user:Disconnect()
return 1
  end
end
local sSend = "You have the wrong IP in the active settings from your DC client!!\r\n"..
  "You have set it to "..ip..", the IP you should have set it on is: "..user.sIP..".\r\n"..
  "For Safety reasons you are now banned for minutes\r\n"..
  "For more info about how to setup active mode you should look at the next website's:\r\n"..
  "Default router setup manual: --->  [URL]http://www.plop.nl/lua_tools/dc-active.zip\r\n[/URL]"..
  "Specialized router manuals: ---> [URL]http://www.portforward.com\r\n[/URL]"..
  "Official dc++ faq: ---> [URL]http://dcplusplus.sourceforge.net/faq/faq.php?display=faq&faqnr=11&catnr=2&prog=1&lang=en&onlynewfaq=1[/URL]"
local sLog = os.date("%X").." - "..sUser.." - "..user.sIP.." wrong IP."
StoreLog(sLog)
SendPmToOps(tSet.Bot, sLog)
user:SendData(tSet.Bot, sSend)
user:TimeBan(tSet.iTimeBan)
  else
local sLog = (os.date("%X").." - "..sUser.." - "..user.sIP.." incomplete/faulty IP.")
StoreLog(sLog)
SendPmToOps(tSet.Bot, sLog)
local sSend = "An IP contains 4 numbers seperated by 3 dots. Your correct IP is "..user.sIP
user:SendData(tSet.Bot, sSend)
user:Disconnect()
  end
  return 1
end
   end
end

function StoreLog(msg)
   local sDate = string.gsub(os.date("%x"), "%D", "-")
   local fFile = io.open("deflood/"..sDate..".log", "a+")
   fFile:write(msg.."\n")
   fFile:close()
end

plop
Title:
Post by: Jaakko on 05 May, 2005, 20:04:54
Could you please modify this so it would work silently.
Thank you in advance.
Title:
Post by: jiten on 05 May, 2005, 20:09:01
QuoteOriginally posted by Jaakko
Could you please modify this so it would work silently.
Thank you in advance.
If you want to make it completely silent for everyone (user/OPs) comment the lines starting with "user:SendData" and "SendPmToOps".
If only for Ops just those beginning with "SendPmToOps".

Cheers
Title: useing same ip
Post by: damo on 05 May, 2005, 23:21:14
i use 2 clients from the same internal ip i have 2 diferent names but when you put the internal ip and names in only alows 1 the other one gets d/c can you change it to alow the use of 2 names on the same internal ip
Title:
Post by: Psycho_Chihuahua on 06 May, 2005, 01:06:41
then try setting 1 client with 127.0.0.1 and the other with whatever IP your network card has like 192.168.1.1 or so

otherwise in the script you can also set ips not to be checked
Title:
Post by: bastya_elvtars on 06 May, 2005, 02:25:31
You can try 127.0.0.2 or so.
Title: re ip's
Post by: damo on 06 May, 2005, 13:14:15
i have put in the names and the ip's not to be checked  the first name in the list is d/c and time banned. my internaml ip is 192.168.0.2 it worked for both when deflood was stand alone before it was built into ptokax
Title:
Post by: jiten on 06 May, 2005, 13:55:43
QuoteOriginally posted by damo
i have put in the names and the ip's not to be checked  the first name in the list is d/c and time banned. my internaml ip is 192.168.0.2 it worked for both when deflood was stand alone before it was built into ptokax
Try also adding 192.168.0.x to tIPs and see what happens.

Cheers
Title: re ip's
Post by: damo on 06 May, 2005, 15:20:53
still the same as before no change at all
Title:
Post by: jiten on 06 May, 2005, 15:41:11
QuoteOriginally posted by damo
still the same as before no change at all
For example, if this is your table:
Code Select
  tIPs = {
["127.0.0.1"] = "localnick",
["192.168.0.2"] = "netnick",
   }
Then, connect with "localnick" to 127.0.0.1 and "netnick" to 192.168.0.2
It must work this way.

Cheers
Title: re ip's
Post by: damo on 06 May, 2005, 17:31:40
still aint working doing it that way to :(
Title:
Post by: jiten on 06 May, 2005, 17:40:15
QuoteOriginally posted by damo
still aint working doing it that way to :(
I tested it earlier and it worked. Didn't get disconnected.
The IP and nicks in the scripts and clients have to exactly the same.
Title:
Post by: Madman on 13 October, 2005, 12:57:46
Code Select
--------------------------------
--LUA 5.
--------------------------------
-- standalone CTM filter.
-- kicks wrong of private IP's.
-- you need a folder called "deflood".
--------------------------------
-- by plop.
--------------------------------
-- Modded by Madman
-- Added a counter, at the 5 warnign msg, they will get tempbanned
-- Requested by Pothead

tSet = {
---- the name of the bot.
Bot = "Deflood_5.0",

---- how long the time ban takes.
iTimeBan = 10,

---- don't check the next IP's on fake $ConnectToMe's.
---- (for hub owners who are behind a NAT router)
-- ["ip"] = "nickname",
tIPs = {
["127.0.0.1"] = "certainnick",
["127.0.0.2"] = "othernick",
}
}

------ DON"T TOUCH THE NEXT TABLE.
tPriv = {
[3232235520] = 3232301055,
[2886729728] = 2887778303,
[167772160] = 184549375
}
------ ok you can start touching below here again.

-- Table to store the Warnings
WarnLog = {}

function ConnectToMeArrival(user, data)
local sUser = user.sName
local s,e,ip = string.find(data, "(%S+):%d+|$")
if ip and tSet.tIPs[user.sIP] ~= user.sName then
if ip ~= user.sIP then
local s,e,dIP1,dIP2,dIP3,dIP4 = string.find(ip, "(%d+)%.(%d+)%.(%d+)%.(%d+)")
if dIP1 and dIP2 and dIP3 and dIP4 then
dIP1 = (tonumber(dIP1) * 16777216) + (tonumber(dIP2) *65536) + (tonumber(dIP3) * 256) + (tonumber(dIP4))
for a,b in tPriv do
if dIP1 >= a and dIP1 <= b then
local sLog = (os.date("%X").." - "..sUser.." - "..user.sIP.." private IP.")
StoreLog(sLog)
SendPmToOps(tSet.Bot, sLog)
local sSend = "You either left the IP box from your active settings empty or you placed a private IP"..
"in there by accident!\r\nIP's like this will not resolve outside your local network, change it for "..user.sIP
user:SendData(tSet.Bot, sSend)
user:Disconnect()
return 1
end
end
sSend = "You have the wrong IP in the active settings from your DC client!!\r\n"..
"You have set it to "..ip..", the IP you should have set it on is: "..user.sIP..".\r\n"..
"For more info about how to setup active mode you should look at the next website's:\r\n"..
"Default router setup manual: --->  [URL]http://www.plop.nl/lua_tools/dc-active.zip\r\n[/URL]"..
"Specialized router manuals: ---> [URL]http://www.portforward.com\r\n[/URL]"..
"Official dc++ faq: ---> [URL]http://dcplusplus.sourceforge.net/faq/faq.php?display=faq&faqnr=11&catnr=2&prog=1&lang=en&onlynewfaq=1\r\n[/URL]"
if WarnLog[user.sName] == nil then
WarnLog[user.sName] = 1
else
WarnLog[user.sName] = WarnLog[user.sName] + 1
end
if WarnLog[user.sName] >= 5 then
sSend = sSend.."For Safety reasons you are now banned for " ..tSet.iTimeBan.. " minutes\r\n"
user:TimeBan(tSet.iTimeBan)
WarnLog[user.sName] = nil
end
local sLog = os.date("%X").." - "..sUser.." - "..user.sIP.." wrong IP."
StoreLog(sLog)
SendPmToOps(tSet.Bot, sLog)
user:SendData(tSet.Bot, sSend)
else
local sLog = (os.date("%X").." - "..sUser.." - "..user.sIP.." incomplete/faulty IP.")
StoreLog(sLog)
SendPmToOps(tSet.Bot, sLog)
local sSend = "An IP contains 4 numbers seperated by 3 dots. Your correct IP is "..user.sIP
user:SendData(tSet.Bot, sSend)
user:Disconnect()
end
return 1
end
end
end

function StoreLog(msg)
local sDate = string.gsub(os.date("%x"), "%D", "-")
local fFile = io.open("deflood/"..sDate..".log", "a+")
fFile:write(msg.."\n")
fFile:close()
end
A small mod ;)
Give 4 warnigns, at 5th it tempbans
Title: Re: CTM filter (deflood)
Post by: electronic_Psycho on 27 July, 2006, 04:02:56
Hi Ppl .. G Morning..

its can be convert to lua 5.1 ?  ::)

tnx  ;D
Title: Re: CTM filter (deflood)
Post by: 6Marilyn6Manson6 on 27 July, 2006, 05:52:28
Change:

Code Select
for a,b in tPriv do

Whit:

Code Select
for a,b in pairs(tPriv) do
Title: Re: CTM filter (deflood)
Post by: electronic_Psycho on 27 July, 2006, 06:42:06
 Good Morning  :D

Thanks you Very Much 6Marilyn6Manson6 !!! :-*
Title: Re: CTM filter (deflood)
Post by: 6Marilyn6Manson6 on 27 July, 2006, 08:19:46
Good Morning and welcome :D
Text only | Text with Images