;# IP-host eşleşmesinde yapılacak işlemde kullanılacak kullanıcıyı uzaklaştırma sebebiniz:
set sebep "IP/hostunuzda Tor proxy tespit edildi... bizi tercih ettiğiniz için teşekkür ederiz... selametle..."

;# yakalanan tor IP-hostları için yapılacak işlem:
set method "gzline"

;# yapılan işlem için gereken uzaklaştırma süresi:
set sure "30m"

;# anons yaptırılacak oda olacak mı ( 1 = evet - 0 = hayır)
set anons "1"

;# anons kanalı olacaksa adı ne olacak:
set anonsknl "#anons"

;# yakalanan her tor için bu sayıdan itibaren saydırılacak:
set torno "0"

;############burdan sonrasını değişmemelisiniz.####################################################################

;# tor IP'lerin olduğu birinci dosya: 
set csvfile1 "Tor_ip_list_ALL.csv"

;# tor IP-host ve diğer tüm bilgilerinin olduğu dosya:
set csvfile2 "Tor_query_EXPORT.csv"

;##########################ayarlar bitti###########################################################################

bind raw * notice notc:serv
bind time - "30 *" csv:wget

proc notc:serv {from keyword arg} {
  if {![string match -nocase "*client connecting*" $arg] || [string match -nocase "*!*@*" $from]} { return 0;}
     set ip [string range [lindex [split [lindex [split $arg] 9] @] 1] 0 end-1]
     set stamp "[clock format [expr {3600 + [clock seconds]}] -format "Tarih: %d/%m/%Y - Saat: %H:%M:%S - %z"]"
     set ::tip $ip ;set ::tstamp $stamp
  if {[regexp {^(?:(?:[01]?\d?\d|2[04]\d|25[0-5])(\.|$)){4}$} $ip]} {
     tor:ip:file
     } else {
     tor:hosts:file tor
     }
  return 0
}

proc tor:ip:file {} {
     set ip $::tip ;set stamp $::tstamp
     set fp [open $::csvfile1 "r"] 
     set data [read -nonewline $fp] 
      close $fp 
     set lines [split $data "\n"]
  if {[lsearch -nocase -index 0 $lines $ip] == -1} {
     putcmdlog "$ip ile ilgili $::csvfile1 dosyasında eşleşme bulunmadı. $stamp"
     tor:hosts:ip:file tor
     } else {
      incr ::torno
     putquick "$::method *@[lindex $lines [lsearch -nocase -index 0 $lines $ip] 0] $::sure :$::sebep:[concat $::torno - $stamp]"
  if {$::anons != "0"} {
     puthelp "privmsg $::anonsknl :$ip $::sure uzaklaştırıldı. sebep: :$::sebep:[concat $::torno - $stamp]"
      return 0
      }
   }
}
 
proc tor:hosts:ip:file {tor} {
     set ip $::tip ;set stamp $::tstamp
     set torip [lindex [split $tor ,] 4]
     set fp [open $::csvfile2 "r"] 
     set data [read -nonewline $fp] 
      close $fp 
     foreach line [split $data "\n"] {
  if {$ip != $torip} {
     putcmdlog "$ip ile ilgili $::csvfile2 dosyasında eşleşme bulunmadı. $stamp"
       return 0 
     } else {
      incr ::torno
      putquick "$::method *@$ip $::sure :$::sebep:[concat $::torno - $stamp]"
  if {$::anons != "0"} {
     puthelp "privmsg $::anonsknl :$ip $::sure uzaklaştırıldı. sebep: :$::sebep:[concat $::torno - $stamp]"
      return 0
      }
    }
  }
}

proc tor:hosts:file {tor} {
     set ip $::tip ;set stamp $::tstamp
     set torhost [lindex [split $tor ,] 5]
     set fp [open $::csvfile2 "r"] 
     set data [read -nonewline $fp] 
      close $fp 
     foreach line [split $data "\n"] {
  if {$ip != $torhost} {
     putcmdlog "$ip ile ilgili $::csvfile2 dosyasında eşleşme bulunmadı. $stamp"
       return 0 
     } else {
      incr ::torno
     putquick "$::method *@$ip $::sure :$::sebep:[concat $::torno - $stamp]"
  if {$::anons != "0"} {
     puthelp "privmsg $::anonsknl :$ip $::sure uzaklaştırıldı. sebep: :$::sebep:[concat $::torno - $stamp]"
      return 0
      }
    }
  }
}

proc csv:wget {minute hour day month year} {
     set torips "wget -N http://torstatus.blutmagie.de/ip_list_all.php/Tor_ip_list_ALL.csv DEBUG"
     set torhosts "wget -N http://torstatus.blutmagie.de/query_export.php/Tor_query_EXPORT.csv DEBUG"
     eval exec $torips
     utimer 1 [list eval exec $torhosts]
  }
  
putlog "ok...."

bind dcc n tcl *dcc:tcl
 bind dcc n set *dcc:set

set one "http://torstatus.blutmagie.de/ip_list_all.php/Tor_ip_list_ALL.csv"

set two "http://torstatus.blutmagie.de/query_export.php/Tor_query_EXPORT.csv"

bind time - "30 *" first:wget
bind time - "00 *" second:wget

proc first:wget {minute hour day month year} {
     set first "wget -N $::one DEBUG"
     catch {eval exec $first}
  }
  
proc second:wget {minute hour day month year} {
     set second "wget -N $::two DEBUG"
     catch {eval exec $second}
  }

bind pub -|- .dns dns:captcha

 proc dns:captcha {nick uhost hand chan text} {
  set a [lindex [split $text] 0]
  set b "host $a"
  catch {eval exec $b} c
  set output $c
  if {$output == ""} { puthelp "privmsg $chan : sonuç yok.." 
  return 0
  } else {
  set i 0
  foreach line [split $output "\n"] {
    putserv "privmsg $chan :[string map -nocase {"has address" "adresi" "is handled by" "tarafından sunuluyor" "domain name pointer" "etki alanı sahibi" "has IPv6 address" "var olan IPv6 adresleri" "is an alias for" "için takma adıdır"} [join $line]]"
     incr i
     }
   }
}

putlog "ok....""

package require http

bind pub -|- .d domain:whois

proc domain:whois {nick uhost hand chan text} {
  set q [lindex [split $text] 0]
  
::http::config -useragent "UserAgent"
set url [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
15000]
set data [::http::data $url]
::http::cleanup $url
    regexp -- {>Hostname: <a href=".+">(.*?)</a></div>} $data "" adr
    regexp -- {>Google Pagerank: <strong>(.*?)</strong></div>} $data "" nmbr
    regexp -- {>Registrar</div><div id="reginfo_v">(.*?)<} $data "" regi
    regexp -- {>Whois Server</div><div id="reginfo_v">(.*?)<} $data "" wserv
    regexp -- {>Nameservers</div><div id="reginfo_v">(.*?)<} $data "" nserv
    regexp -- {>Status</div><div id="reginfo_v">(.*?)<} $data "" stts
    regexp -- {>Created</div><div id="reginfo_v">(.*?)<} $data "" crt
    regexp -- {>Expires</div><div id="reginfo_v">(.*?)<} $data "" eprs
    regexp -- {>Updated</div><div id="reginfo_v">(.*?)<} $data "" upda
    puthelp "privmsg $chan :$q = IP: $adr | Google Pagerank: $nmbr | kaydı: $regi | whois sunucusu: $wserv | alan-adı sunucusu: $nserv | durumu: $stts | oluşturulma tarihi: $crt | son bulma tarihi: $eprs | g&#252;ncelleme zamanı: $upda"
     return 0
}

-NOTICE- [error] Invalid mask.

30m uzaklastirildi. sebep: :IP/hostunuzda Tor Proxy tespit edildi... Ban Yediniz Afiyet Olsun:1 - Tarih: 09/09/2013 - Saat: 18:35:47 - +0300

set arg [string map {\[ "" \] ""} [join $arg]]

set ip [string range [lindex [split [lindex [split $arg] 9] @] 1] 0 end-1]

 if {$::anons != "0"} {

[20:07] -NOTICE- *** Notice -- Client connecting on port 6667: sss (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.xx) [clients] 
[20:07] sss (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) joined #Sohbet.
[20:07] -NOTICE- [error] Invalid mask.