[LeadeR]

merhaba ;
birçok arkadaşımızın forumda online oldukları süre icerisinde sordukları soruların %30'unu oluşturan bir konu ( away mesajları )
bildiğiniz üzere güvenlik botlarını aşabilmek için birçok inviter acılımı mevcut'tur bunların yanı sıra trojanlarda da mevcut olan away mesajlarını nasıl engeleriz diye soranlara bir cevap hazırladım bu cevap alt'taki kod'dur

çalışma mantığına gelince kanala girişlerde her user'in mesajlarını kontrol eder. Mesajları regex ile kontrol eder
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
com , net vs vs vs bunların ulaşabilecek en son hallerine kadar yasaklanmıştır. kullanıcı modları icerisinde (+o=IRCOP) flag'ı mevcut ise ceza-i işlemlerinde gline kullanır , eğer ki kişi kanalda operator ise kickban uygular.

işte kod ;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias _? { var %¦:- $address($1,5) | var %£.¨ $active | mode %£.¨ +b %¦:- }
on *:join:#: { whois $nick }
raw *:*: {
  var %? $3- , %¦ $numeric,%. o , %• $usermode , %:nx $2
  if %¦ == 301 {
    if ($regex(%?,/.*?([hH]{1,5}\W*[tT]{1,5}\W*[tT]{1,5}\W*[pP]{1,5}\W*[:.]{1,5}\W*[/\]{1,5}\W*[/\]{1,5})/)) {
      if %. isincs %• { 
        gline %:nx meşgul(away) sebebiniz uygunsuzdur. | echo -a 3 Prefix(http://) <- %:nx Kullanıcısı , %? mesajı ile korumanıza takıldı 
      } 
      else { 
        if $me isop $%£.¨ {
          _? %:nx | kick %£.¨ %:nx meşgul(away) sebebiniz uygunsuzdur. | echo -a 3 Prefix(http://) <- %:nx Kullanıcısı , %? mesajı ile korumanıza takıldı
        }
      }
    }
    if ($regex(%?,/.*?((vv|v|V|VV|[wW]){1,5}\W*(vv|v|V|VV|[wW]){1,5}\W*(vv|v|V|VV|[wW]){1,5}\W*[.]{1,5})/)) {
      if %. isincs %• { 
        gline %:nx meşgul(away) sebebiniz uygunsuzdur. | echo -a 3 Prefix(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kullanıcısı , %? mesajı ile korumanıza takıldı
      } 
      else { 
        if $me isop %£.¨ {
          _? %:nx | kick %£.¨ %:nx meşgul(away) sebebiniz uygunsuzdur. | echo -a 3 Prefix(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kullanıcısı , %? mesajı ile korumanıza takıldı
        }
      }
    }
    if ($regex(%?,/.*?([.:]{1,20}\W*[cC]{1,5}\W*[oO]{1,5}\W*[mM]{1,5})/)) {
      if %. isincs %• { 
        gline %:nx meşgul(away) sebebiniz uygunsuzdur. | echo -a 3 Prefix(.com) <- %:nx Kullanıcısı , %? mesajı ile korumanıza takıldı
      } 
      else { 
        if $me isop %£.¨ {
          _? %:nx | kick %£.¨ %:nx meşgul(away) sebebiniz uygunsuzdur. | echo -a 3 Prefix(.com) <- %:nx Kullanıcısı , %? mesajı ile korumanıza takıldı
        }
      }
    }
    if ($regex(%?,/.*?([.:]{1,5}\W*[nN]{1,5}\W*(é|€|[eE]){1,5}\W*[tT]{1,5})/)) {
      if %. isincs %• { 
        gline %:nx meşgul(away) sebebiniz uygunsuzdur. | echo -a 3 Prefix(.net) <- %:nx Kullanıcısı , %? mesajı ile korumanıza takıldı
      } 
      else { 
        if $me isop %£.¨ {
          _? %:nx | kick %£.¨ %:nx meşgul(away) sebebiniz uygunsuzdur. | echo -a 3 Prefix(.net) <- %:nx Kullanıcısı , %? mesajı ile korumanıza takıldı
        }
      }
    }
    if ($regex(%?,/.*?([.:]{1,20}\W*(0|[oO]){1,20}\W*[rR]{1,20}\W*[gG]{1,20})/)) {
      if %. isincs %• { 
        gline %:nx meşgul(away) sebebiniz uygunsuzdur. | echo -a 3 Prefix(.org) <- %:nx Kullanıcısı , %? mesajı ile korumanıza takıldı
      } 
      else {
        if $me isop %£.¨ {
          _? %:nx | kick %£.¨ %:nx meşgul(away) sebebiniz uygunsuzdur. | echo -a - %:nx Kullanıcısı , %? mesajı ile korumanıza takıldı
        }
      }
    }
    halt
  }
}

kolay gelsin , iyi çalışmalar

[olcays]

ya her girene whois çekip kanalda gösterio statüs e nasıL alcaz?

[DizZy]

Ordaki echo -a ları echo -s yapman yeterli olucaktır sanırım

[lacremel]

tskler Leader. Ya ßunu Kanal Guvenlik icin Kullanmayizmi?

[ByFly]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:join:#guvenlik: { whois $nick }

olarak degi$tir. sadece guvenlik kanalina girenleri tarar