silverboy
Halfop
Joined: 11 Feb 2006
Posts: 55
|
 Posted: Tue Sep 30, 2008 10:39 am Post subject: open ports banner |
 |
|
| Code: |
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 12P 0roxy 12F 0ound: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 ?
_________________
proxyz..proxyz...i see everywher... O_o |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
