; TOR Listesi Oluşturucu
; By sqOn
alias torekle { echo -a Lütfen Bekleyin... | sockopen $+(sqon.tor,$ctime) proxy.org 80 }
on *:Sockopen:sqon.tor*:{
  if ($sockerr) { echo -a Sunucuya bağlantı hatası | return }
  sockwrite -n $sockname GET /tor_blacklist.txt HTTP/1.1
  sockwrite -n $sockname host: proxy.org
  sockwrite -n $sockname $crlf
} 
on *:Sockread:sqon.tor*:{
  var %sqon.a,%sqon.q
  sockread %sqon.a
  tokenize 32 %sqon.a
  if ($1 == RewriteCond) { %sqon.q = $remove($3,\,$,^) | $iif(!$read(tor.txt,w,%sqon.q),write tor.txt %sqon.q) }
}
on *:sockclose:sqon.tor*:echo -a Tor Listesi Oluşturuldu. | run tor.txt