Neler yeni

IRCForumları - IRC ve mIRC Yardım ve Destek Platformu - İRCforumlari

Duyuru; 📢

Forumda 'Tanıtım Yazısı' şeklinde Sitelerinizin Tanıtımını Yaparak sitenizi yükselte bilirsiniz.İRCForumları Ailesi İyi Forumlar Diler.!

PM Kuralları; 📢

Forumunda yer alan bir konuya istineden kesinlikle (özel mesaj) yolu ile destek talep etmeyiniz, zira bu tip alınan mesajlar kesinlikle cevapsız kalacaktır. İlgili konuya istinaden forumda destek konusu oluşturunuz.

İçerik hk; 📢

Sizde bilgi deneyim sahibi olduğunuz konu ve alanları forumda kolayca paylaşarak daha geniş kitlelere ulaşmasını sağlayabilir, oluşturduğunuz ticari konular sayesinde kazanç elde edebilirsiniz.

sohbet Online Okey Reklam Reklam
okey oyna

#güvenlik kanalına girene kod sorgulatma

Root

Forum Sahibi
Yönetici
1 Şub 2022
1,301
219
63
www.ircforumlar.com
#guvenlik kanalına girene kod sorgulatma
Kod:
on *:snotice:*: {
  if (connecting isin $1-) {
    writeini version.ini $9 ip $+(*@,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64))
    timer 1 2 ctcp $9 version
    timer $+ $readini(version.ini,$9,ip) 1 10 /who  $+(*,$gettok($replace($10,$chr(40),$chr(32),$chr(41),$chr(32)),-1,64),*)
  }
}
raw 352:*:{
  sajoin $6 #guvenlik
}
on *:join:#guvenlik: {
  if ($level($nick) == muafnlist) { halt }
  if $nick == $me { halt }
  if ($regex($address($nick,2),/(helper|admin|ircop|services|dj|tech|global|Securty)/i)) { halt }
  if !$read(admin.txt,w,$nick) {
    ctcp $nick version
    set %version [ $+ [ $address($nick,2) ] ] $rand(0,9) $+ $rand(a,z) $+ $rand(0,9)
    msg #guvenlik 2Merhaba 4 $nick  , 2 Suan Bot Olarak Algilaniyorsunuz ;
    msg #guvenlik 4 2 Dakika 2İçinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklaştirilacaksiniz!
    msg #guvenlik 2Bot Olmadiginizi Belirtmek İçin Lütfen 4!nobot %version [ $+ [ $address($nick,2) ] ]  2Komutunu Özelime Yaziniz.
    msg #Opers 4[BILGI] 2[Nick: $nick ] 7[Version Çekildi]
    enable #vis   
    userip $nick
    timer 1 2 /disable #vis
    timer $+ $address($nick,2) 1 140 /unset %version [ $+ [ $nick ] ]
    timer $+ $address($nick,2) 1 140 /unset %version [ $+ [ $address($nick,2) ] ]
  }
}
alias veban { zline $$1 1h Güvenlik Kodunu Yanlış Girdiğinizden dolayı sunucudan uzaklastırıldınız. $date $time $+([,%botnick,]) }
#vis off
raw 340:*: {
  timer $+ $remove($gettok($2-,1,61),*)  1 120 /veban *@ [ $+ [ $gettok($2-,2,64) ] ]
}
#vis end

on 1:ctcpreply:* {
  if $read(admin.txt,w,$nick) { halt }
  if ($1 == version) {
    .timer $+ $readini(version.ini,$nick,ip) off
    remini version.ini $nick
    timer $+ $nick off
    unset %version [ $+ [ $address($nick,2) ] ]
    unset %version [ $+ [ $nick ] ]
    msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
    sapart $nick #guvenlik
    close -m $nick
  }
}
on *:text:!nobot *:?: {
  if ( $2 !== %version [ $+ [ $address($nick,2) ] ] ) {
    if $nick == $nick {
     msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
     sapart $nick #guvenlik
      close -m $nick
      halt
    }
  }
  if ( $2 == %version [ $+ [ $address($nick,2) ] ] ) {
    msg $nick Guvenlik Sistemini Geçtiniz , Hoş Sohbetler Dileriz.
    sapart $nick #guvenlik
    timer $+ $nick off
    unset %version [ $+ [ $address($nick,2) ] ]
    unset %version [ $+ [ $nick ] ]
    sapart $nick #guvenlik
    close -m $nick
  }
  else {
    msg $nick Yanlis Kod Girdiniz , Lütfen Kodu Duzgun Giriniz.
    msg $nick Size Verilen Kod :4 %version [ $+ [ $address($nick,2) ] ]
    msg $nick Lütfen Kodu Düzgün Giriniz.
    close -m $nick
  }
}

Sunucuya Baglanan userleri Guvenlik kanalına cekip kodu girmesini ister yanlıs girenı yada 2 dk içinde kodu girmeyenı sunucudan uzaklastırır. Admin ircop ops helper gibi hostları zlineden muaf tutar
 
shape1
shape2
shape3
shape4
shape7
shape8
Üst