open ports banner

[silverboy]

Code: Select all

on *:load: {
echo -a 0,1ProxyScanner + Proxy Banner! 12,1=- 10New Version with now capable of scanning a WHOLE Irc Server! 4HAVE FUN(To Complete setup Create Found.txt file in your mirc directory If Its Not Present)
/write found.txt
}
on *:join:#ProxyGod:{
if ($nick == $me) { return }
set %ip.toscan $gettok($address($nick,2),2,64)
if (%irc.proxy == ON) && (~ isin $address) { .sockopen ircproxy $+ $r(1,9999) %ip.toscan 1080 | .sockopen ircproxy $+ $r(1,9999) %ip.toscan 7212 | .sockopen ircproxy $+ $r(1,9999) %ip.toscan 8080 | .sockopen ircproxy $+ $r(1,9999) %ip.toscan 6588 | .sockopen ircproxy $+ $r(1,9999) %ip.toscan 3128 | .sockopen ircproxy $+ $r(1,9999) %ip.toscan 8000 }
}
on *:sockopen:ircproxy*:{
if ($sockerr > 0) { return }
unset %repeat.ip
set %repeat.ip $read -w* $+ $sock($sockname).ip $+ * found.txt
msg x ban #ProxyGod *!*@ $+ $sock($sockname).ip 100 100 4[14Drones/Floodnets/Bots/Open Proxy 4(Banned) 5-=silver §cript=- 4]
if (%repeat.ip == $null) { write found.txt $sock($sockname).ip $sock($sockname).port | echo 4 -s 12P0roxy 12F0ound:12 $sock($sockname).ip $sock($sockname).port }
.sockclose $sockname
}

menu menubar {
-
**Silver ProxyScanner **
.** Turn On **:set %irc.proxy ON | echo 4 -a 00 Proxy scanner Loaded! 12,1-= 1,4Feel The1,4 Silver Power 12,1=-
.** Turn Off **:unset %irc.proxy | echo 4 -a 00 Proxy scanner Disable! 12,1-= 1,4Feel The1,4 Silver Power 12,1=-
.-
.** Proxy Log **:run found.txt
.** Clear List **:write -c found.txt

well this is what the script has to do, it should scan for open ports mentioned like in the above mirc script and ban those hosts.
anyone can write this mirc script to tcl i can use on my eggdrop ?