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

- - Çözüldü Ulke yasaklama Addonu Sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/848725-ulke-yasaklama-addonu-sorunu.html)

Seymen98

21 Aralık 2019 10:04

Ulke yasaklama Addonu Sorunu

merhaba arkadaşlar toprak arkadaşimizin yapmiş oldu şehir kodunu ulke için deyişmeye calıstım ama işlev gormedi atmadı nedeni nedir yardımcı olursanız sevinirim hatalarim nerelerde acıba

Kod:

on *:text:*:#Operlog:{

  if $regex($1,/^[!.-]Ulke/Si) {

    if !$2 { msg # Lütfen !Ulke <ekle|sil|list> olarak belirtiniz. }

    elseif $regex($2,/^ekle$/Si) {

      if !$3 { msg # Lütfen !Ulke <ekle> <Ulke> olarak belirtiniz. }

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir Ulke yok :) }

      elseif $hget(Ulke ,$strip($3)) { msg # $strip($3) şehri yasak listesinde zaten ekli, neyin kafası. }

      else { .hadd -ms Ülke  $strip($3) $nick | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) Ulke yasak listesine eklendi. }

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if !$3 { msg # Lütfen !yasak <sil> <Şehir> olarak belirtiniz. }

      elseif !$hget(Ulke ,$strip($3)) { msg # $strip($3) Ulke yasak listesinde ekli değil. }

      else { .hdel -ms Ulke  $strip($3) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) Ulke yasak listesinden silindi. }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if !$hget(Ulke ,0).data { msg # Yasak Ulke listesi boş. }

      else {

        msg # Yasak şehir listesi .hsave -o Ulke Ulke.Yasak

        msg # -

        var %:t = 1 | while %:t <= $hget(Ulke ,0).data {

          msg # $+(%:t,.,$chr(41)) Şehir:4 $hget(Ulke ,%:t).item  Ekleyen:2 $hget(Ulke ,%:t).data

          inc %:t

        }

        msg # -

        msg # Yasak Ulke listesi sonu

      }

    }

  }

}

on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke  | .hload  -o Ulke Ulke.Yasak }

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) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 Ulke $sockname $iif($regml(1),$regml(1),Belirsiz) 

    if $hget(Ulke ,$regml(1)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ulke girişi.. }

  }

  elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) { 

    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ 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(Ulke ,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)

    .hdel -ms Ulke $sockname | .hdel -ms Ulke $sockname

    sockclose $sockname

  }

}

Emrehan

21 Aralık 2019 22:35

Cevap: Ulke yasaklama Addonu Sorunu

Alıntı:

Seymen98 Nickli Üyeden Alıntı (Mesaj 1042213371)

Kod:

on *:text:*:#OperLog:{

  if $regex($1,/^[!.][uüÜ]lke/Si) {

    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }

    elseif $regex($2,/^ekle$/Si) {

      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok :) }

      elseif $hget(Ulke,$strip($3)) { msg # $strip($3) ülkesi yasak listesinde zaten ekli. }

      else { .hadd -ms Ulke $strip($3) $nick | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesine eklendi. }

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if !$3 { msg # Lütfen !yasak sil <Ulke> olarak belirtiniz. }

      elseif !$hget(Ulke,$strip($3)) { msg # $strip($3) yasak ülke listesinde ekli değil. }

      else { .hdel -ms Ulke $strip($3) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesinden silindi. }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }

      else {

        msg # Yasak Ülke Listesi

        msg # -

        var %:t = 1 | while %:t <= $hget(Ulke,0).data {

          msg # $+(%:t,.,$chr(41)) Ülke:4 $hget(Ulke,%:t).item  Ekleyen:2 $hget(Ulke,%:t).data

          inc %:t

        }

        msg # -

        msg # Yasak Ülke Listesi Sonu

      }

    }

  }

}

on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }

raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

on *:sockopen:ulke*:{ 

  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:ulke*:{  

  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke

  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $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) { 

    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$hget(Country,$sockname)),- 4Yasak Ülke Girişi!)

    if $hget(Ulke,$hget(Country,$sockname)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }

    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

  }

}

Seymen98

21 Aralık 2019 22:49

Cevap: Ulke yasaklama Addonu Sorunu

emrehan tşk ederim hocam

Zadrich

06 Şubat 2020 02:00

Cevap: Ulke yasaklama Addonu Sorunu

Güzel bir kod kullandım gayette güzel çalışıyor lakin tek sıkıntısı cift kelimeli ülkeleri eklemiyor
örneğin; United States gibi cift kelimeli ülkeleri eklemiyor, düzeltilirse çok harika bir çalışma olucaktır.

Emrehan

06 Şubat 2020 04:01

Cevap: Ulke yasaklama Addonu Sorunu

Alıntı:

Zadrich Nickli Üyeden Alıntı (Mesaj 1042251223)

Kod:

on *:text:*:#OperLog:{

  if $regex($1,/^[!.][uüÜ]lke/Si) {

    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }

    elseif $regex($2,/^ekle$/Si) {

      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }

      elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }

      else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }

      elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }

      else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }

      else {

        msg # Yasak Ülke Listesi

        msg # -

        var %:t = 1 | while %:t <= $hget(Ulke,0).data {

          msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)

          inc %:t

        }

        msg # -

        msg # Yasak Ülke Listesi Sonu

      }

    }

  }

}

on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }

raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

on *:sockopen:ulke*:{ 

  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:ulke*:{  

  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke

  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $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) { 

    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)

    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }

    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

  }

}

Hesapsiz33

18 Şubat 2020 18:12

Cevap: Ulke yasaklama Addonu Sorunu

Merhaba rica etsem bu koda da yukarıdaki gibi liste bakınca kimin badnick i listeye ekledigini gösterecek sekilde ayarlaya bilmemiz mümkün müdür?
Yukarıdaki kod ile yer degisikligi yaptım yinede olmadı belki 2 saattir bununla ugrasıyorum yapamadım bi türlü.

on *:text:*:#:{
if $regex($1,/^[!\.]badnick$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3)
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesine eklendi.
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
msg # -
msg # Badnick listesi sonu
}
}
}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:12 -->-> Daha önceki mesaj 18:11 --

Alıntı:

Emrehan Nickli Üyeden Alıntı (Mesaj 1042251231)

Kod:

on *:text:*:#OperLog:{

  if $regex($1,/^[!.][uüÜ]lke/Si) {

    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }

    elseif $regex($2,/^ekle$/Si) {

      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }

      elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }

      else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }

      elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }

      else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }

      else {

        msg # Yasak Ülke Listesi

        msg # -

        var %:t = 1 | while %:t <= $hget(Ulke,0).data {

          msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191)  Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)

          inc %:t

        }

        msg # -

        msg # Yasak Ülke Listesi Sonu

      }

    }

  }

}

on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }

raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

on *:sockopen:ulke*:{ 

  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:ulke*:{  

  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke

  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $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) { 

    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])

    echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)

    if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }

    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

  }

}

Merhaba rica etsem bu koda da yukarıdaki gibi liste bakınca kimin badnick i listeye ekledigini gösterecek sekilde ayarlaya bilmemiz mümkün müdür?
Yukarıdaki kod ile yer degisikligi yaptım yinede olmadı belki 2 saattir bununla ugrasıyorum yapamadım bi türlü.

on *:text:*:#:{
if $regex($1,/^[!\.]badnick$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3), 1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3)
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesine eklendi.
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
msg # -
msg # Badnick listesi sonu
}
}
}
Konuyu düzenle/Sil Alıntı ile Cevapla Bu mesajdan Alıntı Hızlı Cevap

Emrehan

18 Şubat 2020 23:07

Cevap: Ulke yasaklama Addonu Sorunu

Alıntı:

Hesapsiz33 Nickli Üyeden Alıntı (Mesaj 1042257509)

Kod:

on *:text:*:#:{

  if $regex($1,/^[!\.]badn[ıiİ]ck$/Si) {

    if $regex($2,/^ekle$/Si) {

      if (!$3) { msg # Lütfen nick belirtiniz | return }

      elseif $hfind(badnick,$strip($3),1,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }

      var %n = $left($calc($ctime * $rand(1000,9999)),7)

      .hadd -m badnick %n $strip($3) | .hsave -o badnick badnick.tprk

      .hadd -m badekleyen %n $nick | .hsave -o badekleyen badekleyen.tprk

      msg # $strip($3) Badnick listesine eklendi.

    }

    elseif $regex($2,/^s[ıiİ]l$/Si) {

      if (!$3) { msg # Lütfen nick belirtiniz | return }

      elseif !$hfind(badnick,$strip($3),1,W).data { msg # Silmeye çalıştığınız badnick hafızada ekli değil. | return }

      else {

        if $hfind(badnick,$strip($3),1,W).data { .hdel -m badekleyen $v1 | .hsave -o badekleyen badekleyen.tprk }

        .hdel -m badnick $hfind(badnick,$strip($3),1,W).data | .hsave -o badnick badnick.tprk

        msg # $strip($3) Badnick listesinden silindi.

      }

    }

    elseif $regex($2,/^l[ıiİ]st$/Si) {

      if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }

      msg # Badnick listesi

      msg # -

      var %i = 1 | while (%i <= $hget(badnick,0).data) {

        msg # $+(%i,-,$chr(41)) $hget(badnick,%i).data - Ekleyen: $hget(badekleyen,$hget(badnick,%i).item)

        inc %i

      }

      msg # -

      msg # Badnick listesi sonu

    }

  }

}

Hesapsiz33

18 Şubat 2020 23:38

Cevap: Ulke yasaklama Addonu Sorunu

Eline emegine saglık usta.

useyd

23 Mart 2021 23:03

Cevap: Ulke yasaklama Addonu Sorunu

!yasak ekle Ülke ISP şeklinde yapabilirmiyiz.
Bazı ülkeler arasında boşluk oluyor United States gibi.

NurSima

23 Mart 2021 23:51

Cevap: Ulke yasaklama Addonu Sorunu

Emeginize SağLık...

useyd

26 Mart 2021 00:46

Cevap: Ulke yasaklama Addonu Sorunu

Alıntı:

useyd Nickli Üyeden Alıntı (Mesaj 1042463604)

!yasak ekle Ülke ISP şeklinde yapabilirmiyiz.
Bazı ülkeler arasında boşluk oluyor United States gibi.

Bu şekilde çevirebilirmiyiz.

KuL	01 Nisan 2021 00:58

Cevap: Ulke yasaklama Addonu Sorunu

Sanirim zaten Sitede degisiklik oldu, Kod ondan dolayi hatada veriyor olabilir artik

silenger

12 Ocak 2025 02:06

Cevap: Ulke yasaklama Addonu Sorunu

Yasak ulke kodu olan varmi güncel

ByaSiL

12 Ocak 2025 03:39

Cevap: Ulke yasaklama Addonu Sorunu

Alıntı:

silenger Nickli Üyeden Alıntı (Mesaj 1042963154)

Yasak ulke kodu olan varmi güncel

Dilediğiniz Ükle'yi yasaklamanıza yardımcı olacak güzel bir kod
Yasaklamak istediğiniz ülkeyi Eklemek için : !Yasak ekle Hollanda Silmek için ise : !Yasak sil Hollanda

PHP- Kodu:

   on *:text:*:#KANAL:{

if $regex($1,/^[!.][uüÜ]lke/Si) {

if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }

elseif $regex($2,/^ekle$/Si) {

if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }

elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok :) }

elseif $hget(Ulke,$strip($3)) { msg # $strip($3) ülkesi yasak listesinde zaten ekli. }

else { .hadd -ms Ulke $strip($3) $nick | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesine eklendi. }

}

elseif $regex($2,/^s[ıiİ]l$/Si) {

if !$3 { msg # Lütfen !yasak sil <Ulke> olarak belirtiniz. }

elseif !$hget(Ulke,$strip($3)) { msg # $strip($3) yasak ülke listesinde ekli değil. }

else { .hdel -ms Ulke $strip($3) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesinden silindi. }

}

elseif $regex($2,/^l[ıiİ]st$/Si) {

if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }

else {

msg # Yasak Ülke Listesi

msg # -

var %:t = 1 | while %:t <= $hget(Ulke,0).data {

msg # $+(%:t,.,$chr(41)) Ülke:4 $hget(Ulke,%:t).item Ekleyen:2 $hget(Ulke,%:t).data

inc %:t

}

msg # -

msg # Yasak Ülke Listesi Sonu

}

}

}

}

on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }

raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ipaddresslocation.org 80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

on *:sockopen:ulke*:{

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:ulke*:{

var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke

if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $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) {

$iif(!$window([MENTION=79043]Network[/MENTION]),window -e [MENTION=79043]Network[/MENTION])

echo -t [MENTION=79043]Network[/MENTION] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$hget(Country,$sockname)),- 4Yasak Ülke Girişi!)

if $hget(Ulke,$hget(Country,$sockname)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }

.hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

}

}

Bende böyle birşey var ama çalışıp çalışmadığını ve kimin yaptığını bilmiyorum.

ZaLiM1979

12 Ocak 2025 19:06

Cevap: Ulke yasaklama Addonu Sorunu

Arkadaslar bildigim kadar ükle yasaklamiyi unrealircd.conf icine yapabilirsiniz. Daha güvenli ve koda ihtiyac yok. Saygilarimla.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:06 -->-> Daha önceki mesaj 18:56 --

Verecegim kodu unrealircd.conf'un icine ekleyin ve hanki ülkeler girsin istiyorsaniz onlari ekleyin misal Türkiye'den girsinler TR ekleyin, Almanyadan girsinler DE ekleyin, vsy..

Yazdiginiz ülkeler disinda gelen olursa giremiyorlar.

Kod:

Kod:

ban user {

    mask {

        mask *;

        exclude-country { CH; DE; AT; NO; TR; }

    }

    reason "Sorry, users are not allowed from this country. Have a nice day. :)";

}

silenger

13 Ocak 2025 18:25

Cevap: Ulke yasaklama Addonu Sorunu

Alıntı:

ByaSiL Nickli Üyeden Alıntı (Mesaj 1042963160)

Dilediğiniz Ükle'yi yasaklamanıza yardımcı olacak güzel bir kod
Yasaklamak istediğiniz ülkeyi Eklemek için : !Yasak ekle Hollanda Silmek için ise : !Yasak sil Hollanda

PHP- Kodu:

   on *:text:*:#KANAL:{

if $regex($1,/^[!.][uüÜ]lke/Si) {

if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }

elseif $regex($2,/^ekle$/Si) {

if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }

elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok :) }

elseif $hget(Ulke,$strip($3)) { msg # $strip($3) ülkesi yasak listesinde zaten ekli. }

else { .hadd -ms Ulke $strip($3) $nick | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesine eklendi. }

}

elseif $regex($2,/^s[ıiİ]l$/Si) {

if !$3 { msg # Lütfen !yasak sil <Ulke> olarak belirtiniz. }

elseif !$hget(Ulke,$strip($3)) { msg # $strip($3) yasak ülke listesinde ekli değil. }

else { .hdel -ms Ulke $strip($3) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesinden silindi. }

}

elseif $regex($2,/^l[ıiİ]st$/Si) {

if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }

else {

msg # Yasak Ülke Listesi

msg # -

var %:t = 1 | while %:t <= $hget(Ulke,0).data {

msg # $+(%:t,.,$chr(41)) Ülke:4 $hget(Ulke,%:t).item Ekleyen:2 $hget(Ulke,%:t).data

inc %:t

}

msg # -

msg # Yasak Ülke Listesi Sonu

}

}

}

}

on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }

raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ipaddresslocation.org 80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }

on *:sockopen:ulke*:{

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:ulke*:{

var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke

if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $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) {

$iif(!$window([MENTION=79043]Network[/MENTION]),window -e [MENTION=79043]Network[/MENTION])

echo -t [MENTION=79043]Network[/MENTION] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$hget(Country,$sockname)),- 4Yasak Ülke Girişi!)

if $hget(Ulke,$hget(Country,$sockname)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }

.hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname

}

}

Bende böyle birşey var ama çalışıp çalışmadığını ve kimin yaptığını bilmiyorum.

Who çekiyor fakat belirttiğim kanala yansıtmıyor

Mylife

14 Ocak 2025 11:06

Cevap: Ulke yasaklama Addonu Sorunu

Kod:

;bu kısma #kanal yerine komutların çalışacağı kanalı yazın.

on *:text:*:#kanal:{
 

  if $regex($1,/^[!.][uüÜ]lke/Si) {
 

    if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
 

    elseif $regex($2,/^ekle$/Si) {
 

      if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
 

      elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok :) }
 

      elseif $hget(Ulke,$strip($3)) { msg # $strip($3) ülkesi yasak listesinde zaten ekli. }
 

      else { .hadd -ms Ulke $strip($3) $nick | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesine eklendi. }
 

    }
 

    elseif $regex($2,/^s[ıiİ]l$/Si) {
 

      if !$3 { msg # Lütfen !yasak sil <Ulke> olarak belirtiniz. }
 

      elseif !$hget(Ulke,$strip($3)) { msg # $strip($3) yasak ülke listesinde ekli değil. }
 

      else { .hdel -ms Ulke $strip($3) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3) yasak ülke listesinden silindi. }
 

    }
 

    elseif $regex($2,/^l[ıiİ]st$/Si) {
 

      if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
 

      else {
 

        msg # Yasak Ülke Listesi
 

        msg # -
 

        var %:t = 1 | while %:t <= $hget(Ulke,0).data {
 

          msg # $+(%:t,.,$chr(41)) Ülke:4 $hget(Ulke,%:t).item Ekleyen:2 $hget(Ulke,%:t).data
 

          inc %:t
 

        }
 

        msg # -
 

        msg # Yasak Ülke Listesi Sonu
 

      }
 

    }
 

  }
 

}
 ;bu kısma verileri yansıtacağı kanalı yazın.

alias _knl return #kanal
 

on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
 
 

on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2)  }
 

raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
 

on *:sockopen:ulke*:{
 

  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:ulke*:{
 

  var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
 

  if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $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) {
 

    $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
 

    ; bu kısımda echo mesajı olarak ayarlanmıştı bunu yine belirlediğiniz kanala yansıtabilirsiniz aşağıdaki gibi.

    msg $_knl - @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$hget(Country,$sockname)),- 4Yasak Ülke Girişi!)
 

    if $hget(Ulke,$hget(Country,$sockname)) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
 

    .hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
 

  }
 

}

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], deneme şansım olmadı. Bu şekilde işinizi görür sanırım.

silenger

14 Ocak 2025 14:07

Cevap: Ulke yasaklama Addonu Sorunu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardesim yine ayni eekilde sadece who crkiyor baska birsey yok

Sohbet Koray_ogretmnn H xxx@5.47.200.100 :1 - Mobil
Koray_ogretmnn End of /WHO list

Mylife

14 Ocak 2025 17:14

Cevap: Ulke yasaklama Addonu Sorunu

Alıntı:

silenger Nickli Üyeden Alıntı (Mesaj 1042963859)

kontrol amaçlı onu çeker işlem yapması için yasak ülkeden giriş olması lazım.

Feragat

14 Ocak 2025 19:02

Cevap: Ulke yasaklama Addonu Sorunu

Merhaba,

Sorgu yapılan sitenin 80 portundan veri alabildiğine emin misiniz? Çünkü site http(s) protokolünü kullanıyor.
Kod ile siteden veri alınıp alınmadığını bir deneyin isterseniz. Eğer sonuç olumlu ise kodu düzeltmek kolay olacaktır.

silenger

14 Ocak 2025 23:06

Cevap: Ulke yasaklama Addonu Sorunu

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1042963979)

Aga buna emin değilim büyük ihtimal ile almıyor olabilir dediğim.gibi sadece who işlemi yapıyor

Tupac

24 Ocak 2025 22:53

Cevap: Ulke yasaklama Addonu Sorunu

allow {
ip *@CH; # İsviçre
ip *@DE; # Almanya
ip *@FR; # Fransa
ip *@TR; # Türkiye
};

deny {
ip *@*; # Diğer tüm ülkeleri engelle
};
bunuda kullanabilirsiniz loadmodule "geoip.so";

CoCoRiCo

12 Şubat 2025 18:30

Cevap: Ulke yasaklama Addonu Sorunu

Bu tip adresler sıklıkla kapanır, bu nedenle iyi bir kaynak bulmanız gerekir
FireFox eklentisi olan bir kaynak için Ülke bilgisi veren aşağıdaki kodu kullanabilirsiniz..

Kod:

alias gip {

  if $regex($1,/^(\d+(\.|$)){4}/g) { .sockopen -e $+(gip-,$1) iplookup.flagfox.net 443 }

  else { echo *GeoIP* Hatalı IP Adress }

}

on *:sockopen:gip-*: {

  if (!$sockerr) {  

    var %s sockwrite -n $sockname 

    %s GET /?ip= $+ $gettok($sockname,-1,$asc(-)) $+ &host= HTTP/1.1

    %s Host: iplookup.flagfox.net

    %s User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:135.0) Gecko/20100101 Firefox/135.0

    %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

    %s Cookie: Geotool-Language=en-US

    %s Connection: keep-alive

    %s $str($crlf,2)

  }
 

}

on *:sockread:gip-*: {

  if ($sockerr > 0) return | :.

  sockread %d

  if ($sockbr == 0) return

  if *nowrap*/wiki/* iswm %d && $regsubex(%d,/(<b>(.*?)<\/b>)/g,\1) {

    echo : $remove($regml(1),</b>,<b>)

  }

  goto .

}

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