IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Kasım 2010, 02:58   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
tclye who +I nick komutu nasıl ekleriz




s.a arkadaşlar saw ın yazmış oldugu bi proxy tcl var fakat
proxy saldırılarında host ile ip farklı oldugunda işlem yapmıyor
acaba tclye şöyle bi eklenti yapamazmıyız
her giren kişiyi who +I nick komutuyla taratıp raw 352 deki ip adresini proxy2.txt den okutarak işlem yaptırmak
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## ## proxy.tcl ## proxy girişleri için benzersiz koruma. ## ## Yapımcı: SAW ## # Sunucu IP adresini belirtiniz. set sunucuip "xxx" #bind time - "30 * * * *" proxy:check #bind time - "00 * * * *" proxy:check bind time - "30 * * * *" proxy:check1 bind time - "00 * * * *" proxy:check1 bind time - "01 * * * *" proxy:socks package require http proc proxy:check {nick uhost hand chan text} { set havasite "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set sayfa "" catch {set sayfa [::http::geturl $havasite -timeout 30000]} error if {[string match -nocase "*couldn't open socket*" $error]} { putquick "PRIVMSG $chan :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.." ::http::cleanup $sayfa return } if { [::http::status $sayfa] == "*timeout*" } { putquick "PRIVMSG $chan :Hata: Bağlantı zaman aşımına uğradı.." ::http::cleanup $sayfa return } set html [::http::data $sayfa] ::http::cleanup $sayfa set bugun [strftime %Y-%m-%d] set gh [open proxy2.txt w] foreach y [split $html \n] { if {[regexp {<td>[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}</td>} $y]} { regexp -- {<td>(.*?)</td>} $y - ip puts $gh $ip } } close $gh } proc proxy:check1 {nick uhost hand chan text} { set havasite "http://torstatus.blutmagie.de/" set sayfa "" catch {set sayfa [::http::geturl $havasite -timeout 30000]} error if {[string match -nocase "*couldn't open socket*" $error]} { putquick "PRIVMSG $chan :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.." ::http::cleanup $sayfa return } if { [::http::status $sayfa] == "*timeout*" } { putquick "PRIVMSG $chan :Hata: Bağlantı zaman aşımına uğradı.." ::http::cleanup $sayfa return } set html [::http::data $sayfa] ::http::cleanup $sayfa set gh [open proxy2.txt w] foreach y [split $html \n] { if {[string match -nocase "*</small></td></tr></table></td><td*" $y]} { regexp -- {\/cgi\-bin\/.+>(.*?)</a>} $y - ip puts $gh $ip } } close $gh } proc proxy:socks {nick uhost hand chan text} { set havasite "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set sayfa "" catch {set sayfa [::http::geturl $havasite -timeout 30000]} error if {[string match -nocase "*couldn't open socket*" $error]} { putquick "PRIVMSG $chan :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.." ::http::cleanup $sayfa return } if { [::http::status $sayfa] == "*timeout*" } { putquick "PRIVMSG $chan :Hata: Bağlantı zaman aşımına uğradı.." ::http::cleanup $sayfa return } set html [::http::data $sayfa] ::http::cleanup $sayfa set acikmi 0 set gh [open proxy.txt w] foreach y [split $html \n] { if {[string match -nocase "*dir=\"ltr\">" $y]} { set acikmi 1 } if {[string match -nocase "</pre>" $y]} { set acikmi 0 } if {$acikmi == 1 && [regexp {[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\:[0-9]{2,5}} $y]} { puts $gh [lindex [split $y :] 0] } } close $gh } set portlar "1080,1081,3380,3381,16104,41188,20769,47712" bind raw * notice clsnotice proc clsnotice {from keyword arg} { global portlar sunucuip if { [string match "*Client connecting*" $arg] } { if {[lindex $arg 6] == "on"} {set sa 10} if {[lindex $arg 6] == "at"} {set sa 9} if {[lindex [join [split [split [lindex $arg $sa] @] )]] 1] == "$sunucuip"} {return 0} set ip [lindex [join [split [split [lindex $arg $sa] @] )]] 1] if {![regexp {[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}} $ip]} { set ip [dnslookup $ip dienes] } if {$ip == "un"} { putlog "Host çözülemedi.." ; return 0 } set ::pr($ip) 0 pr:sbak $ip if {$::pr($ip) == 0} { foreach {x} [split $portlar \x2c] { if {![catch {socket -async $ip $x} s]} { fileevent $s writable[list check:sock $s $ip] } } } if {$::pr($ip) == 0} { pr:bak $ip } } } proc check:sock {s ip} { if {[string equal {} [fconfigure $s -error]]} { putquick "gzline *@$ip :Proxy Girişi Tesbit Edilmiştir! \12Anti4Proxy System" set ::pr($ip) 1 } close $s } proc pr:bak {ip} { set t [open proxy2.txt r] set fg [unixtime] while {1} { set line [gets $t] if {[eof $t]} { close $t break } if {$ip == $line} { putquick "gzline *@$ip :Proxy Girişi Tesbit Edilmiştir! \12Anti4Proxy System By" close $t break } } } proc pr:sbak {ip} { set t [open proxy.txt r] set fg [unixtime] while {1} { set line [gets $t] if {[eof $t]} { close $t break } if {$ip == $line} { putquick "gzline *@$ip :Proxy Girişi Tesbit Edilmiştir! \12Anti4Proxy System" set ::pr($ip) 1 close $t break } } } proc dienes {ip host status} { if {!$status} {return un } return $ip } putlog "proxy.tcl by SAW"


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 20 Kasım 2010, 14:52   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: tclye who +I nick komutu nasıl ekleriz




Evet Sitelerin Çoğu Kapanmış 3000 Yapsak Bile, Proxy.Txt Boş Gözüküyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
ekleriz, komutu, nasıl, nick, tclye


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Çözüldü FuLLname sinde Rakam GecenLeri Spam a NasıL ekLeriz angry1 mIRC Scripting Sorunları 12 19 Eylül 2022 15:05
Bu TCL'ye Nasıl Muaf Nick Ekleriz ? No_FeaR TCL Scriptler 3 17 Ekim 2014 23:23
!nick nick değiştirme komutu yardım ? SabotaJ- mIRC Scripting Hazır Kodlar 2 23 Haziran 2009 00:56
özelime gelen kayıtsız nick'e oto nick kaydetme komutu aRiF mIRC Scripting Sorunları 10 05 Mart 2009 23:14
Scanx.tcl ye !op !deop !voice nick komutlarını nasıl ekleriz üstatlar suvari22 Eggdrop, NeoStats, BNC 0 15 Ocak 2008 12:49