|
| Alıntı: |
;# IP-host eşleşmesinde yapılacak işlemde kullanılacak kullanıcıyı uzaklaştırma sebebiniz:
set sebep "Guvenlik nedeniyle Chatwork.NET sunucusundan uzaklastirildiniz. Wingate/Socks/Proxy/Tor/Drones baglanti girisleri yasaktir."
;# 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 arg [string map {\[ "" \] ""} [join $arg]]
set ip [string range [lindex [split [lindex [split $arg] 10] @] 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 {^(?
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
?:[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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] DEBUG"
set torhosts "wget -N [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] DEBUG"
eval exec $torips
utimer 1[list eval exec $torhosts]
}
putlog "ok...."
|
Kodu bu şekilde kullanıyorum son halinde hata veriyordu onuda paylaşırım.. Ayrıca ilgin alakan için teşekkür ederim.. Eğer yanlış anlamazsan ve kabul edersen kodları bana ait test sunucumda deneyebilirsin vps makina var bende zaten önce kodları test sunucumda kontrol ediyorum daha sora irc sunucuma monte ediyorum.. Eğer kabul edersen test sunucumun bilgilerini seninle paylaşabilirim.. tekrardan teşekkür ederim ilgin alakan için..