Kod

alias tor_ { if ($1) { inc %xx | sockopen $+(tor*,%xx) tor.efnet.org 80 | sockmark $+(tor*,%xx) $1 } }
on *:sockopen:tor*:{
  var %s sockwrite -n $sockname
  %s GET /?i= $+ $sock($sockname).mark HTTP/1.1
  %s Host: tor.efnet.org
  %s $crlf
}
on *:sockread:tor*:{ 
  var %x [ $+ [ $sockname ] ]
  sockread %x [ $+ [ $sockname ] ]
  if (*was found* iswm %x [ $+ [ $sockname ] ]) {
    gzline $+(*@,$gettok($gettok(%x [ $+ [ $sockname ] ],-2,$asc(:)),-1,32)) 1h 1IP adresinizde 4PROXY ( $+ $gettok($gettok(%x [ $+ [ $sockname ] ],1,41),2,40) $+ ) 1girişi tespit edilmiştir.
    sockclose $sockname
  }
}
raw 352:*:{
  tor_ $4
}
on *:snotice:*Client connecting*: {
  .who +I $9
}