egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Anti-Spam bot !!! Need help

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests
View previous topic :: View next topic  
Author Message
PoHuIsT
Voice


Joined: 22 Oct 2007
Posts: 23

PostPosted: Tue Apr 22, 2008 12:44 pm    Post subject: Anti-Spam bot !!! Need help Reply with quote

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
Back to top
View user's profile Send private message
Alchera
Revered One


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

PostPosted: Mon Apr 28, 2008 9:21 pm    Post subject: Reply with quote

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
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
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


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber