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

[-]
Tags
yurtdışıkoruma mircaddon mirckodları yurtdışıkorumakod koruması ircforum yurtdısıkoruması yurtdışıaddon yurtdışıkorumakodu ircforumlari mircaddonları yurtdışı kodu yurtdışıkorumaaddon mirckod ircforumları yurtdışıkoruması

Yurtdışı Koruması
Admin
#1
Heart 
Yeni Yurtdışı Koruması 2020 #opers kanalında !yip on !yip off yazıldığında harekete geçer ve sadece 6667 6668 portundan bağlanan kullanıcıları kapsar.
.yip pas Yazıldğında da kod pasif kalır.


.yip on yurt dışından girişler SERBEST
.yip off yurt dışından girişler YASAK
.yip pas yurt dışından girişler PASİF


kırmızı alanda belirttiğim gibi yurt dışı girişleri yasak konumunda ise girenlere gzline uygulanır.
Kod aktif olduktan sonra @G-kontrol penceresinde bilgi verilir.2020



Kod:
on *:text:*:#opers:{
  if $regex($1-,/[.!]yip\s(on|off|pas)$/i) { set %yurtdisi $regml(1)
    msg # Yurt dışı girişleri $iif($regml(1) = off,4KAPATILDI,$iif($regml(1) = on,3AÇILDI,$iif($regml(1) = pas,2PASİF)))
  }
}
alias G-kontrol {
  if !$sock($+(G-kontrol@,$1)) {
    sockopen $+(G-kontrol@,$1) ipinfo.io 80
    sockmark $+(G-kontrol@,$1) $+(/,$1,/json?token=bdbdb82ae05b96)
  }
}
on *:snotice:*: {
  if $regex(gk,$1-,/Client\sconnecting(.+)666(7|8):\s(.*)\(((.*)@(.*))\)(.*)/i) {
    if %yurtdisi = pas { return }
G-kontrol $regml(gk,6)
  }
}
on *:sockopen:G-kontrol@*:{
  var %sw sockwrite -tn $sockname
  %sw GET $sock($sockname).mark HTTP/1.1
  %sw Host: ipinfo.io
%sw $crlf }
on *:sockread:G-kontrol@*:{
  var %d_G-kontrol
  sockread %d_G-kontrol
  if $regex(ig,%d_G-kontrol,/("country": "(.*)")/i) {
    if $regml(ig,2) !== TR && %yurtdisi = off {
      if !$window(@G-kontol) {  window -en @G-kontol }
      gzline $+(*@,$gettok($sockname,2,64)) 1h Sunucumuzun girişi şimdilik yurt dışına kapalıdır.
      echo -m @G-kontol $time(d/m/yyyy HH:nn) 5GİRİŞ[4Yurt Dışı] 2İP-ADRES: $gettok($sockname,2,64) 
    }
    else { echo -m @G-kontol $time(d/m/yyyy HH:nn) $iif($regml(ig,2) = TR,5GİRİŞ[3Yurt İçi],5GİRİŞ[4Yurt Dışı]) 2İP-ADRES: $gettok($sockname,2,64) }
  }
  if *"org":* iswm %d_G-kontrol { sockclose $sockname }
}

Cevapla


Bu Konudaki Yorumlar
Yurtdışı Koruması - Yazar: Admin - 05-31-2020, 10:48 PM
RE: Yurtdışı Koruması - Yazar: Lamer - 06-01-2020, 12:47 AM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Clone Koruması 2020 Admin 0 410 08-20-2020, 05:56 PM
Son Yorum: Admin
Lightbulb mIRC Kanal Yetki Koruması Admin 0 377 08-20-2020, 05:43 PM
Son Yorum: Admin
  mIRC Küfür Koruması (Seçmeli Hotlink) Admin 1 1,217 06-04-2020, 04:20 PM
Son Yorum: Lamer
Heart Büyük Harf Koruması Kodları Admin 0 693 06-01-2020, 10:13 PM
Son Yorum: Admin
Bug Clone Koruması Admin 0 526 05-26-2020, 07:31 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi