Statistics: Posted by Stealthx — Wed Nov 03, 2004 3:33 am
Statistics: Posted by [R] — Tue Nov 02, 2004 2:22 pm
Statistics: Posted by arcane — Tue Nov 02, 2004 12:26 pm
in whatever channel u wan the bot to check for and this tcl only bans user for messaging picture-urls and not checks the pic for viruses...!piccheck on
Statistics: Posted by Stealthx — Tue Nov 02, 2004 3:04 am
Code:
################################################################## Meltdowns Picture-URL-Checker V0.3 (07-03-2004) ## http://scripts.udp.at ## ## Bans for messaging picture-urls (.jpg,.gif, etc) ## which are NOT pictures (they are mostly viruses then) ## ## Contact: meltdown@gmx.at | #meltdown on quakenet ## ## As i have seen a few of my scripts with different credits: ## STOP THAT. IT SUCKS, ITS LAME, etc.. ## ## If you want to have a script signed with your name,## code it yourself ffs! ## #################################################################### Install:# Append this tcl to your bots config# Join the channel you want to check and type "!piccheck on"# You can always check the status by typing "!piccheck"#################################################################### New in 0.3:## Changed jpg-check#################################################################### New in 0.2:# # Added PNG-support# Changed regexp for url-detection##################################################################set piccheck(bantype) 1# 1:*!ident@subnet, 2:*!ident@IP, 3:*!ident@IP, 4:nick!*@*set piccheck(meltsad) 0# If you use the script "Meltsdowns Anti-Advertise" you may set# this to 1. picurlcheck will then use the kickcounter from meltsad.# (For kickmessage)set piccheck(version) "0.2"# internal purpose############################CODE#################################bind pubm - * urlcheckbind pub n|m !piccheck piccheck_switchsetudef flag piccheckproc urlcheck { nick uhost hand chan str } {global piccheckset urlcheck(ext) {jpg jpe jpeg gifpng}if {![regexp {((?:http://|www\.)+[^ ]+)} $str str]} { return 0 }set extension ""regsub -all -- {(http://)+} $str "" strregexp {(www.)?[A-z|0-9|\-|\.|\_]*\.[A-z]{2,3}} $str hostregexp {[/]+(.)*} $str urlregexp {[A-z]{3,4}$} $str extensionset ispic 0foreach i $urlcheck(ext) {if {[string match -nocase $extension $i]} {set ispic 1}}if {$ispic != 1} { return 0 } set linecheck "[getdata $host $url $chan]"set ispic 0if {[string match *error* $linecheck]} { set ispic 1 }if {[string match "*ÿØÿ*" $linecheck]} { set ispic 2 } if {[string match "*GIF89*" $linecheck]} { set ispic 3 }if {[string match "*GIF87*" $linecheck]} { set ispic 3 }if {[string match "*[format %c [scan 89 %x]]PNG*" $linecheck]} { set ispic 4 }if {[string match "*<html>*" $linecheck]} { set ispic 0 }# putlog "ISPIC: $ispic"# putlog "protected : [protected_user $nick $hand]"if {[protected_user $nick $hand]} { return 0 }if {$ispic == 0} {set banmask [notapic_banmask $nick $uhost]if {$piccheck(meltsad) == 1} { global meltadsset meltads(alt_message) "URL is not a picture - Possible Virus detected -"chan_ban $nick $banmask $chan $str} else { notapic_ban $nick $banmask $chan "URL is not a picture - Possible Virus detected" }putserv "PRIVMSG $chan :[string replace $str [expr [string length $str] /2] [expr [string length $str] /2] ?] is NOT a picture. For you security...Dont click!"putlog "Bad URL detected by $nick in $chan ($str)"}}proc getdata { host url chan } {global sockif {[string match "*error*" [open_socket $host $url $chan]]} { return "error"}gets $sock lineif {[string match -nocase "*HTTP/1.? 301 Moved*" $line]} { while {![eof $sock]} {gets $sock lineif {[string match -nocase "*Location*" $line]} {set url [lindex [split $line] 1]regsub -all -- {(http://)+} $url "" urlregexp {[/]+(.)*} $url urlclose $sockopen_socket $host $url $changets $sock linebreak}}}if {![string match "HTTP/1.? 200 OK" $line]} { close $sock ;return "error($line)" }while {(![eof $sock]) && ([string length $line] != 0)} {gets $sock line#if {[string match -nocase *content*type* $line]} {putlog "$line" }}gets $sock lineclose $sockreturn $line}proc open_socket { host url chan } {global sock# putlog "Host: $host - url : $url" if {[catch {set sock [socket [string map -nocase {www. ""} $host] 80] } sockerror]} { putserv "PRIVMSG $chan: Error: $sockerror" return "error: $sockerror" } else { puts $sock "GET $url HTTP/1.1" puts $sock "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" puts $sock "Accept :*/*" puts $sock "Host: $host" puts $sock "" flush $sock}}proc notapic_banmask {nick uhost} { set account [string range $uhost 0 [expr [string last @ $uhost] -1]] set domain [string range $uhost [expr [string last @ $uhost] +1] end] set sitemask "*!*[string trimleft [maskhost $uhost] *!]" switch $::piccheck(bantype) { 1 {set sitemask "*!*[string trimleft [maskhost $uhost] *!]"} 2 {set sitemask "*!*$uhost"} 3 {set sitemask "*!*@$domain"} 4 {set sitemask "$nick!*@*"} }regsub -all -- {~} $sitemask "" sitemaskreturn $sitemask}proc notapic_ban {nick banmask chan text} {putserv "MODE $chan +b $banmask"putserv "KICK $chan $nick :$text"} proc piccheck_switch {nick uhost hand chan text} { global piccheck switch [lindex $text 0] { on { channel set $chan +piccheck putserv "PRIVMSG $chan :Melts Pic-URL-Checker $piccheck(version) activated" } off { channel set $chan -piccheck putserv "PRIVMSG $chan :Melts Pic-URL-Checker $piccheck(version) deactivated" } "" { if {[lsearch -exact [channel info $chan] +piccheck] > -1} { putserv "PRIVMSG $chan :Melts Pic-URL-Checker is currently ACTIVATED." } else {putserv "PRIVMSG $chan :Melts Pic-URL-Checker is currently DEACTIVATED." } } default { putserv "NOTICE $nick :Commands \: on|off - or nothing for status" } }}proc protected_user {nick hand} {if {$nick == $::botnick} { return 1 }if {[matchattr $hand n]} { return 1 }if {[matchattr $hand b]} { return 1 }return 0}putlog "Melts Picture-URL-Checker $piccheck(version) loaded..."Statistics: Posted by [R] — Mon Nov 01, 2004 3:26 pm
Statistics: Posted by awyeah — Sun Sep 19, 2004 8:49 am
Code:
#################################################################set piccheck(bantype) 1# 1:*!ident@subnet, 2:*!ident@IP, 3:*!ident@IP, 4:nick!*@*set piccheck(meltsad) 0# If you use the script "Meltsdowns Anti-Advertise" you may set# this to 1. picurlcheck will then use the kickcounter from meltsad.# (For kickmessage)set piccheck(version) "0.2"# internal purposeStatistics: Posted by [R] — Sat Sep 18, 2004 1:36 pm