sözlük kasıyorsa kesin çözüm

if ($1) {
inc %xx
sockopen $+(tor*,%xx) rbls.org 80
sockmark $+(tor*,%xx) $1
}
}
on *:sockopen:tor*:{
var %s sockwrite -n $sockname
%s get / $+ $sock($sockname).mark http/1.1
%s host: rbls.org
%s $crlf
}
on *:sockread:tor*:{
var %x [ $+ [ $sockname ] ]
sockread %x [ $+ [ $sockname ] ]
if (**tor.dan.me* iswm %x [ $+ [ $sockname ] ]) {
gzline $+(*@,$sock($sockname).mark) 1h > 0,10 sozlukspot.com
if !$window(@proxy-tor) { window -neg1 @proxy-tor } | echo @proxy-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1ip adresinden 4tor 1girişi tespit edilmiştir.
trekle $sock($sockname).mark
halt
}
if (**rbl. efnetrbl* iswm %x [ $+ [ $sockname ] ]) {
gzline $+(*@,$sock($sockname).mark) 1h > 0,10 sozlukspot.dcx
if !$window(@proxy-tor) { window -neg1 @proxy-tor } | echo @proxy-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32))
torekle $sock($sockname).mark
halt
}
}
raw 352:*:{
tor_ $4
}