Help to converter anti spam

[?[-?Genius?-]?]

Hi
sory my bad inglish
i nedd convert my anti spam script
Tankx



BotName = "???n?? ? P?b ?"

advtrigs = {"dns2go","myftpsite","servebeer","mine.nu","ip.com","dynip","online.storm","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",
   "storm-labs","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","servep2p.com","servesarcasm.com",
   "workisboring.com","hopto","64.246.26.135","213.145.29.222","dnsalias","ptunderground","homeftp.net","ptarena",
   ".nu","portugal2","portugalelite","myftp.org","portugalanime","leech-pt","biz","stormbringer","ptfasthub",
   "ptfasthub","rebeldes4ever","vialonga","overdrive","wildsoft","rom-n-emu","ptdeportugal","myip.org","cl-movies2",
   "cl-movies","golden-hub","dog.kicks","ass.net","kicks-ass","linda-a-velha","ods.org","ptstargate","ptbakano","videogames",
   "curtocircuito","sotarolos","setubal-hub","fw.nu","sintra.sytes","dvdvideo.","ptconnect","systemsonlinehub","hubpt","themoviezconnection",
   "mtv.","ultoraetheris","curtametragem","ptmovies","cubik","mp3music","invicta","blacknet","2mydns","serverbox",
   "pt-world","sleepers","tranceleepers","servemp3","ps2revolution","xbhub","ptglorioso","rs01tuga","phreacking","icehub","radicalhub",
   "mushrooms","7arte","setimarte","no-exit","alfrajoin","braga-hub"," porto-hub","ptbakano","gsi","ellite","olissipuz","ptolissipuz",
   "ods.org","ptchavalos",":7777","loritienpt","ptsupershare","tudonosso","tudonosso","charmed","ptjogos","webhs","lav-sounds","arrakisdune",
   "hubcrazyboy","cx"}

validtrigs = {"cyber-world.no-ip.com","eklypse.no-ip.com", "cyber-matrix.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.." levou kom BAN pk: | -=PUB=- UsersIP: "..user.sIP.." \r\n           ________________________]_                                                  ` .  '  . ? \r\n       -__////_(____)_______________0 ---------S? kero anunciar k o user "..user.sName.." foi kickado por fazer PUB---------=> \r\n          )  @   ___9mm___ _______\_/                                                      . ?  .  ` .  \r\n         /-------/(  __   // \r\n       /  xxx  /___// \r\n     / xxxxx // \r\n   / xxxxx // \r\n              /____ _/ \r\n ")
               user:SendPM(BotName, "Bom, komo v?s fazer PUB ? kompensa. P pr?xima pensa duas Xs.")
               user:Disconnect();
               user:TimeBan(15);
               s,e,onlymes = strfind(data, "%b<> (.*)")
               SendPmToOps ("???p[??]", "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 ("???p[??]", "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.." levou kom BAN pk: | -=PUB=- UsersIP: "..user.sIP.." \r\n           ________________________]_                                                  ` .  '  . ? \r\n       -__////_(____)_______________0 ---------S? kero anunciar k o user "..user.sName.." foi kickado por fazer PUB---------=> \r\n          )  @   ___9mm___ _______\_/                                                      . ?  .  ` .  \r\n         /-------/(  __   // \r\n       /  xxx  /___// \r\n     / xxxxx // \r\n   / xxxxx // \r\n              /____ _/ \r\n ")
               user:SendPM(BotName, "Bom, komo v?s fazer PUB ? kompensa. P pr?xima pensa duas Xs.")
               user:Disconnect();
               user:TimeBan(15);
               s,e,onlymes = strfind(data, "%b<> (.*)")
               SendPmToOps ("???p[??]", "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.." levou kom BAN pk: | -=PUB=- UsersIP: "..user.sIP.." \r\n           ________________________]_                                                  ` .  '  . ? \r\n       -__////_(____)_______________0 ---------S? kero anunciar k o user "..user.sName.." foi kickado por fazer PUB---------=> \r\n          )  @   ___9mm___ _______\_/                                                      . ?  .  ` .  \r\n         /-------/(  __   // \r\n       /  xxx  /___// \r\n     / xxxxx // \r\n   / xxxxx // \r\n              /____ _/ \r\n ")
                  user:SendPM(BotName, "Bom, komo v?s fazer PUB ? kompensa. P pr?xima pensa duas Xs.")
                  user:Disconnect();
                  user:TimeBan(15);
                  s,e,whoTo,from,mes = strfind(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")  
                  SendPmToOps ("???p[??]", "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 ("???p[??]", "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.." levou kom BAN pk: | -=PUB=- UsersIP: "..user.sIP.." \r\n           ________________________]_                                                  ` .  '  . ? \r\n       -__////_(____)_______________0 ---------S? kero anunciar k o user "..user.sName.." foi kickado por fazer PUB---------=> \r\n          )  @   ___9mm___ _______\_/                                                      . ?  .  ` .  \r\n         /-------/(  __   // \r\n       /  xxx  /___// \r\n     / xxxxx // \r\n   / xxxxx // \r\n              /____ _/ \r\n ")
                  user:SendPM(BotName, "Bom, komo v?s fazer PUB ? kompensa. P pr?xima pensa duas Xs.")
                  user:Disconnect();
                  user:TimeBan(15);
                  s,e,whoTo,from,mes = strfind(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")  
                  SendPmToOps ("???p[??]", "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

[jiten]

Check this .

Best regards,

jiten

[?[-?Genius?-]?]

tank you :)

[jiten]

yw  :]