This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Anti-Spam bot !!! Need help

Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
Post Reply
P
PoHuIsT
Voice
Posts: 23
Joined: Mon Oct 22, 2007 7:49 am

Anti-Spam bot !!! Need help

Post by PoHuIsT »

hi all i have a problem i have this script and i need that this script will not ban a spamer o msg chan a spamer nick text and time samthink like this
now im yuzing this script it loock like this

Code: Select all

##### 23.08.03
# Spam Detective v1.0 by MarlbMan
# irc.newnet.net #complete-chat
#####
#####
#####
# Detects on join/on part spam in one channel, and alerts in another channel.
#####
#####
# Credits: I got the idea from Torr/MC_8's Spam Check. I wanted a script that would
#          join/part a channel at specified intervals, but instead of kicking/banning
#          I wanted it to alert the ops in another channel. This is my 5th script, but
#          the first I've made public. Critism is welcome. I will be releasing a few
#          more very soon.
#####
#####
# Settings:
#####

# Which channel shall we monitor for spam?
set spamdet(monitor_chan) ""
# Which channel shall we posts alerts in?
set spamdet(alert_chan) "#[censored]-listas"
# How many minutes shall we idle in channel?
set spamdet(idle_time) "10"
# How many seconds shall we stay gone?
set spamdet(gone_time) "15"
# Exempt by nick (seperate by ,)
set spamdet(nexempt) "ChanServ, MarlbMan, nickserv, Dr-Fox"
# Exempt by host (seperate by ,)
set spamdet(hexempt) "cwbot@64.124.16.33"
# CTCP Keys to ignore (should always include action to prevent actions being reported)
set spamdet(kexempt) "ACTION"

#####
# Code (If you edit below this line you will hemmorage uncontrollably from your rectum)
#####
set spamdet(ver) "1.0"
if {![string match *spamdetect* [timers]]} {timer $spamdet(idle_time) spamdetect}

proc spamdetect {} {
global spamdet botnick
foreach chan [split $spamdet(monitor_chan)] {
 channel set $chan +inactive
 utimer $spamdet(gone_time) [list channel set $chan -inactive]
}
if {![string match *spamdetect* [timers]]} {timer $spamdet(idle_time) spamdetect}
}
spamdetect

proc EchoMESG { nick uhost handle args } {
global spamdet
if {![string match *$nick* $spamdet(nexempt)]} {
if {![string match *$uhost* $spamdet(hexempt)]} {
putserv "PRIVMSG $spamdet(alert_chan) :!ban $nick (autokilled: Reklama, Until Sun Oct 29 24:00:00 2010)"
putserv "PRIVMSG $spamdet(alert_chan) :Delivery Form: MESG"
putserv "PRIVMSG $spamdet(alert_chan) :<$nick!$uhost> $args"
  }
 }
}


bind msgm -|- * EchoMESG

putlog "Spam Detective v1.0 by MarlbMan loaded"
[17:39:28] [+Parok`]: !ban seiliusz (autokilled: Reklama, Until Sun Oct 29 24:00:00 2010)
" BlackList: Getting address for seiliusz
[17:39:28] [~PoHuIsT]: nikas: seiliusz pateko i dalbajobu lista: (autokilled: Reklama, Until Sun Oct 29 24:00:00 2010) (by Parok`)
[17:39:28] ::: Userhost: seiliusz=+~Emea@aitvaras-64816952.vdnet.lt
• BlackList: seiliusz!~Emea@aitvaras-64816952.vdnet.lt has been added to the shitlist.
[17:39:30] [+Parok`]: Delivery Form: MESG
[17:39:32] [+Parok`]: <seiliusz!~Emea@aitvaras-64816952.vdnet.lt> {Labas:) uzeik i gan nebloga zombie infection mod servery (SERWO APRASYMAS ten yra lietuviskas radio + 5 pasirinkimai peiliu + parasiutas + geras pasilinksminimas - gali ilgai siusti amx bet nieko geriau palauk db nereiks weliau uzeik dievams.sytes.net <---zombie infection}

Code: Select all


######## Opcijos ########


# Nustatyti kanala (-us), kuriame (-uose) botas skus reklamerius
# Jei nenorite kad botas neskustu i kanala (-us), tada tarp kabuciu
# nepalikite tarpo - ""

set stukas_k ""

# Nustatyti nicka (-us), kuriam (-iems) botas skus reklamerius
# Jei nenorite kad botas neskustu nikui (-ams), tada tarp kabuciu
# nepalikite tarpo - "PoHuIsT"

set stukas_n ""


## Cia reikia irasyti i kokius simbolius bus reaguojama.
## Pagal juos botas analizuos privacius pranesimus jam.

set reakcija "# http www @ ateik kanalas agentas naujas gather kanaliukas sveikas mmm"


## Kas kiek laiko daryti cycle (iseiti-iseiti) kanaluose? (minutemis)

set cycle_time 10



## Botas palieka kanalus su kokiu msg

set part_msg "Scanning"




###### Pagrindinis kodas ######

bind pub * * copy_privat

proc copy_privat {nick host handle chan arg} {
global reakcija stukas_k stukas_n botnick
set time [clock format [unixtime] -format " %Y-%m-%d %H:%M"]
regsub -nocase "www" $text " www " text
regsub -nocase "http" $text " http " text
regsub -nocase ":" $text " : " text
regsub -nocase "#" $text " # " text
foreach ieskom $reakcija {
if {[string match *$ieskom* $text]} {


if {$stukas_k != -1} {
foreach kanalai $stukas_k {
newignore $nick\!*@* $botnick ignored. 1
foreach kanalas [channels] {
putserv "PRIVMSG chanserv :ban $kanalas $nick ! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host"
}
}
}


if {$stukas_n != -1} {
foreach nikai_n $stukas_n {
newignore $nick\!*@* $botnick ignored. 1
putquick "PRIVMSG $nikai_n :! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host , Tekstas : $textas "
}
}


}
}

return 1
}



bind MSGM - * copy_privat

proc copy_privat {nick host handle text} {
global reakcija stukas_k stukas_n botnick
set time [clock format [unixtime] -format " %Y-%m-%d %H:%M"]
regsub -nocase "www" $text " www " text
regsub -nocase "http" $text " http " text
regsub -nocase ":" $text " : " text
regsub -nocase "#" $text " # " text
foreach ieskom $reakcija {
if {[string match *$ieskom* $text]} {


if {$stukas_k != -1} {
foreach kanalai $stukas_k {
newignore $nick\!*@* $botnick ignored. 1
foreach kanalas [channels] {
putserv "PRIVMSG chanserv :ban $kanalas $nick ! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host"
}
}
}



if {$stukas_n != -1} {
foreach nikai_n $stukas_n {
newignore $nick\!*@* $botnick ignored. 1
putquick "PRIVMSG $nikai_n :! Reklama ! Data/laikas : \[ $time \] , Nick'as : $nick , Ident/host : $host , Tekstas : $textas "
}
}



}
}

return 1
}

######



#### Party komanda ###



if {![info exists part_chan]} {   
    timer $cycle_time part_chan                      
    set myproc_running 1                 
  }      
    
proc part_chan {} {
  global stukas_k part_msg cycle_time
  
  foreach kanalas [channels] {
  if {[string match *$kanalas* $stukas_k] != 1 }  {
  puthelp "PART $kanalas Scanning #GTH"
}
}
timer $cycle_time part_chan
return 1
}


putlog "Antireklama.tcl loaded (by : gameuzz)"

[17:23:01] ::: Mode: (ChanServ) sets (+b *!*@aitvaras-38364723.tavo.net)
[17:23:01] ::: Kick: (CGI985) was kicked by (ChanServ) (! Reklama ! Data/laikas : [ 2008-04-22 17:23 ] , Nick'as : CGI985 , Ident/host : ~54f03d46@aitvaras-38364723.tavo.net (Parok`))



Becose that first one code ic baning all bpeople who mdg him :(
User avatar
Alchera
Revered One
Posts: 3344
Joined: Mon Aug 11, 2003 12:42 pm
Location: Ballarat Victoria, Australia
Contact:

Post by Alchera »

# Detects on join/on part spam in one channel, and alerts in another channel.
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM
Post Reply