mIRC Tor koruma

alias tor_ { if ($1) { inc %tor | sockopen $+(tor*,%tor) www.sectoor.de 80 | sockmark $+(tor*,%tor) $1 } }
on *:sockopen:tor*:{
var %s sockwrite -n $sockname
%s GET /tor.php?ip= $+ $sock($sockname).mark HTTP/1.1
%s host: www.sectoor.de
%s $crlf
}
on *:sockread:tor*:{
var %> [ $+ [ $sockname ] ]
sockread %> [ $+ [ $sockname ] ]
if (*IP is LISTED* iswm %> [ $+ [ $sockname ] ]) {
gzline $+(*@,$sock($sockname).mark) 2h TOR Koruması! [ $+ $date $+ ] [ $+ $time $+ ]
sockclose $sockname
}
}
raw 352:*:{
tor_ $4
}
on *:snotice:*Client connecting*: {
.who +I $9
}