alias tersip { tokenize 46 $1 | return $+($4,.,$3,.,$2,.,$1) }
alias blacklist { return .tor.dan.me.uk .rbl.efnet.org }
alias pro { .dns $1 $+ $gettok($blacklist,1,32) | .dns $1 $+ $gettok($blacklist,2,32) }
on ^*:DNS:{
  var %ext = $chr(46) $+ $gettok($address,5-,46)
  if ($iaddress && $istok($blacklist,%ext,32)) { gzline *@ $+ $tersip($naddress) 300 :TOR/PROXY Girişi Yasaktır!  | halt }
}
raw 352:*:{ 
  pro $4
}