egghelp.org community :: View topic - Anti-Spam bot !!! Need help

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

Anti-Spam bot !!! Need help

egghelp.org community Forum Index -> Script Requests

View previous topic :: View next topic

Author

Message

PoHuIsT
Voice

Joined: 22 Oct 2007
Posts: 23

Posted: Tue Apr 22, 2008 12:44 pm Post subject: Anti-Spam bot !!! Need help

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:

##### 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:

######## 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 Sad

Alchera
Revered One

Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia

Posted: Mon Apr 28, 2008 9:21 pm Post subject:

Quote:

# 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

Display posts from previous:

	egghelp.org community Forum Index -> Script Requests	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum