TCL Port Chk - Check Port Via Mirc Script With TCL

Example: !port 202.134.0.13 6667

Code: 

################################################################### ## ## ## ooo ooooo oooooooooo. o8o ## ## `88. .888' `888' `Y8b `"' ## ## 888b d'888 .ooooo. 888 888 oooo ## ## 8 Y88. .P 888 d88' `88b 888oooo888' `888 ## ## 8 `888' 888 888 888 888 `88b 888 ## ## 8 Y 888 888 888 888 .88P 888 ## ## o8o o888o `Y8bod8P' o888bood8P' o888o ## ## ## ## K E P A R A T D A L N E T ## ################################################################### ####################################################################################################### ## This script checks the status of a port on a host. Returns either Accepted, Refused, Failed, ## ## or Timeout. It also portscans users on join and can ban the user and/or send an op notice if ## ## a banned port is open. ## ####################################################################################################### ############## ## COMMANDS ## ########################################################## ## DCC ## .portchk <host/ip> <port> (Can be changed) ## ######### Checks weather or not the specified port is ## ######### open on the specified host or ip. ## ######### --------------------------------------------- ## ######### .chanset <channel> +portchk ## ######### Enables on-join port checking for a channel ## ########################################################## ## PUB ## !portchk <host/ip> <port> (Can be changed) ## ######### Checks weather or not the specified port is ## ######### open on the specified host or ip. ## ########################################################## ########################################################## ## Just load the script, set the variables, and rehash. ## ########################################################## ######################################################## # Set flag required for checking the status of a port. # ######################################################## set portchk_setting(flag) "" ############################################################### # Set the pub command for checking the status of a port here. # ############################################################### set portchk_setting(cmd_pub) "!portchk" ############################################################### # Set the dcc command for checking the status of a port here. # ############################################################### set portchk_setting(cmd_dcc) "portchk" #################################### # Show all data from a connection? # #################################### set portchk_setting(read) 1 ######################################################################## # Enable on-join scanning? (If you don't wish to enable it, ignore any # # further settings) Scanning for a channel is enabled via .chanset # # <channel> +portchk. # ######################################################################## set portchk_setting(onjoin) 0 ######################################################################### # Set the open ports to scan for when a user joins a monitored channel. # ######################################################################### set portchk_setting(ports) "1080 21 23" #################################################################### # Place a server ban when on a user that joins a monitored channel # # if a banned port is found? # #################################################################### set portchk_setting(autoban_svr) 0 ################################################################ # Place a ban on the bot's banlist when on a user that joins a # # monitored channel if a banned port is found? # ################################################################ set portchk_setting(autoban_list) 0 ######################## # Make the ban global? # ######################## set portchk_setting(global) 0 ################################################################ # Set the time to ban users for here. Set to 0 for a perm ban. # ################################################################ set portchk_setting(bantime) 5 ############################################################ # Send an op notice when a banned port is found on a user? # ############################################################ set portchk_setting(onotice) 1 ################################### # Enable use of bold in DCC chat? # ################################### set portchk_setting(bold) 1 ############################################# # Prefix "portchk:" in DCC chat messages? # ############################################# set portchk_setting(portchk:) 1 #################### # Code begins here # #################### if {![string match 1.6.* $version]} { putlog "\002portchk:\002 \002CRITICAL ERROR\002 portchk.tcl requires eggdrop 1.6.x to run." die "\002portchk:\002 \002CRITICAL ERROR\002 portchk.tcl requires eggdrop 1.6.x to run." } bind pub $portchk_setting(flag) $portchk_setting(cmd_pub) portchk_scan_pub bind dcc $portchk_setting(flag) $portchk_setting(cmd_dcc) portchk_scan_dcc bind join - * portchk_onjoin_scan setudef flag portchk proc portchk_dopre {} { global portchk_setting if {!$portchk_setting(portchk:)} { return "" } elseif {!$portchk_setting(bold)} { return "portchk: " } else { return "\002portchk:\002 " } } proc portchk_onjoin_scan {nick uhost hand chan} { global portchk_setting if {($portchk_setting(onjoin)) && ($portchk_setting(ports) != "")} { foreach i [channel info $chan] { if {([string match "+portchk" $i]) && ([botisop $chan])} { set host [lindex [split $uhost @] 1] foreach p $portchk_setting(ports) { if {![catch {set sock [socket -async $host $p]} error]} { set timerid [utimer 15 [list portchk_timeout_join $sock]] fileevent $sock writable [list portchk_connected_join $nick $chan $sock $host $p $timerid] } } break } } } } proc portchk_scan_pub {nick uhost hand chan text} { global portchk_setting set host [lindex [split $text] 0] set port [lindex [split $text] 1] if {$port == ""} { putquick "NOTICE $nick :Usage: $portchk_setting(cmd_pub) <host> <port>" } else { if {[catch {set sock [socket -async $host $port]} error]} { putquick "PRIVMSG $chan :15\[portchk4!15\] Connection to $host \($port\) was refused." } else { set timerid [utimer 15 [list portchk_timeout_pub $chan $sock $host $port]] fileevent $sock writable [list portchk_connected_pub $chan $sock $host $port $timerid] } } } proc portchk_scan_dcc {hand idx text} { global portchk_setting set host [lindex [split $text] 0] set port [lindex [split $text] 1] if {$port == ""} { putdcc $idx "[portchk_dopre]Usage: .$portchk_setting(cmd_dcc) <host> <port>" } else { if {[catch {set sock [socket -async $host $port]} error]} { putdcc $idx "[portchk_dopre]Connection to $host \($port\) was refused." } else { set timerid [utimer 15 [list portchk_timeout $idx $sock $host $port]] fileevent $sock writable [list portchk_connected $idx $sock $host $port $timerid] } } } proc portchk_connected {idx sock host port timerid} { killutimer $timerid set error [fconfigure $sock -error] if {$error != ""} { close $sock putdcc $idx "[portchk_dopre]Connection to $host \($port\) failed. \([string totitle $error]\)" } else { fileevent $sock writable {} fileevent $sock readable [list portchk_read $idx $sock $host $port] putdcc $idx "[portchk_dopre]Connection to $host \($port\) accepted." } } proc portchk_timeout {idx sock host port} { close $sock putdcc $idx "[portchk_dopre]Connection to $host \($port\) timed out." } proc portchk_read {idx sock host port} { global portchk_setting if {$portchk_setting(read)} { if {[gets $sock read] == -1} { putdcc $idx "[portchk_dopre]EOF On Connection To $host \($port\). Socket Closed." close $sock } else { putdcc $idx "[portchk_dopre]$host \($port\) > $read" } } else { close $sock } } proc portchk_connected_pub {chan sock host port timerid} { killutimer $timerid set error [fconfigure $sock -error] if {$error != ""} { close $sock putquick "PRIVMSG $chan :15\[portchk4!15\] Connection to $host \($port\) failed. \([string totitle $error]\)" } else { fileevent $sock writable {} fileevent $sock readable [list portchk_read_pub $chan $sock $host $port] putquick "PRIVMSG $chan :15\[portchk4!15\] Connection to $host \($port\) accepted." } } proc portchk_timeout_pub {chan sock host port} { close $sock putquick "PRIVMSG $chan :15\[portchk4!15\] Connection to $host \($port\) timed out." } proc portchk_connected_join {nick chan sock host port timerid} { global portchk_setting botnick killutimer $timerid set error [fconfigure $sock -error] if {$error != ""} { close $sock } else { fileevent $sock writable {} fileevent $sock readable [list portchk_read_join $sock] if {$portchk_setting(onotice)} { foreach i [chanlist $chan] { if {([isop $i $chan]) && ($i != $botnick)} { putserv "NOTICE $i :Port $port was found open on $nick's host. \($host\)" } } } if {$portchk_setting(autoban_svr)} { putserv "MODE $chan +b *!*@$host" putserv "KICK $chan $nick :One of the ports open on your host is banned." timer $portchk_setting(bantime) [list portchk_unsvrban $chan $host] } elseif {$portchk_setting(autoban_list)} { if {$portchk_setting(global)} { newban *!*@$host portchk "One of the ports open on your machine is banned." $portchk_setting(bantime) } else { newchanban $chan *!*@$host portchk "One of the ports open on your machine is banned." $portchk_setting(bantime) } } } } proc portchk_timeout_join {sock} { close $sock } proc portchk_read_join {sock} { close $sock } proc portchk_read_pub {sock} { global portchk_setting if {!$portchk_setting(read)} { close $sock } elseif {[gets $sock read] == -1} { putquick "PRIVMSG $chan :EOF On Connection To $host \($port\). Socket Closed." close $sock } } proc portchk_unsvrban {chan host} { putserv "MODE $chan -b *!*@$host" } putlog "\002portchk:\002 portchk.tcl Version 2.2 by mobi is loaded."  

Comment an article   Name   E-mail    Title Available characters: 4000  Notify me of follow-up comments Enter what you see:

No comment posted