PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: kkk on 12 November, 2003, 22:20:46

Title: PLEASE HELP ME
Post by: kkk on 12 November, 2003, 22:20:46
Please help me ! i want script ! Whose show to all op's all users privates mesages ! PLEASE HELP ! ;(
Title:
Post by: pHaTTy on 12 November, 2003, 22:25:16
NO WAY!!!

Glossary:

PM other known as Private message
----------------------------------------------

a private message is something that is sent to another user fwithout others seeing it

Private
---------

The word private means it is a secret, hidden from others, between him and/or another

Do not invade someones privacy, its not nice, and you do get a bad response
Title:
Post by: Nafigs on 12 November, 2003, 22:39:21
Phatyy!!!

I am using one like that in my hub and it helps a lot for advertising:)
Title:
Post by: pHaTTy on 12 November, 2003, 22:39:59
noooooooooooooooooooooooooooooo!!!

its sick.....use a anti advertising bot then
Title:
Post by: Nafigs on 12 November, 2003, 22:50:53
But there isn't such a good anti advertising bot who would react with a spaces and all the IP adreses and .......

I don't know, i like that one, and i am not allways reading the private msg! So.....:)

And I know a lot af hubs who are using one of thouse and they are satisfacted:)

Sorry about my english!!!
Title:
Post by: NightLitch on 12 November, 2003, 23:07:04
Here, suggest you use this istead...

This one is great... so run this it takes on spaces to,
ex:

n o . i p . c o m


--------------------------------------------------------------------------------
--Lucifer 6.6.6-- updated version

--This is a Powerful AntiAdvertising Script
--Powered by Demone.Astaroth and OpiumVolage

--History: Base='multiline antiadvertise' by OpiumVolage (your tables simplify the work I did until that moment). Here its features:
--             1)Script can block this types of advertisement: A) example.no-ip.com
--       B) e x a m p l e . n o - i p . c o m
--       C)example.
--          no-
--          ip.
--          com
--       D)e
--          x
--          a
--          m
--          p
--          l
--          e
--          .
--          n
--          o
--          -      
--          i
--          p
--          .
--          c
--          o
--          m
--             2)You can insert valid addresses (like yours) in trigs, so bot won't kick you
--             3)Users conversating with ops don't get kicked
--             4)Why the Timer? It cleans memory.

--             Demone.Astaroth addons: 1)added an huge list of addresses
--        2)When advertising: user advised on Pm before disconnection; Bot sends to all in main chat the kicking message (without IP);
--                                         advertise-infos send to Op-chat directly without troubling any Op with Pms! Infos contain user's IP, user To(if PM) and last message
--         Just replace INSERT.HERE.YOUR.OP-CHAT.NAME fields with yours.
--                          3)inserted Disconnect and TimeBan (15 minutes) instead of gagging user
--        4)Prevented very splitted addresses (with more tabAdvert lines)
--                                      5)added Control-addresses: user isn't kicked for these addresses but Ops are informed in any case.
--                                                                                   this is useful for friend-hubs addresses, if u also want to control them
--                                      6)added ControlUser status: if u're scary about your vips advertising their hubs and stealing you user,
--                                                                                    you can't insert the tag [VIP] or anything else in the specific space: they will not
--                                                                                      get kicked for any addresses, but in case of typing a Control-address, Ops will be
--                                                                                          informed.
--                                      7)Fixed some bug (Thanks Opium)
--      8)Added a new string-pieces find way to catch advertises

BotName = "?Lucifer?"

advtrigs = {"dns2go","myftpsite","servebeer","mine.nu","ip.com","dynip","depecheconnect.com","zapto.org",
"staticip","serveftp","ipactive","ip.org","no-ip","servegame","gotdns.org","ip.net","ip.co.uk",
"ath.cx","dyndns","68.67.18.75","clanpimp","idlegames","sytes","unusualperson.com",
"24.184.64.48","uni.cc","151.198.149.60","homeunix","24.209.232.97","ciscofreak.com",
"deftonzs.com","24.187.50.121","flamenap","xs4all","serveftp","point2this.com","ip.info",
"myftp","d2g","151.198.149.60","24.184.64.48","orgdns","myip.org","stufftoread.com",
"ip.biz","dynu.com","mine.org","kick-ass.net","darkdata.net","ipme.net","udgnet.com","homeip.net",
"e-net.lv","newgnr.com","bst.net","bsd.net","ods.org","x-host","bounceme.net","myvnc.com",
"kyed.com","lir.dk","finx.org","sheckie.net","vizvaz.net","snygging.net","kicks-ass.com","nerdcamp.net",
"cicileu.","3utilities.com","myftp.biz","redirectme.net","servebeer.com","servecounterstrike.com",
"servehalflife.com","servehttp.com","serveirc.com","servemp3.com","servepics.com","servequake.com",
"damnserver.com","ditchyourip.com","dnsiskinky.com","geekgalaxy.com","net-freaks.com","ip.ca",
"securityexploits.com","securitytactics.com","servehumour.com","servep2p.com","servesarcasm.com",
"workisboring.com","hopto","64.246.26.135","213.145.29.222","dnsalias"}

validtrigs = {"myhub.no-ip.com","multihub2.no-ip.com", "greatfriend.no-ip.com"} --insert here your addresses (like yours or multihub ones or great friend's hub ;) )

controltrigs={["hub1"]=1,["hub2"]=2,["hub3"]=3, ["hub4"]=4, ["hub5"]=5} --insert here addresses you want to be informed (no kick)

tabAdvert = {}

function Main()
frmHub:RegBot(BotName)
SetTimer(60000)
StartTimer()
end

function OnTimer()
for key, value in tabAdvert do
if (tabAdvert[key].iClock > clock()+60) then
tabAdvert[key]=nil
end
end
end

function DataArrival(user, data)
if not user.bOperator then
if strsub(data, 1, 1) == "<" then
local _, _, msg = strfind(data, "^%b<>%s+(.*)|")
if Verify(user.sName, msg) then
catch=strsub(user.sName,1,5)         --5 is counting chars of the tag below: if u change [VIP], change it!
if catch=="[VIP]" then                  --ControlUser status : insert users Tag u don't want to get kicked
else
tabAdvert[user.sName]=nil
SendToAll( BotName, user.sName.." get slaughtered by Lucifer for advertising!")
user:SendPM(BotName, "I slaughtered you! Don't try again to advertise!")
user:Disconnect();
user:TimeBan(15);
s,e,onlymes = strfind(data, "%b<> (.*)")
SendPmToOps ("INSERT.HERE.YOUR.OP-CHAT.NAME", "User "..user.sName.." with IP "..user.sIP.." advertised in main chat saying: "..onlymes.."")
end
end
for key, value in controltrigs do
if( strfind( strlower(data), key) ) then
s,e,onlymes = strfind(data, "%b<> (.*)")
SendPmToOps ("INSERT.HERE.YOUR.OP-CHAT.NAME", "Control: User "..user.sName.." with IP "..user.sIP.." told in main: "..onlymes.."")
end
end

spam=0
if( strfind( strlower(data), "no",1,1) ) and ( strfind( strlower(data), "ip.",1,1) ) then
if ( strfind( strlower(data), "com",1,1) ) or ( strfind( strlower(data), "org",1,1) ) or ( strfind( strlower(data), "info",1,1) ) then
spam=spam+1; end; end;

if( strfind( strlower(data), "dns",1,1) ) and ( strfind( strlower(data), "2",1,1) ) and ( strfind( strlower(data), "go",1,1) ) then
spam=spam+1; end

if( strfind( strlower(data), "dy",1,1) ) and ( strfind( strlower(data), "nu",1,1) ) then
if( strfind( strlower(data), ".net",1,1) ) or ( strfind( strlower(data), ".com",1,1) ) then
spam=spam+1;end; end

if( strfind( strlower(data), "d n s a",1,1) ) or ( strfind( strlower(data), "d n s .",1,1) ) or ( strfind( strlower(data), "d n s 2",1,1) ) or ( strfind( strlower(data), "o d s .",1,1) ) or ( strfind( strlower(data), "d y n",1,1) ) then
spam=spam+1;end

if spam>0 then
SendToAll( BotName, user.sName.." get slaughtered by Lucifer for advertising!")
user:SendPM(BotName, "I slaughtered you! Don't try again to advertise!")
user:Disconnect();
user:TimeBan(15);
s,e,onlymes = strfind(data, "%b<> (.*)")
SendPmToOps ("INSERT.HERE.YOUR.OP-CHAT.NAME", "User "..user.sName.." with IP "..user.sIP.." advertised in main chat saying: "..onlymes.."")
end






elseif strsub(data, 1, 4) == "$To:" then
local _, _, to, from, msg = strfind(data, "^%$To:%s+(%S+)%s+From:%s+(%S+)%s-%$%b<>%s+(.*)|")
local nick = GetItemByName(to)
if not nick.bOperator then
local userdata = to.." "..from
if Verify(userdata, msg) then
catch=strsub(user.sName,1,16)
if catch=="['??SemiDeus??']" then
else
tabAdvert[userdata] = nil
SendToAll( BotName, user.sName.." get slaughtered by Lucifer for advertising!")
user:SendPM(BotName, "I slaughtered you! Don't try again to advertise!")
user:Disconnect();
user:TimeBan(15);
s,e,whoTo,from,mes = strfind(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")  
SendPmToOps ("INSERT.HERE.YOUR.OP-CHAT.NAME", "User "..user.sName.." with IP "..user.sIP.." advertised in main chat saying to "..whoTo.." this: "..mes.."")
end
end
for key, value in controltrigs do
if( strfind( strlower(data), key) ) then
s,e,whoTo,from,mes = strfind(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")  
SendPmToOps ("INSERT.HERE.YOUR.OP-CHAT.NAME", "Control: User "..user.sName.." with IP "..user.sIP.." said to "..whoTo.." this: "..mes.."")
end
end

spam=0
if( strfind( strlower(data), "no",1,1) ) and ( strfind( strlower(data), "ip.",1,1) ) then
if ( strfind( strlower(data), "com",1,1) ) or ( strfind( strlower(data), "org",1,1) ) or ( strfind( strlower(data), "info",1,1) ) then
spam=spam+1; end; end;

if( strfind( strlower(data), "dns",1,1) ) and ( strfind( strlower(data), "2",1,1) ) and ( strfind( strlower(data), "go",1,1) ) then
spam=spam+1; end

if( strfind( strlower(data), "dy",1,1) ) and ( strfind( strlower(data), "nu",1,1) ) then
if( strfind( strlower(data), ".net",1,1) ) or ( strfind( strlower(data), ".com",1,1) ) then
spam=spam+1;end; end

if( strfind( strlower(data), "d n s a",1,1) ) or ( strfind( strlower(data), "d n s .",1,1) ) or ( strfind( strlower(data), "d n s 2",1,1) ) or ( strfind( strlower(data), "o d s .",1,1) ) or ( strfind( strlower(data), "d y n",1,1) ) then
spam=spam+1;end

if spam>0 then
SendToAll( BotName, user.sName.." get slaughtered by Lucifer for advertising!")
user:SendPM(BotName, "I slaughtered you! Don't try again to advertise!")
user:Disconnect();
user:TimeBan(15);
s,e,whoTo,from,mes = strfind(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")  
SendPmToOps ("INSERT.HERE.YOUR.OP-CHAT.NAME", "User "..user.sName.." with IP "..user.sIP.." advertised in main chat saying to "..whoTo.." this: "..mes.."")
end
end
end
end
end

function Verify(userdata, msg)
if not msg then return end
tmp =""
gsub(strlower(msg), "([a-z0-9.:%-])", function(x) tmp = tmp..x end)
if not tabAdvert[userdata] then
tabAdvert[userdata] = { iClock = clock(), l1 = "", l2 = "", l3 = "", l4= "", l5= "",l6= "",l7= "",l8= "",l9 = tmp}
else
tabAdvert[userdata].iClock = clock()
tabAdvert[userdata].l1 = tabAdvert[userdata].l2
tabAdvert[userdata].l2 = tabAdvert[userdata].l3
tabAdvert[userdata].l3 = tabAdvert[userdata].l4
tabAdvert[userdata].l4 = tabAdvert[userdata].l5
tabAdvert[userdata].l5 = tabAdvert[userdata].l6
tabAdvert[userdata].l6 = tabAdvert[userdata].l7
tabAdvert[userdata].l7 = tabAdvert[userdata].l8
tabAdvert[userdata].l8 = tabAdvert[userdata].l9
tabAdvert[userdata].l9 = tmp
end
local Lines = tabAdvert[userdata].l1..tabAdvert[userdata].l2..tabAdvert[userdata].l3..tabAdvert[userdata].l4..tabAdvert[userdata].l5..tabAdvert[userdata].l6..tabAdvert[userdata].l7..tabAdvert[userdata].l8..tabAdvert[userdata].l9
for key, value in advtrigs do
if (strfind(Lines, strlower(value), 1, 1)) then
for key2, value2 in validtrigs do
if (strfind(Lines, strlower(value2), 1, 1)) then
return nil
end
end
return 1
end
end
end


/NightLitch
Title:
Post by: pHaTTy on 12 November, 2003, 23:07:19
there is an anti advert bot that gets thewm with spaces i think OpiumVolage done that i think
Title:
Post by: NightLitch on 12 November, 2003, 23:08:40
already post it pH?tt? hehe  :D


gonna hit the bed now, have a good one m8,  :))

/NightLitch
Title:
Post by: chub on 12 November, 2003, 23:09:38
QuoteOriginally posted by Nafigs
But there isn't such a good anti advertising bot who would react with a spaces and all the IP adreses and .......

I don't know, i like that one, and i am not allways reading the private msg! So.....:)

And I know a lot af hubs who are using one of thouse and they are satisfacted:)

Sorry about my english!!!
There is no "and i am not allways reading the private msg! So.....:)" in this. You don't invade other peoples privacy.
So what if they advertise in private? are u really THAT horny for users to stay in your hub? I am sorry, I think it is WRONG. Wouldn't dream of using it.
Really sorry for my language but I really turn against PM spy scripts and such.
Title:
Post by: Nafigs on 12 November, 2003, 23:17:49
whell everyone in my hub know that all op's are reading private msg, and there are fine with that!
Title:
Post by: Nafigs on 12 November, 2003, 23:19:11
hmmm again my bad english, i was saying that " they are.....":)))
Title:
Post by: Nafigs on 12 November, 2003, 23:27:18
And, I know that reading ather peoples private msg just isn't right, but there are many hubs only with IP adress and I

don't know a script against that kind of advertising:((( Whell if you can give me one whose blocks IP adress advertising

then I promise to delete that one who shows private msg:)))
Sorry about my english!
Title:
Post by: pHaTTy on 12 November, 2003, 23:29:06
QuoteOriginally posted by chub
QuoteOriginally posted by Nafigs
But there isn't such a good anti advertising bot who would react with a spaces and all the IP adreses and .......

I don't know, i like that one, and i am not allways reading the private msg! So.....:)

And I know a lot af hubs who are using one of thouse and they are satisfacted:)

Sorry about my english!!!
There is no "and i am not allways reading the private msg! So.....:)" in this. You don't invade other peoples privacy.
So what if they advertise in private? are u really THAT horny for users to stay in your hub? I am sorry, I think it is WRONG. Wouldn't dream of using it.
Really sorry for my language but I really turn against PM spy scripts and such.

I totally agree, and well done NightLitch :o)

im getting slow lol
Title:
Post by: plop on 13 November, 2003, 03:51:39
QuoteOriginally posted by Nafigs
And, I know that reading ather peoples private msg just isn't right, but there are many hubs only with IP adress and I

don't know a script against that kind of advertising:((( Whell if you can give me one whose blocks IP adress advertising

then I promise to delete that one who shows private msg:)))
Sorry about my english!
start deleting.
this 1 works the other way around, every url is changed for the url of your hub/website.
-- sneaky anti advertising bot by plop
-- it replaces the url's users post for your own.   lol
-- let them work for you, instead of against you
-- thx again for the hints from rabidwombat


WEBSITE = "http://www.dcvikings.com/~goldenangel/"
HUBADRESS ="goldenangel.no-ip.org"

OKSITES = { ["www.plop.nl"] = 1, ["www.dcvikings.com"] = 1 }

OKHUBS = { ["tga-darkstar.no-ip.com"] = 1, ["goldenangel.no-ip.org"] = 1, ["tga-norge.2waky.com"] = 1}

function DataArrival(user, data)
   if user.iProfile == -1 or user.iProfile == 3 then
      if (strsub(data, 1, 1) == "<") then
         data = strsub(data, 1, (strlen(data)-1))
         local s,e,msg,webadver,msg2 = strfind(data, "%b<>%s(.*)[URL]http://[/URL]([^%.]+%.[^%.]+%.%S+)(.*)$")
         if webadver ~= nil then
            local s,e,webby = strfind(webadver, "(%S+%.[^%.]+%.%a+)/.*")
            if webby == nil then webby = webadver end
            if OKSITES[webby] == nil then
               SendToAll(user.sName, msg..WEBSITE..msg2)
               return 1
            end
         else
            local s,e,msg,webadver,msg2 = strfind(data, "%b<>%s(.*)(www+%.[^%.]+%.%S+)(.*)$")
            if webadver ~= nil then
               local s,e,webby = strfind(webadver, "(%S+%.[^%.]+%.%a+)/.*")
               if webby == nil then webby = webadver end
               if OKSITES[webby] == nil then
                  SendToAll(user.sName, msg..WEBSITE..msg2)
                  return 1
               end
            else
               local s,e, adver = strfind(data, "%b<>%s(%S+%.[^%.]+%.[^%.]+)")
               if adver ~= nil then
                  local s,e,hubby = strfind(adver, "(%S+%.[^%.]+%.%a+)/.*")
                  if hubby == nil then hubby = adver end
                  if OKHUBS[hubby] == nil then
                     SendToAll(user.sName, HUBADRESS)
                     return 1
                  end
               else
                  local s,e,msg,adver,msg2 = strfind(data, "%b<>%s(.*)%s([^%.]+%.[^%.]+%.%S+)(.*)$")
                  if adver ~= nil then
                     local s,e,hubby = strfind(adver, "(%S+%.[^%.]+%.%a+)/.*")
                     if hubby == nil then hubby = adver end
                     if OKHUBS[hubby] == nil then
                        SendToAll(user.sName, msg.." "..HUBADRESS..msg2)
                        return 1
                     end
                  end
               end
            end
         end
      else
         local s,e,to,text = strfind(data,    "%$To:%s(%S+)%sFrom:%s%S+%s$(.*)$")
         if(to == nil) then return 0 end
         to = GetItemByName(to)
         if to == nil then return 0 end
         if to.iProfile == -1 or to.iProfile == 3 then
            text = strsub(text, 1, (strlen(text)-1))
            local s,e,msg,webadver,msg2 = strfind(text, "%b<>%s(.*)[URL]http://[/URL]([^%.]+%.[^%.]+%.%S+)(.*)$")
            if webadver ~= nil then
               local s,e,webby = strfind(webadver, "(%S+%.[^%.]+%.%a+)/.*")
               if webby == nil then webby = webadver end
               if OKSITES[webby] == nil then
                  SendPmToNick(to.sName, user.sName, msg..WEBSITE..msg2)
                  return 1
               end
            else
               local s,e,msg,webadver,msg2 = strfind(text, "%b<>%s(.*)(www+%.[^%.]+%.%S+)(.*)$")
               if webadver ~= nil then
                  local s,e,webby = strfind(webadver, "(%S+%.[^%.]+%.%a+)/.*")
                  if webby == nil then webby = webadver end
                  if OKSITES[webby] == nil then
                     SendPmToNick(to.sName, user.sName, msg..WEBSITE..msg2)
                     return 1
                  end
               else
                  local s,e, adver = strfind(text, "%b<>%s(%S+%.[^%.]+%.[^%.]+)")
                  if adver ~= nil then
                     local s,e,hubby = strfind(adver, "(%S+%.[^%.]+%.%a+)/.*")
                     if hubby == nil then hubby = adver end
                     if OKHUBS[hubby] == nil then
                        SendPmToNick(to.sName, user.sName, HUBADRESS)
                        return 1
                     end
                  else
                     local s,e,msg,adver,msg2 = strfind(text, "%b<>%s(.*)%s([^%.]+%.[^%.]+%.%S+)(.*)$")
                     if adver ~= nil then
                        local s,e,hubby = strfind(adver, "(%S+%.[^%.]+%.%a+)/.*")
                        if hubby == nil then hubby = adver end
                        if OKHUBS[hubby] == nil then
                           SendPmToNick(to.sName, user.sName, msg.." "..HUBADRESS..msg2)
                           return 1
                        end
                     end
                  end
               end
            end
         end
      end
   end
end
and only crap hubs spam, so why worry about it.

plop
Title:
Post by: pHaTTy on 13 November, 2003, 04:44:38
ha ha ha right on plop :o)
Title:
Post by: lazyj189 on 13 November, 2003, 06:09:51
I agree with the fact that reading someone's PM's is an invasion of privacy especially if they are not notified that that is happening, I wanted to make that point clear to start with.

I would like to comment though, I do not think that it is fair for any of us in the forums to tell others how to run their hubs.  If scriptors do not wish to make a script that shows a person's pm's that is their choice.  But I do not agree with trying to impose our beliefs or convictions upon other people.  If they wish to have a script that shows pm's that is their choice, not ours.  Again, I stated my opinion on the whole matter in the above paragraph.  But if they can come up with a script, or there is a scriptor out there that is willing to make and share one, who are we to impose our opinions upon them an dstop them or thwart their efforts?
Title:
Post by: Nafigs on 13 November, 2003, 12:16:23
Plop!!!

I was using that Sneaky advertising, but when user tryed to tell some adress, wich was't a hiden advertising, he just cant

do that and i delete that script one week ago, I think that script is a crap!!!

Well ok ok, I'am not using anymore that spy script who shows private msg, thank's to all of you:)))

SORRY about my english!
Title:
Post by: pHaTTy on 13 November, 2003, 13:00:11
Ahhh bril good 4 u :o)

l8r,,

-phatty ;)
Title:
Post by: pHaTTy on 13 November, 2003, 13:02:17
QuoteOriginally posted by lazyj189
I agree with the fact that reading someone's PM's is an invasion of privacy especially if they are not notified that that is happening, I wanted to make that point clear to start with.

I would like to comment though, I do not think that it is fair for any of us in the forums to tell others how to run their hubs.  If scriptors do not wish to make a script that shows a person's pm's that is their choice.  But I do not agree with trying to impose our beliefs or convictions upon other people.  If they wish to have a script that shows pm's that is their choice, not ours.  Again, I stated my opinion on the whole matter in the above paragraph.  But if they can come up with a script, or there is a scriptor out there that is willing to make and share one, who are we to impose our opinions upon them an dstop them or thwart their efforts?

Well i disagree today he he he, well only because, we are not telling people how to run their hub, we are getting out point across, he he he

if they gonna use a spy script who is to stop them, but we can try and tell them why its a horrible script to have ;)

-phatty
Title:
Post by: chub on 13 November, 2003, 13:47:55
QuoteOriginally posted by Nafigs
And, I know that reading ather peoples private msg just isn't right, but there are many hubs only with IP adress and I

don't know a script against that kind of advertising:((( Whell if you can give me one whose blocks IP adress advertising

then I promise to delete that one who shows private msg:)))
Sorry about my english!

Well, I used IP gag script for a while and that worked. the ones advertising are not so very many and when they got IP gagged they stopped showing up. Might work for you...  :]
Title:
Post by: Nafigs on 13 November, 2003, 14:22:32
CHUB!!!

Can you post here that IP gag script, plzzz???
Title:
Post by: plop on 13 November, 2003, 14:29:56
QuoteOriginally posted by Nafigs
Plop!!!

I was using that Sneaky advertising, but when user tryed to tell some adress, wich was't a hiden advertising, he just cant

do that and i delete that script one week ago, I think that script is a crap!!!

Well ok ok, I'am not using anymore that spy script who shows private msg, thank's to all of you:)))

SORRY about my english!
it filters only if it finds something wich goes from user 2 user.
your an op so users can send urls 2 you.
this is done for 2 reasons.
1. you can catch them for advertising.
2. if a user has a handy url wich some other user needs he can send it 2 ops/vips and they can send it 2 the user.
i explained this on the old forum.
if a url keeps returning you place it in the allowed list.

but good 2 hear that you removed the pm spy.

plop