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

Kod:
##

## proxy.tcl

## proxy girişleri için benzersiz koruma.

##

## Yapımcı: Saw

##
 

# Sunucu IP adresini belirtiniz.

set sunucuip "94.242.238.31"
 

#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 5000]} error

        if {[string match -nocase "*couldn't open socket*" $error]} {

                putquick "PRIVMSG #Opers :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.."

                ::http::cleanup $sayfa

                return

        }

        if { [::http::status $sayfa] == "*timeout*" } {

                putquick "PRIVMSG #Opers :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 5000]} error

        if {[string match -nocase "*couldn't open socket*" $error]} {

                putquick "PRIVMSG #Opers :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.."

                ::http::cleanup $sayfa

                return

        }

        if { [::http::status $sayfa] == "*timeout*" } {

                putquick "PRIVMSG #Opers :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 5000]} error

        if {[string match -nocase "*couldn't open socket*" $error]} {

                putquick "PRIVMSG #Opers :Hata: Şuan siteye bağlanılamıyor.. Daha Sonra Tekrar Deneyiniz.."

                ::http::cleanup $sayfa

                return

        }

        if { [::http::status $sayfa] == "*timeout*" } {

                putquick "PRIVMSG #Opers :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! \002Giremedigin Yer Senin Degildir..!\002"

                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! \002Giremedigin Yer Senin Degildir..!\002"

        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! \002Giremedigin Yer Senin Degildir..!\002"

        set ::pr($ip) 1

        close $t

        break

   }

  }

}
 
 

proc dienes {ip host status} { 

   if {!$status} {return un }

   return $ip

}
 

putlog "proxy.tcl by Saw"
Bu proxy.tcl bende böle gözukuyor . oper şifre giricek yer göremiyorum yardımcı olacak var mı ? bunu çalıstırmak için ne yapmamız lazım komutları bilen var mı ?