Text only | Text with Images

PtokaX forum

Archive => Archived 5.0 boards => Finished Scripts => Topic started by: NightLitch on 10 May, 2005, 16:59:07

Title: *** Download Blocker
Post by: NightLitch on 10 May, 2005, 16:59:07
Here is an alternative script to use to block IPs to download and block users ( -1 ) to download from operators in hub.

Code Select
--//-------------------------------------------------------//--
--// Download Blocker by NightLitch
--// Version:
--//          0.1: created bot
--//          0.2: added commands
--//          0.3: fixed send message bug
--//          0.4: added mode check ( Active in RevConnect, reported to Ops )
--//-------------------------------------------------------//--
--// Available commands:
--//     !block - Block IP number
--//     !unblock - Unblock IP number
--//     !sblocks - Show Blocked IP list
--//     !dop - Block users from download from ops On/Off
--//-------------------------------------------------------//--
tSet = {}
tSet.BotName = frmHub:GetHubBotName()
tSet.BlockUsersFromOperators = 1
tSet.BlockSpecificIPs = 1
--//-------------------------------------------------------//--
--// Don't edit if you don't have a clue at all what you are doing ;-)
--//-------------------------------------------------------//--
tSet.BlockIPs = {}

function Main()
LoadFile("BlockedIPs.lst")
end

function OnExit()
SaveFile("BlockedIPs.lst")
end

function NewUserConnected(sUser)
sUser:SendData(tSet.BotName, "This hub is running version 0.4 of Download Blocker created by NightLitch (2005)")
end

OpConnected = NewUserConnected

function ChatArrival(sUser,sData)
if CmdArrival(Extra(sUser,1),sData) == 1 then return 1 end
end

function ToArrival(sUser,sData)
if CmdArrival(Extra(sUser),sData) == 1 then return 1 end
end

function ConnectToMeArrival(sUser,sData)
if CheckUserIP(sUser.sIP) then sUser:SendPM(tSet.BotName, "*** You are not allowed to download in this hub") return 1 end
local _,_,sName = string.find(sData, "(%S+)%s+%S+|$")
local tUser = GetItemByName(sName)
if CheckOP(tUser) then sUser:SendPM(tSet.BotName, "*** You are not allowed to download from operators") return 1 end
end

function RevConnectToMeArrival(sUser, sData)
if CheckUserIP(sUser.sIP) then sUser:SendPM(tSet.BotName, "*** You are not allowed to download in this hub") return 1 end
if CheckMode(sUser.sMode) then SendPmToOps(frmHub:GetOpChatName(), "*** User "..sUser.sName.." states Active mode, but are using Passive Commands") end
local _,_,sName = string.find(sData, "(%S+)|$")
local tUser = GetItemByName(sName)
if CheckOP(tUser) then sUser:SendPM(tSet.BotName, "*** You are not allowed to download from operators") return 1 end
end

function CheckOP(tUser)
if tUser then
if (tUser.bOperator and tSet.BlockUsersFromOperators == 1) then return 1 end
end
return
end

function CheckUserIP(ip)
if tSet.BlockIPs[ip] then return 1 else return end
end

function CheckMode(mode)
if mode == "A" then return 1 else return end
end

function CmdArrival(sUser,sData)
local s,e,cmd,arg = string.find(sData, "%b<>%s*(%S+)%s*(.*)%|")
if cmd and tCommand[string.lower(cmd)] and sUser.bOperator then
return tCommand[string.lower(cmd)](sUser,arg)
end
end

tCommand = {}
tCommand["!block"] = function(sUser,sArg)
if sArg == "" then
sUser:Send(tSet.BotName, "*** Syntax: !block ")
elseif string.find(sArg, "%d+%.%d+%.%d+%.%d+") then
if tSet.BlockIPs[sArg] then
sUser:Send(tSet.BotName, "*** IP ( "..sArg.." ) is allready in block list")
else
tSet.BlockIPs[sArg] = 1
SaveFile("BlockedIPs.lst")
sUser:Send(tSet.BotName, "*** IP ( "..sArg.." ) is added to block list")
end
else
sUser:Send(tSet.BotName, "*** Enter a valid IP number")
end
return 1
end
tCommand["!unblock"] = function(sUser,sArg)
if sArg == "" then
sUser:Send(tSet.BotName, "*** Syntax: !unblock ")
elseif string.find(sArg, "%d+%.%d+%.%d+%.%d+") then
if tSet.BlockIPs[sArg] then
tSet.BlockIPs[sArg] = nil
SaveFile("BlockedIPs.lst")
sUser:Send(tSet.BotName, "*** IP ( "..sArg.." ) is removed from block list")
else
sUser:Send(tSet.BotName, "*** IP ( "..sArg.." ) is not found in block list")
end
else
sUser:Send(tSet.BotName, "*** Enter a valid IP number")
end
return 1
end
tCommand["!sblocks"] = function(sUser,sArg)
local list,c = "\r\n\r\n", 0
list = list .."-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----\r\n"
list = list .." \t Blocked IP numbers \r\n"
list = list .."-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----\r\n"
for ip,_ in tSet.BlockIPs do
c = c + 1
list = list .. "\t" .. c .. ".   " .. ip .. "\r\n"
end
list = list .."\r\n\t !unblock to remove IP from list \r\n"
list = list .."-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----\r\n"
sUser:Send(tSet.BotName, list)
return 1
end
tCommand["!dop"] = function(sUser,sArg)
if sArg == "" then
sUser:Send(tSet.BotName, "*** Syntax: !dop ")
elseif string.lower(sArg) == "on" then
tSet.BlockUsersFromOperators = 1
sUser:Send(tSet.BotName, "*** Users can not download from operators")
elseif string.lower(sArg) == "off" then
tSet.BlockUsersFromOperators = 0
sUser:Send(tSet.BotName, "*** Users can download from operators")
else
sUser:Send(tSet.BotName, "*** Invalid paramenter")
end
return 1
end

function SaveFile(filename)
local file = io.open(filename, "w")
for ip,_ in tSet.BlockIPs do file:write(ip.."\n") end
file:close()
end

function LoadFile(filename)
local file,err = io.open(filename, "r")
if err then SaveFile(filename) return 1 end
for line in file:lines() do tSet.BlockIPs[line] = 1 end
file:close()
end

function Extra(this,mode)
if mode then
function this:Send(from,message) this:SendData(from,message) end
else
function this:Send(from,message) this:SendPM(from,message) end
end
return this
end
--// NightLitch

Enjoy !!

// NightLitch
Title:
Post by: 6Marilyn6Manson6 on 10 May, 2005, 17:49:44
Eheheh... Night superstarrrrrrrrrrrrrrrrr Night is superstarrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr :D
Title:
Post by: NightLitch on 12 May, 2005, 17:27:51
Any ideas what is missing or requests ???

If not, this script will probobly not be dev. any longer.
Title:
Post by: Dessamator on 12 May, 2005, 18:00:22
well, maybe u could add, !imune ip or nick, & !remimune
!showimune, etc
Title:
Post by: NightLitch on 13 May, 2005, 10:09:08
QuoteOriginally posted by Dessamator
well, maybe u could add, !imune ip or nick, & !remimune
!showimune, etc

it is easy to say add that and that, in what purpose, what should the imune IP/Nick be imune from ???
Title:
Post by: Dessamator on 13 May, 2005, 10:18:52
QuoteOriginally posted by NightLitch
QuoteOriginally posted by Dessamator
well, maybe u could add, !imune ip or nick, & !remimune
!showimune, etc

it is easy to say add that and that, in what purpose, what should the imune IP/Nick be imune from ???
hmm, well imune to the download blocker pr the !block :)
Title:
Post by: NightLitch on 15 May, 2005, 00:39:32
QuoteOriginally posted by Dessamator
QuoteOriginally posted by NightLitch
QuoteOriginally posted by Dessamator
well, maybe u could add, !imune ip or nick, & !remimune
!showimune, etc

it is easy to say add that and that, in what purpose, what should the imune IP/Nick be imune from ???
hmm, well imune to the download blocker pr the !block :)

Oh ok, well Am going to add so both Nick and IP will fit in the list. Also will add a list the other way around.

now current User is blocked.

Will add so no one can download from IP/Nick if not in a maybe Imune list.
Title:
Post by: kepp on 15 May, 2005, 00:44:20
Block passive search response and save some bw
Title:
Post by: NightLitch on 15 May, 2005, 00:47:13
QuoteOriginally posted by kepp
Block passive search response and save some bw

Good Idea // Thx
Title:
Post by: sneaky on 07 August, 2005, 16:45:25
nice script NightLitch ;)  can you put and right click menu for this? if it's possiblle of course :) thx anyway
Title:
Post by: Cêñoßy†ê on 08 August, 2005, 04:58:54
Added rightclick commands with profile
Code Select
--//-------------------------------------------------------//--
--// Download Blocker by NightLitch
--// Version:
--//          0.1: created bot
--//          0.2: added commands
--//          0.3: fixed send message bug
--//          0.4: added mode check ( Active in RevConnect, reported to Ops )
--//-------------------------------------------------------//--
--// Available commands:
--//     !block - Block IP number
--//     !unblock - Unblock IP number
--//     !sblocks - Show Blocked IP list
--//     !dop - Block users from download from ops On/Off
--//-------------------------------------------------------//--
tSet = {}
tSet.BotName = frmHub:GetHubBotName()
tSet.BlockUsersFromOperators = 1
tSet.BlockSpecificIPs = 1

tSet.GiveCom = { -- Who gets rightclick commands 1/yes 0/no      
[0] = 1, -- Master
[1] = 0, -- Operator
[4] = 1, -- Moderator
[5] = 1, -- Netfounder
}
--//-------------------------------------------------------//--
--// Don't edit if you don't have a clue at all what you are doing ;-)
--//-------------------------------------------------------//--
tSet.BlockIPs = {}

function Main()
LoadFile("BlockedIPs.lst")
end

function OnExit()
SaveFile("BlockedIPs.lst")
end

function NewUserConnected(sUser)
SendCommands(sUser)
sUser:SendData(tSet.BotName, "This hub is running version 0.4 of Download Blocker created by NightLitch (2005)")
end

OpConnected = NewUserConnected

function ChatArrival(sUser,sData)
if CmdArrival(Extra(sUser,1),sData) == 1 then return 1 end
end

function ToArrival(sUser,sData)
if CmdArrival(Extra(sUser),sData) == 1 then return 1 end
end

function ConnectToMeArrival(sUser,sData)
if CheckUserIP(sUser.sIP) then sUser:SendPM(tSet.BotName, "*** You are not allowed to download in this hub") return 1 end
local _,_,sName = string.find(sData, "(%S+)%s+%S+|$")
local tUser = GetItemByName(sName)
if CheckOP(tUser) then sUser:SendPM(tSet.BotName, "*** You are not allowed to download from operators") return 1 end
end

function RevConnectToMeArrival(sUser, sData)
if CheckUserIP(sUser.sIP) then sUser:SendPM(tSet.BotName, "*** You are not allowed to download in this hub") return 1 end
if CheckMode(sUser.sMode) then SendPmToOps(frmHub:GetOpChatName(), "*** User "..sUser.sName.." states Active mode, but are using Passive Commands") end
local _,_,sName = string.find(sData, "(%S+)|$")
local tUser = GetItemByName(sName)
if CheckOP(tUser) then sUser:SendPM(tSet.BotName, "*** You are not allowed to download from operators") return 1 end
end

function CheckOP(tUser)
if tUser then
if (tUser.bOperator and tSet.BlockUsersFromOperators == 1) then return 1 end
end
return
end

function CheckUserIP(ip)
if tSet.BlockIPs[ip] then return 1 else return end
end

function CheckMode(mode)
if mode == "A" then return 1 else return end
end

function CmdArrival(sUser,sData)
local s,e,cmd,arg = string.find(sData, "%b<>%s*(%S+)%s*(.*)%|")
if cmd and tCommand[string.lower(cmd)] and sUser.bOperator then
return tCommand[string.lower(cmd)](sUser,arg)
end
end

tCommand = {}
tCommand["!block"] = function(sUser,sArg)
if sArg == "" then
sUser:Send(tSet.BotName, "*** Syntax: !block ")
elseif string.find(sArg, "%d+%.%d+%.%d+%.%d+") then
if tSet.BlockIPs[sArg] then
sUser:Send(tSet.BotName, "*** IP ( "..sArg.." ) is allready in block list")
else
tSet.BlockIPs[sArg] = 1
SaveFile("BlockedIPs.lst")
sUser:Send(tSet.BotName, "*** IP ( "..sArg.." ) is added to block list")
end
else
sUser:Send(tSet.BotName, "*** Enter a valid IP number")
end
return 1
end
tCommand["!unblock"] = function(sUser,sArg)
if sArg == "" then
sUser:Send(tSet.BotName, "*** Syntax: !unblock ")
elseif string.find(sArg, "%d+%.%d+%.%d+%.%d+") then
if tSet.BlockIPs[sArg] then
tSet.BlockIPs[sArg] = nil
SaveFile("BlockedIPs.lst")
sUser:Send(tSet.BotName, "*** IP ( "..sArg.." ) is removed from block list")
else
sUser:Send(tSet.BotName, "*** IP ( "..sArg.." ) is not found in block list")
end
else
sUser:Send(tSet.BotName, "*** Enter a valid IP number")
end
return 1
end
tCommand["!sblocks"] = function(sUser,sArg)
local list,c = "\r\n\r\n", 0
list = list .."-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----\r\n"
list = list .." \t Blocked IP numbers \r\n"
list = list .."-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----\r\n"
for ip,_ in tSet.BlockIPs do
c = c + 1
list = list .. "\t" .. c .. ".   " .. ip .. "\r\n"
end
list = list .."\r\n\t !unblock to remove IP from list \r\n"
list = list .."-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----+=+-----\r\n"
sUser:Send(tSet.BotName, list)
return 1
end
tCommand["!dop"] = function(sUser,sArg)
if sArg == "" then
sUser:Send(tSet.BotName, "*** Syntax: !dop ")
elseif string.lower(sArg) == "on" then
tSet.BlockUsersFromOperators = 1
sUser:Send(tSet.BotName, "*** Users can not download from operators")
elseif string.lower(sArg) == "off" then
tSet.BlockUsersFromOperators = 0
sUser:Send(tSet.BotName, "*** Users can download from operators")
else
sUser:Send(tSet.BotName, "*** Invalid paramenter")
end
return 1
end

function SaveFile(filename)
local file = io.open(filename, "w")
for ip,_ in tSet.BlockIPs do file:write(ip.."\n") end
file:close()
end

function LoadFile(filename)
local file,err = io.open(filename, "r")
if err then SaveFile(filename) return 1 end
for line in file:lines() do tSet.BlockIPs[line] = 1 end
file:close()
end

function Extra(this,mode)
if mode then
function this:Send(from,message) this:SendData(from,message) end
else
function this:Send(from,message) this:SendPM(from,message) end
end
return this
end
function SendCommands(sUser)
if tSet.GiveCom[sUser.iProfile] == 1 and sUser.bUserCommand then
sUser:SendData("$UserCommand 0 3")
sUser:SendData("$UserCommand 1 3 Download Blocker\\Block ip$<%[mynick]> !block %[line:IP]|")
sUser:SendData("$UserCommand 1 3 Download Blocker\\Unblock IP number$<%[mynick]> !unblock %[line:IP]|")
sUser:SendData("$UserCommand 1 3 Download Blocker\\Show Blocked IP list$<%[mynick]> !sblocks|")
sUser:SendData("$UserCommand 1 3 Download Blocker\\Block users from download from ops On/Off$<%[mynick]> !dop %[line:On/Off]|")  
end
end
--// NightLitch
Title:
Post by: chettedeboeuf on 04 September, 2005, 01:09:35
Hi!
And is it possible to have a line to specify a reason for blocking user ???

Thank you
Title:
Post by: slick on 25 September, 2005, 01:14:36
tried this script works good a little too good can              !allowip be added so ops,vip's can dl from each other ?
Title:
Post by: Dessamator on 25 September, 2005, 11:32:56
QuoteHere is an alternative script to use to block IPs to download and block users ( -1 ) to download from operators in hub.
Title:
Post by: chettedeboeuf on 25 September, 2005, 12:05:57
QuoteAnd is it possible to have a line to specify a reason for blocking user ???
Title:
Post by: slick on 25 September, 2005, 15:54:53
Where do i make this change ? is it here


tSet.BlockUsersFromOperators = 1

I change it to this but same results


tSet.BlockUsersFromOperators = -1
Title:
Post by: Dessamator on 25 September, 2005, 16:15:40
QuoteOriginally posted by chettedeboeuf
QuoteAnd is it possible to have a line to specify a reason for blocking user ???

Yes, although it would require an extra table to store that.

and @ slick :
Code Select
!dop - Block users from download from ops On/Off
Title:
Post by: slick on 25 September, 2005, 16:30:59
Somehow I feel i'm not getting my point across when i put the script in active mode: !dop op's can't DL from each other vip's can't DL from ops this isn't what i'm looking for, what i'm looking for is this: when script is active unregged can d/l from each other but cannot dl from higher profiles, vips and up can d/l from anyone I know the lua 4 script of leechblocker did this but i can't seem to find it in lua 5. If there is something in this script i'm missing please point it out to me cause i'm starting to feel like a fool :)
Text only | Text with Images