Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
şehiryasaklaaddon şehirkodu ircforum girişte şehiryasakla şehir yasaklama mircaddonları scriptaddonları gösterme irckodları şehiryasaklamakodu ve ircforumları ircaddonları

Girişte Şehir Gösterme ve Şehir Yasaklama
Admin
#1
Heart 
Komut: !yasakid <ekle <Şehir> <ISP>
Komut: !yasakid <sil> <Şehir> <ISP>

Bir şehir için birden fazla ISP yasaklayabiliyorsunuz. Örnek Ankara için Türk Telekom, TurkNet, SuperOnline, Vodafone vs. dilediğiniz kadar ekleyebilirsiniz.

Kod:
on *:text:*:#Admin:{
  if $regex($1,/^[!.]yasak[ıiİ]d/Si) {
    if !$2 { msg # Lütfen !yasakid <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 || !$4 { msg # Lütfen !yasakid <ekle> <Şehir> <ISP> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }
      elseif $istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. }
      else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $+($strip($4-),¿) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 || !$4 { msg # Lütfen !yasakid <sil> <Şehir> <ISP> olarak belirtiniz. }
      elseif !$istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. }
      else {
        var %sil $remtok($hget(YasakS,$strip($3)),$strip($4-),191)
        .hdel -m YasakS $strip($3) | .hadd -m YasakS $strip($3) %sil | .hsave -o YasakS yasaks.tprk
        msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi.
      }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. }
      else {
        msg # Yasak giriş listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(YasakS,0).data {
          msg # $+(%:t,-,$chr(41)) Şehir:4 $hget(YasakS,%:t).item  ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(191),$+($chr(32),$chr(45)))
          inc %:t
        }
        msg # -
        msg # Yasak giriş listesi sonu
      }
    }
  }
}
on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r) www.ipaddresslocation.org 80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:isp*:{
  var %:isp | sockread -f %:isp | tokenize 32 %:isp
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    if $istok($hget(YasakS,$hget(Sehir,$sockname)),$regml(1),191) {
      .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş
      .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname | return
    }
    $iif(!$window [USER=12343]Network[/USER]),window -e [USER=12343]Network[/USER])
    echo -t [USER=12343]Network[/USER] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)
    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname
    sockclose $sockname
  }
}
Komut: !yasakid <ekle <Şehir> <ISP>
Komut: !yasakid <sil> <Şehir> <ISP>

Bir şehir için birden fazla ISP yasaklayabiliyorsunuz. Örnek Ankara için Türk Telekom, TurkNet, SuperOnline, Vodafone vs. dilediğiniz kadar ekleyebilirsiniz.





Kod:
on *:text:*:#Admin:{
  if $regex($1,/^[!.]yasak[ıiİ]d/Si) {
    if !$2 { msg # Lütfen !yasakid <ekle|sil|list> olarak belirtiniz. }
    elseif $regex($2,/^ekle$/Si) {
      if !$3 || !$4 { msg # Lütfen !yasakid <ekle> <Şehir> <ISP> olarak belirtiniz. }
      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }
      elseif $istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. }
      else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $+($strip($4-),¿) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. }
    }
    elseif $regex($2,/^s[ıiİ]l$/Si) {
      if !$3 || !$4 { msg # Lütfen !yasakid <sil> <Şehir> <ISP> olarak belirtiniz. }
      elseif !$istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. }
      else {
        var %sil $remtok($hget(YasakS,$strip($3)),$strip($4-),191)
        .hdel -m YasakS $strip($3) | .hadd -m YasakS $strip($3) %sil | .hsave -o YasakS yasaks.tprk
        msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi.
      }
    }
    elseif $regex($2,/^l[ıiİ]st$/Si) {
      if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. }
      else {
        msg # Yasak giriş listesi
        msg # -
        var %:t = 1 | while %:t <= $hget(YasakS,0).data {
          msg # $+(%:t,-,$chr(41)) Şehir:4 $hget(YasakS,%:t).item  ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(191),$+($chr(32),$chr(45)))
          inc %:t
        }
        msg # -
        msg # Yasak giriş listesi sonu
      }
    }
  }
}
on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r) www.ipaddresslocation.org 80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -nt $sockname $crlf
}
on *:sockread:isp*:{
  var %:isp | sockread -f %:isp | tokenize 32 %:isp
  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
    if $istok($hget(YasakS,$hget(Sehir,$sockname)),$regml(1),191) {
      .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş
      .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname | return
    }
    $iif(!$window [USER=12343]Network[/USER]),window -e [USER=12343]Network[/USER])
    echo -t [USER=12343]Network[/USER] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)
    .hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname
    sockclose $sockname
  }
}

Cevapla


Bu Konudaki Yorumlar
Girişte Şehir Gösterme ve Şehir Yasaklama - Yazar: Admin - 02-21-2020, 06:08 AM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Lightbulb !iftar Şehir Kodu Admin 0 855 11-15-2020, 09:13 PM
Son Yorum: Admin
Lightbulb Sunucuya girişte version/finger sorgusu addonu Admin 0 1,009 11-15-2020, 08:06 PM
Son Yorum: Admin
Lightbulb Girişte Host Değil de İP adresini görmek isterseniz. Admin 0 1,847 08-20-2020, 06:02 PM
Son Yorum: Admin
Heart Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN Admin 0 2,522 05-26-2020, 07:40 PM
Son Yorum: Admin
Bug Girişte tek tıkla ip gline shun kickban addonu Admin 0 2,166 05-20-2020, 05:29 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi