Text only | Text with Images

PtokaX forum

Development Section => Your Developing Problems => Topic started by: nErBoS on 27 January, 2004, 22:57:05

Title: Anit-Pub crazy...
Post by: nErBoS on 27 January, 2004, 22:57:05
Hi all,

Having a problem with tihs anti-pub:

Code Select
--Modified By nErBoS

botname = "Anti-Pub"
trigs = {"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"}

function Main()
   frmHub:RegBot(botname)
end
   
function DataArrival(user, data)
   if (not user.bOperator) then
      if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then
      for key,a in trigs do
      if( strfind( strlower(data), key) ) then
      local word = strlower(data), key
      SendToAll(botname, "The user "..user.sName.." was ban for PUB." )
      user:SendData(botname, "You have been banned for PUB.")
      SendPmToOps(botname, "The user "..user.sName.." was ban for PUB.")
      SendPmToOps(botname, "The user IP was "..user.sIP.." .")
      SendPmToOps(botname, "The user wrote : "..word)
      user:Disconnect()
      user:TempBan()
      end
      end
      end
   end
end

Sometimes it ban me a user with no reason for eg:

-The user xxx was banned for PUB.
-User?s IP xxx.xxx.xxx.xxx .
-The user wrote: $to: nerbos from: userxxx $ estado: ausente / raz?o: insanidade temporaria!
Title:
Post by: plop on 27 January, 2004, 23:57:50
i see you modified it yourself so i'll give some hints about whats going wrong.
or better 2 say it actualy goes correct.
just using away mode on your hub is deathly.
execute the next script with the lua command line 2 see what is happening.
Code Select
trigs = {"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"}
 
data = "$to: nerbos from: userxxx $ estado: ausente / raz?o: insanidade temporaria! "

for key,a in trigs do
   if( strfind( strlower(data), key) ) then
      print("key: "..key.."          a: "..a)
      print(data)
      print(gsub(data, key, " --"..key.."-- "))
   end
end
plop
Title:
Post by: nErBoS on 28 January, 2004, 02:11:41
Yep i understand the Key sends the position of the array and the a sends the word so the error is in this line...

Code Select
     if( strfind( strlower(data), key) ) then
need to change to..

Code Select
     if( strfind( strlower(data), a) ) then
right ?? :)
Title:
Post by: plop on 28 January, 2004, 02:35:36
yep

btw the line under it can be removed, doesn't do anything which is used.

plop
Title:
Post by: nErBoS on 28 January, 2004, 11:36:27
Thanks plop

Going to test it.

Best regards, nErBoS
Title:
Post by: nErBoS on 28 January, 2004, 12:01:50
Still doing the same thing : (
Title:
Post by: plop on 28 January, 2004, 15:37:27
try this.
Code Select
--Modified By nErBoS



botname = "Anti-Pub"
trigs = {"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"}

function Main()
   frmHub:RegBot(botname)
end
   
function DataArrival(user, data)
   if (not user.bOperator) then
      if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then
         for i=1,getn(trigs) do
            if( strfind( strlower(data), trigs[i]) ) then
               SendToAll(botname, "The user "..user.sName.." was ban for PUB." )
               user:SendData(botname, "You have been banned for PUB.")
               SendPmToOps(botname, "The user "..user.sName.." was ban for PUB.")
               SendPmToOps(botname, "The user IP was "..user.sIP.." .")
               SendPmToOps(botname, "The user wrote : "..trigs[i])
               user:Disconnect()
               user:TempBan()
               break
            end
         end
      end
   end
end plop
Title:
Post by: nErBoS on 29 January, 2004, 01:02:48
Now isn?t working :(
Title:
Post by: nErBoS on 29 January, 2004, 14:47:07
Sorry about the last reply it works greatly I hada another trigs with positions.

Thanks a lot plop.

Best regards, nErBoS.
Title:
Post by: plop on 29 January, 2004, 16:01:38
QuoteOriginally posted by nErBoS
Sorry about the last reply it works greatly I hada another trigs with positions.

Thanks a lot plop.

Best regards, nErBoS.
yw.

plop
Text only | Text with Images