wingate

[AW]

Hi, anyone knows any good script to scan wingates (ports: 1080, 8080 and 3128 ) and kick n ban, because flooders are killing us by using wingates to flood, i saw this script but can someone help me to set
1080,8080,3128, 23 to scan..

bind join - * wingateban

proc wingateban {nick uhost hand chan} {
global botnick kickmsg
set wingatehost [lindex [split $uhost @] 1]
set wingatefound ""
set host *!*[string tolower [string range $uhost [string first @ $uhost] end]]
catch {socket $wingatehost 1080} wingatesock
if {([string range $wingatesock 0 3] == "sock") && ([lindex $wingatesock 1] == "")} {
close $wingatesock
lappend wingatefound "1"
}
if {$wingatefound == ""} {
set wingatefound "0"
}
if {[string match $wingatefound [string tolower 1]]} {
putlog "found Wingates NICK <$nick> HOST <$wingatehost> in $chan"
putserv "MODE $chan -o+b $nick $host"
putserv "KICK $chan $nick :$kickmsg"
return
}
}

also since i tried the above script i am getting this all the time
[04:10] (!) timer drift -- spun 3 minutes, and bot gets disconnect with (timeout msgs) and doesn't give any response, i'll apprecite if someone can help me so this script will check the ports(1080,8080,3128), and kick baned.



Thanks
regards
AW

[ppslim]

You get the above error, due to the way this script handles the detection process.

When trying to connect to the wingate, the scritp will block (IE, it will not return control to eggdrop, or the rest of the script), until the connection is either made (a wingate is active) or it timesout (the is no wingate).

There are other wingates scanners available on the site, allthough, I do not know if they do some of the toher ports.

See the Tcl archive for socks, proxy and wingate scanners.

[AW]

Thanks ppslim, i have downloaded this script from tcl archive, actually i found anotherone "anti socked, but that one has errors so didn't work, so this is the only one i have found, i'll really appreciate if u can help me to fix this?

thanks
regards
aw