Text only | Text with Images

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: angelsanges on 09 January, 2004, 00:02:28

Title: hi to all!
Post by: angelsanges on 09 January, 2004, 00:02:28
it is possible to create a bot that cecks that a user is sharing .iso or .nrg files?....if not it send's a message to op chat or to ops?

sorry for my english
Title:
Post by: plop on 09 January, 2004, 04:26:57
QuoteOriginally posted by angelsanges
it is possible to create a bot that cecks that a user is sharing .iso or .nrg files?....if not it send's a message to op chat or to ops?

sorry for my english

search for "bad files" "illegalist" etc..
there are lots of scrips like that posted here on the forum.

plop
Title: ...
Post by: angelsanges on 09 January, 2004, 09:52:37
yes...but i believe that those scripts do not send an advice to ops or an advice to op chat...
or it will be useful a bot that blocks downloads/uploads to users that not share iso or nrg files
Title:
Post by: plop on 09 January, 2004, 14:32:39
QuoteOriginally posted by angelsanges
yes...but i believe that those scripts do not send an advice to ops or an advice to op chat...
or it will be useful a bot that blocks downloads/uploads to users that not share iso or nrg files
those file bot's aren't full proof so blocking downloads on that is a bad idea.
but there are some modded versions witch send warnings 2 the op's.
if you can't find that excat script, just search for the 1 you like most and post it here.
then there whill be some1 around willing 2 change it 2 your needs.

plop
Title: here is
Post by: angelsanges on 10 January, 2004, 15:09:07
here is the bad file cheker....it is to modify it to tell ops tha a user can't share any .iso or .nrg files?

-- BadFilesDetecter V: 1.0 by [ES]latinmusic. Date: 05/11/2003
-- Base on Illegalist by Ptaczek, Jan-3, 2003
-- Searches for specified patterns. Useful for illegal share checking
-- Modificed by Leo (for music hub)
-- Modified by nErBoS
-- Operators are now checked as normal users
-- Some extensions added
-- All known bugs fixed by ----------->>> OpiumVolage

BotName = "![BadFilesDetecter]!?"
MessageToSend = " are not allowed in this hub."
time = 3 --Value in minutes
Files = {
[".dll"]="No .dll files in this hub, you have been banned for "..time.." minutes.",
[".sys"]="No .sys files in this hub, you have been banned for "..time.." minutes.",
[".ini"]="No .ini files in this hub, you have been banned for "..time.." minutes.",
[".php"]="No .php files in this hub, you have been banned for "..time.." minutes.",
[".hlp"]="No .hlp files in this hub, you have been banned for "..time.." minutes.",
[".lnk"]="No .lnk files in this hub, you have been banned for "..time.." minutes.",
[".cue"]="No .cue files in this hub, you have been banned for "..time.." minutes.",
[".pkg"]="No .pkg files in this hub, you have been banned for "..time.." minutes.",
[".lib"]="No .lib files in this hub, you have been banned for "..time.." minutes.",
[".ins"]="No .ins files in this hub, you have been banned for "..time.." minutes.",
[".cmd"]="No .cmd files in this hub, you have been banned for "..time.." minutes.",
[".bat"]="No .bat files in this hub, you have been banned for "..time.." minutes.",
[".cod"]="No .cod files in this hub, you have been banned for "..time.." minutes.",
[".cox"]="No .cox files in this hub, you have been banned for "..time.." minutes.",
[".loc"]="No .loc files in this hub, you have been banned for "..time.." minutes.",
[".cnt"]="No .cnt files in this hub, you have been banned for "..time.." minutes.",
[".vxd"]="No .vxd files in this hub, you have been banned for "..time.." minutes.",
[".vga"]="No .vga files in this hub, you have been banned for "..time.." minutes.",
[".stb"]="No .stb files in this hub, you have been banned for "..time.." minutes.",
[".chp"]="No .chp files in this hub, you have been banned for "..time.." minutes.",
[".nrg"]="No .nrg files in this hub, you have been banned for "..time.." minutes.",
[".iso"]="No .iso files in this hub, you have been banned for "..time.." minutes.",
[".vob"]="No .vob files in this hub, you have been banned for "..time.." minutes.",
[".pas"]="No .pas files in this hub, you have been banned for "..time.." minutes.",
[".vcf"]="No .vcf files in this hub, you have been banned for "..time.." minutes.",
[".dfm"]="No .dfm files in this hub, you have been banned for "..time.." minutes.",
[".res"]="No .res files in this hub, you have been banned for "..time.." minutes.",
[".reg"]="No .reg files in this hub, you have been banned for "..time.." minutes.",
[".vdi"]="No .vdi files in this hub, you have been banned for "..time.." minutes.",
[".map"]="No .map files in this hub, you have been banned for "..time.." minutes.",
[".scr"]="No .scr files in this hub, you have been banned for "..time.." minutes.",
[".diz"]="No .diz files in this hub, you have been banned for "..time.." minutes.",
[".lst"]="No .lst files in this hub, you have been banned for "..time.." minutes.",
[".pdf"]="No .pdf files in this hub, you have been banned for "..time.." minutes."
}
function NewUserConnected(curUser)
frmHub:EnableSearchData(1)
for i,v in Files do
curUser:SendData("$Search Hub:"..BotName..random(1, 100) .." F?F?0?1?"..i)
end
end
function OpConnected(curUser)
frmHub:EnableSearchData(1)
for i,v in Files do
curUser:SendData("$Search Hub:"..BotName..random(1, 100) .." F?F?0?1?"..i)
end
end
function DataArrival(curUser, data)
if( strsub(data, 1, 3) == "$SR" ) then
_,_,nick = strfind( data, "\05(%S*)|$" )
local s = 5 + strlen(curUser.sName)
local e = strfind(data, "%d+%s%d+/%d+") - 2
local path = strsub(data, s, e)
local s = 5 + strlen(curUser.sName)
Reason = FindWhat(curUser,data)
if (Reason == "Other files") then return end
curUser:SendData(BotName, "Disconnecting.....")
curUser:SendData(BotName, "Reason: "..Reason)
curUser:SendData(BotName, "Path: "..path.. ".")
curUser:Disconnect()
curUser:TimeBan(time) --This line tempban a user for an specific amount of time in minutes, to incree/decrease the time change the value in variable 'time'
-- curUser:TempBan() --This line tempban a user for an specific amount of time pre-setted inside ptokax advanced settings, to make it work, uncomment this line and comment the line above
end
end
function FindWhat(curUser,data)
for i,v in Files do
if (strfind(strlower(data), "%"..i.."\005")) then
return v
end
end
return "Other files"
end
Title: or this...
Post by: angelsanges on 11 January, 2004, 01:17:37
another bot.....

-- FilesControlBot by aMutex 02.01.2003
botname = "[Guard]"
trigs = {
lolita="[USER] shares/is looking for lolita porn",
preteen="[USER] shares/is looking for preteen porn",
incest="[USER] shares/is looking for incest porn",
animalsex="[USER] shares/is looking for sex with animals",
rape="[USER] shares/is looking for rape stuff",
hitler="[USER] shares/is looking for nazistuff"
}

function DataArrival(user, data)

if ((strlower(strsub(data,1,3))=="$sr")or(strlower(strsub(data,1,7))=="$search")) then
for key, value in trigs do
if( strfind( strlower(data), key) ) then
answer, x = gsub(value, "%b[]", user.sName)
SendToOps( botname, answer )

end

end
end
end

this finds a forbidden file and sends a ps to ops with user nick....
i need something like that but i have to chek the presence of .iso or .nrg files....if those files are not epresent....the bot sends message to ops or in op chat....
it is that possible?
Title: ...
Post by: angelsanges on 11 January, 2004, 12:31:23
.....zZzzzZZZZzzzz...
Title:
Post by: pHaTTy on 11 January, 2004, 12:41:59
QuoteOriginally posted by angelsanges
yes...but i believe that those scripts do not send an advice to ops or an advice to op chat...
or it will be useful a bot that blocks downloads/uploads to users that not share iso or nrg files

pmsl well if not wanting users to share iso or nero images, you can send em to me if u like :P

he he he
Title: :D
Post by: angelsanges on 11 January, 2004, 21:45:56
no my problem is not that....I own an hub dedicated to dvd iso's condivision.....and i wonder a bot that disconnects or segnalate to ops the NOT PRESENCE of those files.......in this way the op/admin can contact the user and advertise that he have to share minimum one dvd iso/nrg image....

sorry for my english
Title:
Post by: plop on 11 January, 2004, 23:58:03
i trying somethings, but i'm still not fully sure how 2 do this.
give me some time, i hope i can find a way 2 do this.

plop
Title:
Post by: angelsanges on 12 January, 2004, 13:34:36
thanks in advance..............
Title:
Post by: angelsanges on 10 February, 2004, 23:50:56
BotName = "![BadFilesDetecter]!?"
MessageToSend = " are not allowed in this hub."
time = 3 --Value in minutes
Files = {
[".dll"]="No .dll files in this hub, you have been banned for "..time.." minutes.",
[".sys"]="No .sys files in this hub, you have been banned for "..time.." minutes.",
[".ini"]="No .ini files in this hub, you have been banned for "..time.." minutes.",
[".php"]="No .php files in this hub, you have been banned for "..time.." minutes.",
[".hlp"]="No .hlp files in this hub, you have been banned for "..time.." minutes.",
[".lnk"]="No .lnk files in this hub, you have been banned for "..time.." minutes.",
[".cue"]="No .cue files in this hub, you have been banned for "..time.." minutes.",
[".pkg"]="No .pkg files in this hub, you have been banned for "..time.." minutes.",
[".lib"]="No .lib files in this hub, you have been banned for "..time.." minutes.",
[".ins"]="No .ins files in this hub, you have been banned for "..time.." minutes.",
[".cmd"]="No .cmd files in this hub, you have been banned for "..time.." minutes.",
[".bat"]="No .bat files in this hub, you have been banned for "..time.." minutes.",
[".cod"]="No .cod files in this hub, you have been banned for "..time.." minutes.",
[".cox"]="No .cox files in this hub, you have been banned for "..time.." minutes.",
[".loc"]="No .loc files in this hub, you have been banned for "..time.." minutes.",
[".cnt"]="No .cnt files in this hub, you have been banned for "..time.." minutes.",
[".vxd"]="No .vxd files in this hub, you have been banned for "..time.." minutes.",
[".vga"]="No .vga files in this hub, you have been banned for "..time.." minutes.",
[".stb"]="No .stb files in this hub, you have been banned for "..time.." minutes.",
[".chp"]="No .chp files in this hub, you have been banned for "..time.." minutes.",
[".nrg"]="No .nrg files in this hub, you have been banned for "..time.." minutes.",
[".iso"]="No .iso files in this hub, you have been banned for "..time.." minutes.",
[".vob"]="No .vob files in this hub, you have been banned for "..time.." minutes.",
[".pas"]="No .pas files in this hub, you have been banned for "..time.." minutes.",
[".vcf"]="No .vcf files in this hub, you have been banned for "..time.." minutes.",
[".dfm"]="No .dfm files in this hub, you have been banned for "..time.." minutes.",
[".res"]="No .res files in this hub, you have been banned for "..time.." minutes.",
[".reg"]="No .reg files in this hub, you have been banned for "..time.." minutes.",
[".vdi"]="No .vdi files in this hub, you have been banned for "..time.." minutes.",
[".map"]="No .map files in this hub, you have been banned for "..time.." minutes.",
[".scr"]="No .scr files in this hub, you have been banned for "..time.." minutes.",
[".diz"]="No .diz files in this hub, you have been banned for "..time.." minutes.",
[".lst"]="No .lst files in this hub, you have been banned for "..time.." minutes.",
[".pdf"]="No .pdf files in this hub, you have been banned for "..time.." minutes."
}
function NewUserConnected(curUser)
frmHub:EnableSearchData(1)
for i,v in Files do
curUser:SendData("$Search Hub:"..BotName..random(1, 100) .." F?F?0?1?"..i)
end
end
function OpConnected(curUser)
frmHub:EnableSearchData(1)
for i,v in Files do
curUser:SendData("$Search Hub:"..BotName..random(1, 100) .." F?F?0?1?"..i)
end
end
function DataArrival(curUser, data)
if( strsub(data, 1, 3) == "$SR" ) then
_,_,nick = strfind( data, "\05(%S*)|$" )
local s = 5 + strlen(curUser.sName)
local e = strfind(data, "%d+%s%d+/%d+") - 2
local path = strsub(data, s, e)
local s = 5 + strlen(curUser.sName)
Reason = FindWhat(curUser,data)
if (Reason == "Other files") then return end
curUser:SendData(BotName, "Disconnecting.....")
curUser:SendData(BotName, "Reason: "..Reason)
curUser:SendData(BotName, "Path: "..path.. ".")
curUser:Disconnect()
curUser:TimeBan(time) --This line tempban a user for an specific amount of time in minutes, to incree/decrease the time change the value in variable 'time'
-- curUser:TempBan() --This line tempban a user for an specific amount of time pre-setted inside ptokax advanced settings, to make it work, uncomment this line and comment the line above
end
end
function FindWhat(curUser,data)
for i,v in Files do
if (strfind(strlower(data), "%"..i.."\005")) then
return v
end
end
return "Other files"
end



thi bot searches some kind of files and kicks users that share them......
now the point is.......Can this bot be modified to check th presence of .iso .nrg files? if this kind of files isn't found the user is kicked?
Text only | Text with Images