egghelp/eggheads community

ip filter format help port scan

2011-01-21T12:45:24-04:00

if it would be so kind, thank you very much

Statistics: Posted by tablarock — Fri Jan 21, 2011 12:45 pm

ip filter format help port scan

2011-01-21T11:18:35-04:00

will try and look at it later tonite

Statistics: Posted by TCL_no_TK — Fri Jan 21, 2011 11:18 am

ip filter format help port scan

2011-01-20T21:30:41-04:00

thanks friend, I had not quite worked.
ip scan would also color
Invalid IP Address: 123.123.123.123

Statistics: Posted by tablarock — Thu Jan 20, 2011 9:30 pm

ip filter format help port scan

2011-01-20T19:04:50-04:00

Code:

proc pub:portscan {nick uhost hand chan text} { set address [lindex [split $text] 0] putquick "PRIVMSG $chan :Connecting to \037$address\037 requested by \002$nick\002" portscan "$address" "$chan"}

change to

Code:

proc pub:portscan {nick uhost hand chan text} { set address [lindex [split $text] 0] set ip [stripcodes bcruag $address] if {![regexp {^(?:(?:[2][5][0-5]|[1]?[1-9]{1,2}|0)(?:\.|$)){4}} $ip]} {  puthelp "PRIVMSG $chan :Invalid IP Address: $ip"  return 0 } putquick "PRIVMSG $chan :Connecting to \037$address\037 requested by \002$nick\002" portscan "$address" "$chan"}

source: regexp stripcodes not tested, good luck

Statistics: Posted by TCL_no_TK — Thu Jan 20, 2011 7:04 pm

ip filter format help port scan

2011-01-20T14:49:50-04:00

I have a problem with this script tcl
Could someone tell me if possible, the bot detects whether text or number
example:

!scan asdasdasdas
this is not an ip

also I have this problem with colors and antiflood
!scan 123.123.123.123
Connecting to 123.123.123.123 requested by user
Connection to 123.123.123.123 has timed out

bot could scan the color?
!scan 123.123.123.123
Connecting to 123.123.123.123
Connection to \ 123.123.123.123:2300 accepted. (Port is Open)
Connection to \ 123.123.123.123:47624 accepted. (Port is Open)

You can do something about the flood
!scan 123.123.123.123
!scan 123.123.123.123
!scan 123.123.123.123
Ignore for 1 min

Would be very grateful if someone assists me

here the code done by:TCL_no_TK

Code:

set scanports "2300 47624"bind pub -|- !portscan pub:portscanproc pub:portscan {nick uhost hand chan text} { set address [lindex [split $text] 0] putquick "PRIVMSG $chan :Connecting to \037$address\037 requested by \002$nick\002" portscan "$address" "$chan"}proc portscan {address chan} { global scanports  foreach f $scanports {   if {[catch {set sock [socket -async $address $f]} error]} {    puthelp "PRIVMSG $chan :Connection to \037$address\002:\002$f\037 was \002refused\002"   } else {    set id [utimer 15 [list portscan_timeout $chan $sock $address $f]]    fileevent $sock writable [list portscan_connected $chan $sock $address $f $id]   }  }}proc portscan_timeout {chan sock address port} { close $sock  puthelp "PRIVMSG $chan :Connection to \037$address\002:\002$port\037 has \002timed out\002."}proc portscan_connected {chan sock address port id} { killutimer $id set eor [fconfigure $sock -error] if {$eor != ""} {  close $sock  puthelp "PRIVMSG $chan :Connection to \037$address\002:\002$port\037 \002failed\002."  foreach e [split $eor "\n"] {   puts " * $e"  } } else {  puthelp "PRIVMSG $chan :Connection to \037$address\002:\002$port\037 \002accepted\002. (Port is \002Open\002)"  close $sock }} putlog "by:TCL_no_TK"

Statistics: Posted by tablarock — Thu Jan 20, 2011 2:49 pm