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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Proxy Koruma Yardım Lütfen. (https://www.ircforumlari.net/mirc-scripting-sorunlari/265518-proxy-koruma-yardim-lutfen.html)

Turk 29 Eylül 2009 18:58
Proxy Koruma Yardım Lütfen.
 
Merhabalar, uzun süredir if icerisinde bir cok "proxy code" denedim ama hiç birinden yeterli sekilde faydalanamadım. Kimse sağlam 1 code paylasmamıs. Benim sizlerden söyle bir maruzatım olucak arkadaslar.

*** Sürekli acık bırakabileceğim,
*** Daha onceden proxy ipleri ve host'ları tanımlanmıs olan,
*** Servere saldırı anında otomatik olarak acılan,
*** User 'lere en az seviyede zarar veren,

Özelliklerine sahip 1 code istiyorum. Umarım beklentilerime karsılık bulabilirim, simdiden konuya göstermis olduğunuz ilgi ve alakaya tesekkürlerimi sunuyorum..

İyi Forumlar..

SessizKaLp 29 Eylül 2009 19:41
Cevap: Proxy Koruma Yardım Lütfen.
 
Kod:
off OpenProxy:join:#:{ if ($nick != $me) { zline  $nick Proxy Girişi Yasaktır.  } }
alias Proxyconf if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
dialog Proxylist {
  title "Proxy Ip Korumasi"
  size -1 -1 250 280
  button "Tamam", 1, 110 200 70 20,ok, flat
  list 2, 10 20 180 135, sort
  box "Proxy Listesi        Codér $me", 3, 5 5 190 145
  edit "*!*@", 4, 10 165 180 20, autohs
  box "Eklenecek İp'yi Girin", 5, 5 150 190 45
  button "İp Ekle", 6, 20 200 70 20, flat
  box "Not:", 7, 5 225 190 45
  text "İp'yi Kaldirmak icin İp'nin Uzerine Cift Tiklayin", 8, 25 240 140 45 
}
alias Proxysetup if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
on *:dialog:Proxylist:dclick:2:{ .ruser OpenProxy $did(2).seltext | did -d Proxylist 2 $did(2).sel }
on *:dialog:Proxylist:sclick:6:{ if ($did(4) != $null) { did -a Proxylist 2 $did(4) | .auser OpenProxy $did(4) | did -fr Proxylist 4 } }
on *:dialog:Proxylist:init:*:{
  if ($ulist(*,OpenProxy,0) != $null) {
    set %prx.Proxy 0
    while (%prx.Proxy < $ulist(*,OpenProxy,0)) {
      inc %prx.Proxy 1
      did -a Proxylist 2 $ulist(*,OpenProxy,%prx.Proxy)
    }     
    unset %prx.Proxy
  }
}
off *:snotice:*client connect*:var %ip $remove($gettok($10,2,64),$chr(41)),%id = $remove($gettok($10,1,64),$chr(40)),%full = $+($9,!,%id,@,%ip) | if ($level(%full) == OpenProxy) { zline  $9 Proxy Girişi Yasaktır.  } 

}
}
Böyle bir kod var bende işini görür mü bilmem. Sunucunda olan saldırı iplerini eklersen faydalı olacağından eminim. Codesi hakkında bilgim yok.

dennis 30 Eylül 2009 00:03
Cevap: Proxy Koruma Yardım Lütfen.
 
CoCoRiCo nun yazmış olduğu proxy killer var. Onu dene. Birde Nebliymben arkadaşın tcl kodu var o da fena değil..

Turk 30 Eylül 2009 14:03
Cevap: Proxy Koruma Yardım Lütfen.
 
Arkadaslar daha çözümsel seyler lazım bana , denemek ile olmuyor denedim bir cok code'yi. Sağlam birseyler lazım.

dennis 30 Eylül 2009 14:40
Cevap: Proxy Koruma Yardım Lütfen.
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] devam et..

Turk 30 Eylül 2009 14:45
Cevap: Proxy Koruma Yardım Lütfen.
 
burdan devam et derken ?

ircop 01 Ekim 2009 02:08
Cevap: Proxy Koruma Yardım Lütfen.
 
Alıntı:
|Turk| Nickli Üyeden Alıntı (Mesaj 818362)
burdan devam et derken ?
ordan derken : )

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

AxituRk 01 Ekim 2009 15:33
Cevap: Proxy Koruma Yardım Lütfen.
 
Kod:
#Proxy On
on *:snotice:*: {
  if (connecting isin $1-) {
    if $level($remove($gettok($10,2,64),$chr(41))) == Proxy { zline $9 Proxy }
  }
}
 
#Proxy end
 
alias proxy {
  if ($1 == on) { enable #Proxy | echo -a Proxy Korumasını Açtınız  }
  if ($1 == off) { disable #Proxy | echo -a Proxy Korumasını Kapattınız }
}
Remoteye YApıştırdıktan SOnra users ( kullanıcı) kısmına proxy host ve iplerını eklemen yeter. listeyi kendin olusturursun .
/proxy on : acar /proxy Off : KApatır
Kod Cesuryürek Tarafindan Yazılmıstır.
Benm işime yaradı. umarım senın işine de yarar.

dennis 01 Ekim 2009 17:51
Cevap: Proxy Koruma Yardım Lütfen.
 
Proxy için demeyelim buna belirlediğimiz İplerin sunucuya girişlerini engellemek için olabilir.

mirc users bölümüne
proxy:78.155..... şeklinde ipleri eklemeniz gerekmektedir.

Turk 15 Kasım 2009 03:11
Cevap: Proxy Koruma Yardım Lütfen.
 
Arkadaslar vermis olduğunuz Code'ler benim elimde dahil.Ama bana yeterli gelmiyor. Bana daha sağlam bir code lazım. yokmu usta'lardan bitane söyle destek verecek ? nasıl bir code istediğimi baslangıc msj'ımda belirttim.

paLe 15 Kasım 2009 11:09
Cevap: Proxy Koruma Yardım Lütfen.
 
3 konu aşağıda benim açtığım konuda [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocamız korumayı yazdı. Onu ve xculive arkadaşımızın korumasını kullanırsan serverine 20 proxyden en fazla 2-3tane girer.

neobre 15 Kasım 2009 12:15
Cevap: Proxy Koruma Yardım Lütfen.
 
Kod:

##
## proxy.tcl
## proxy girişleri için benzersiz koruma.
##
## Yapımcı: SaW
##
# Sunucu IP adresini belirtiniz.
set sunucuip "10.0.0.2"
bind time - "30 * * * *" proxy:check
bind time - "00 * * * *" proxy:check
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 $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: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 $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! \002Proxy Check System By SaW\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! \002Proxy Check System By SaW\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! \002Proxy Check System By SaW\002"
set ::pr($ip) 1
close $t
break
}
}
}
 
proc dienes {ip host status} {
if {!$status} {return un }
return $ip
}
putlog "proxy.tcl by SaW"

TİGeR 18 Aralık 2009 06:24
Cevap: Proxy Koruma Yardım Lütfen.
 
selam hoca buna bi acıklama yapmıcakmısın?;frown nasıl kullanıcaz fln ?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:16.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk