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/)
-   -   Muaf ip ekleme Yardım ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/604725-muaf-ip-ekleme-yardim.html)

aLone 03 Eylül 2014 15:02

Cevap: Muaf ip ekleme Yardım ?
 
Kod:

if client connecting* iswm $4- {
var %:ip $remove($gettok($10,2,64),$chr(41))
if $read(muafips.txt,w,$+(*,%:ip,*)) { halt }

kontrol %:ip     
hadd -m ckontrol %:ip $9     
halt
  }
}

Böyle dene

aLone 03 Eylül 2014 15:13

Cevap: Muaf ip ekleme Yardım ?
 
Kod:

#portarama on
on *:snotice:*: {
  if client connecting on* iswm $4- {
    var %:ip $remove($gettok($10,2,64),$chr(41))
    if $read(muafips.txt,w,$+(*,%:ip,*)) { halt }
    kontrol %:ip
    hadd -m ckontrol %:ip $9
    halt
  }
}
alias kontrol {
  sockopen $+(kontrol,$r(1,999999999)) $1- 8080
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128
  sockopen $+(kontrol,$r(1,999999999)) $1- 9050
  sockopen $+(kontrol,$r(1,999999999)) $1- 9999
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080
}
on *:sockopen:kontrol*: {
  if !$sockerr {
    .raw gline *@ $+ $sock($sockname).ip +0 4Proxy Girişi Yasaktır.
    $+(,$sock($sockname).ip,:,$sock($sockname).port,)
    window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5 $date $time  2Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port,) - Nicki bu:4 $ip2nick($sock($sockname).ip)
    hdel ckontrol $sock($sockname).ip
    sockclose $sockname
  }
}
on *:sockclose:kontrol*: {
  hdel ckontrol $sock($sockname).ip
}
alias ip2nick {
  var %i 1
  while %i <= $hget(ckontrol,0).item {
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt }
    inc %i
  }
}
#portarama end

Denendi Çalışıyor
Yalnız bu port 8080 User Kaybına yol açar bilgin olsun.

c00 04 Eylül 2014 09:25

Cevap: Muaf ip ekleme Yardım ?
 
Denedim çalısıyor şimdi eline saglık.

Bi sorun daha var 213.43.123.65 ip bu diyelim

ipin tamamını yazınca muaf olarak alıyor

muafips.txt 213.43. yazdıgımda zline yiyor.

213.43. baslayan iplerin muaf olmasını istiyorum dedigin gibi user kaybı cok olur ondan bu tr iplerini bu şekilde alacam.

aLone 04 Eylül 2014 13:46

Cevap: Muaf ip ekleme Yardım ?
 
Şu bölümü
Kod:

on *:snotice:*: {
if client connecting on* iswm $4- {
var %:ip $remove($gettok($10,2,64),$chr(41))    if $read(muafips.txt,w,$+(*,%:ip,*)) { halt }
kontrol %:ip
hadd -m ckontrol %:ip $9
halt
}
}

Bununla değiştir dene
Kod:

on *:snotice:*: {
  if client connecting on* iswm $4- {
    var %:ip $remove($gettok($10,2,64),$chr(41))
    if ($level(%:ip) == muaf) { halt }
    kontrol %:ip
    hadd -m ckontrol %:ip $9
    halt
  }
}

Kullanıcı bölümüne bu şekilde eklemeler yapabilirsin
muaf:99.99.*
muaf:88.252.*

c00 05 Eylül 2014 09:09

Cevap: Muaf ip ekleme Yardım ?
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kıvama geldi tam, eline saglık .Birşey daha rica edicem.

Kod:

alias kontrol {
  sockopen $+(kontrol,$r(1,999999999)) $1- 8080
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128
  sockopen $+(kontrol,$r(1,999999999)) $1- 9050
  sockopen $+(kontrol,$r(1,999999999)) $1- 9999
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080
}

Bu bölgeyi ports.txt içindeki portları okuyup atması nı yapabilirmiyiz. Port eklerken filan kolaylık olsun dialog şeklinde port ekleme tablosu yapacam ona göre.

Toprak__ 05 Eylül 2014 14:48

Cevap: Muaf ip ekleme Yardım ?
 
Kod:

var %:port = 1 | while %:port <= $lines(ports.txt) {
sockopen $+(kontrol,$r(100,99999)) $1- $read(ports.txt,%:port)
inc %:port
}


c00 05 Eylül 2014 15:47

Cevap: Muaf ip ekleme Yardım ?
 
Kod:

#portarama on
on *:snotice:*: {
  if client connecting on* iswm $4- {
    var %:ip $remove($gettok($10,2,64),$chr(41))
    if ($level(%:ip) == muaf) { halt }
    kontrol %:ip
    hadd -m ckontrol %:ip $9
    halt
  }
}
alias kontrol {
  var %:port = 1 | while %:port <= $lines(ports.txt) {
  sockopen $+(kontrol,$r(100,99999)) $1- $read(ports.txt,%:port)
  inc %:port

}
on *:sockopen:kontrol*: {
  if !$sockerr {
    .raw gline *@ $+ $sock($sockname).ip +0 4Proxy Girişi Yasaktır.
    $+(,$sock($sockname).ip,:,$sock($sockname).port,)
    window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5 $date $time  2Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port,) - Nicki bu:4 $ip2nick($sock($sockname).ip)
    hdel ckontrol $sock($sockname).ip
    sockclose $sockname
  }
}
on *:sockclose:kontrol*: {
  hdel ckontrol $sock($sockname).ip
}
alias ip2nick {
  var %i 1
  while %i <= $hget(ckontrol,0).item {
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt }
    inc %i
  }
}
#portarama end

Kodu böyle mi eklicez oraya @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Toprak__ 05 Eylül 2014 15:57

Cevap: Muaf ip ekleme Yardım ?
 
Evet ama "}" koy altina.

c00 05 Eylül 2014 17:30

Cevap: Muaf ip ekleme Yardım ?
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] koydumda çalısmadı atmıyor .

Toprak__ 05 Eylül 2014 19:38

Cevap: Muaf ip ekleme Yardım ?
 
Buyur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

#portarama on
on *:snotice:*client connecting on*:who +I $9
raw 352:*:{
  if ($level($4) == muaf) { return }
  kontrol $4 | .hadd -ms ckontrol $4 $6
}
alias kontrol { var %:port = 1 | while %:port <= $lines(ports.txt) { sockopen $+(kontrol,$r(100,99999)) $1- $read(ports.txt,%:port) | inc %:port } }
on *:sockclose:kontrol*: { .hdel -ms ckontrol $sock($sockname).ip }
on *:sockopen:kontrol*: {
  if !$sockerr {
    .gzline $+(*@,$sock($sockname).ip) +0 Proxy Girişi Yasaktır.
    .window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 5 $date $time  2Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port,) - Nicki bu:4 $hget(ckontrol,$sock($sockname).ip)
    .hdel -ms ckontrol $sock($sockname).ip
    sockclose $sockname
  }
}
#portarama end

Port'ları ports.txt dosyasına portları alt alt'a yazın sorun yok..

Not: ports.txt'e ekliyebilecegin max port sayısı 10'dur. Saldırıda misal 100 bot sokarsa (10*100=1000) ve düşmene sebep olacaktır :)


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

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