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)

c00 13 Ağustos 2014 18:40
Muaf ip ekleme Yardım ?
 
Merhaba

#opers kanalında istedigim nickler muafips.txt içine ip eklemek -silmek- list istiyorum.Nicklerden baskası ip eklemeye calısırsa yetkili degilsiniz gibi uyarı versin .

Toprak__ 13 Ağustos 2014 19:25
Cevap: Muaf ip ekleme Yardım ?
 
Buyur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ;

Kod:
on *:text:*:#opers:{
  if !$istok(nick nick1 nick2,$nick,32) { msg # Komutu kullanmaya yetkili degilsin. | return }
  if $1 == !muafip {
    if !$2 { msg # Komut kullanımı; !muafip ekle - sil - list | return }
    if $2 == ekle {
      if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
      if $read(muafip.txt,w,$3) { msg # Belirtilen IP listede ekli. | return }
      .write muafip.txt $3 | msg # $3 muaf ip olarak eklendi.
    }
    if $2 == sil {
      if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
      if !$read(muafip.txt,w,$3) { msg # Belirtilen IP listede bulunmamaktadır. | return }
      .write $+(-ds,$3) muafip.txt | msg # $3 muaf ip listesinden silindi.
    }
    if $2 == list {
      if $lines(muafip.txt) == 0 { msg # Muaf Ip listesi boş. | return }
      msg # Muaf IP Listesi
      msg # 
      var %:ip = 1 | while %:ip <= $lines(muafip.txt) {
        msg # %:ip $+ -) $read(muafip.txt,%:ip)
        inc %:ip
      }
      msg # 
      msg # Muaf IP Listesi Sonu
    }
  }
}
Kırmızı ile belirttiğim yere komutu kullanıcak kişileri yazarsın.

Kullanım;

!muafip ekle IP (Örn; !muafip ekle 55.155.162)
!muafip sil IP (Örn; !muafip sil 55.155.162)
!muafip list (Örn; !muafip list)

c00 13 Ağustos 2014 21:17
Cevap: Muaf ip ekleme Yardım ?
 
Eline saglık hocam güzel olmuş.

if !$istok(nick nick1 nick2,$nick,32) bu kısmı aşagıdaki ile degiştirsem olur mu

if !$read(admin.txt,w,$nick)

Toprak__ 13 Ağustos 2014 21:42
Cevap: Muaf ip ekleme Yardım ?
 
Alıntı:
c00 Nickli Üyeden Alıntı (Mesaj 1041473618)
Eline saglık hocam güzel olmuş.

if !$istok(nick nick1 nick2,$nick,32) bu kısmı aşagıdaki ile degiştirsem olur mu

if !$read(admin.txt,w,$nick)
Evet.

c00 14 Ağustos 2014 00:12
Cevap: Muaf ip ekleme Yardım ?
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam şöyle bir sorun çıktı.


Kod:
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 
[00:09:57] <ChanServ> 4 Ekran temizlenmişdir. İyi sohbetler dileriz..
[00:09:57] <03c00> Komutu kullanmaya yetkili degilsin.
[00:09:57] <03c00> Komutu kullanmaya yetkili degilsin.
[00:09:57] <03c00> Komutu kullanmaya yetkili degilsin.
[00:09:57] <03c00> Komutu kullanmaya yetkili degilsin.
[00:09:58] <03c00> Komutu kullanmaya yetkili degilsin.
[00:09:58] <03c00> Komutu kullanmaya yetkili degilsin.
Biri #opers kanalı temizlediginde böyle yazılar cıkıyor durmadan.

aLone 14 Ağustos 2014 01:19
Cevap: Muaf ip ekleme Yardım ?
 
Telden baglandim, pc ye gecince yardimci olabilirim c00

Toprak__ 14 Ağustos 2014 11:11
Cevap: Muaf ip ekleme Yardım ?
 
Teldeyim suan.

Soyle;

Kod:
on *:text:*:#opers:{
  if $1 == !muafip {
    if !$read(admin.txt,w,$nick) { msg # Bu komutu kullanmaya yetkili degilsin. | return }
    if !$2 { msg # Komut kullanımı; !muafip ekle - sil - list | return }
    if $2 == ekle {
      if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
      if $read(muafip.txt,w,$3) { msg # Belirtilen IP listede ekli. | return }
      .write muafip.txt $3 | msg # $3 muaf ip olarak eklendi.
    }
    if $2 == sil {
      if !$3 || *.*.* !iswm $3 { msg # Lütfen IP belirtiniz. | return }
      if !$read(muafip.txt,w,$3) { msg # Belirtilen IP listede bulunmamaktadır. | return }
      .write $+(-ds,$3) muafip.txt | msg # $3 muaf ip listesinden silindi.
    }
    if $2 == list {
      if $lines(muafip.txt) == 0 { msg # Muaf Ip listesi boş. | return }
      msg # Muaf IP Listesi
      msg #
      var %:ip = 1 | while %:ip <= $lines(muafip.txt) {
        msg # %:ip $+ -) $read(muafip.txt,%:ip)
        inc %:ip
      }
      msg #
      msg # Muaf IP Listesi Sonu
    }
  }
}

aLone 14 Ağustos 2014 18:55
Cevap: Muaf ip ekleme Yardım ?
 
* /msg: Yetersiz veya eksik parametre (Satır 23, script16.ini)
Kod:
msg #
      var %:ip = 1 | while %:ip <= $lines(muafip.txt) {
        msg # %:ip $+ -) $read(muafip.txt,%:ip)
        inc %:ip
      }
      msg #
      msg # Muaf IP Listesi Sonu
    }
  }
}
Renkli bölümlerin önüne - koyabılırsın, msg # -
gibi

c00 14 Ağustos 2014 19:10
Cevap: Muaf ip ekleme Yardım ?
 
Kopyalarken renkli kutucuk cıkıyor oralarda burda gözukmuyo heralde [] böle işaretler var. Bu seferde muaf list calısmıyodu onuda yukardaki koddan aldım orayı degiştirdim sorun halloldu saolasın.

c00 03 Eylül 2014 12:47
Muaf ip eklemede Sorun :?
 
Kod:
#portarama on
on ^*:snotice:*: {
  if client connecting* iswm $4- {
    if $read(muafips.txt,w,$+(*,%:ip,*)) { halt }
    var %:ip $remove($gettok($10,2,64),$chr(41))
    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 $+ 3- 1[ Proxy Girisi ] : $+(,$sock($sockname).ip,1:,$sock($sockname).port,) 5- 1Nick:2 $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
Kırmızı ile belirttim yerde mauf ip kodu ekledim oraya, o kodu ekleyince hiç atmıyor , kodu cıkarıyorum atmaya devam ediyor.

Benim istedigim su 188.213. baslarsa o ipe zline atmasın .

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 :)

c00 05 Eylül 2014 20:18
Cevap: Muaf ip ekleme Yardım ?
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bende atmadı. ports.txt mirc.exe'nin oldugu kısma koymuyoz mu.
/load -rs ports.txt yükledim halen daha atmıor. Normali atıyor .

Toprak__ 05 Eylül 2014 20:20
Cevap: Muaf ip ekleme Yardım ?
 
Ben denedim ekledigim attı baya.

c00 05 Eylül 2014 20:32
Cevap: Muaf ip ekleme Yardım ?
 
* /sockopen: Yetersiz veya eksik parametre (Satır 7, script2.txt)

Satır 7 hata veriyor statusden baktım şimdi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Toprak__ 05 Eylül 2014 20:41
Cevap: Muaf ip ekleme Yardım ?
 
Hata degil o satır 7 kısmı sockopen kontrol* kısmına denk geliyor sanırım ports.txt de yazılan portların arasında boşluk filan var ondan yapıyordur.


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

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