Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Tags
Author: Admin - Replies: 0 - Views: 4144
Botnet Koruması Yeni
Botnet koruması, nicklere göre işlev yapar. Aşağıda verilen nick listesini bir txt dosyası oluturup içine atın, adı botnet olması gerekmektedir. Yukarıdaki kodu remotenize ekleyin. ( Operler içindir. )

[code]#bott on
on *Confusednotice:*: {
  if ($level($9) == muafnlist) { halt }
  if $read(botnet.txt,w,$9) { 
    .gzline $9 +600 . System botnet! ) 
  } 


on *:text:.korumalardurum:%operkanali:{
  if !$read(admin.txt,w,$nick) { 
  }
  else { msg
Author: Admin - Replies: 0 - Views: 5726
Proxy akill ekleme Alias
Proxy akill ekleme komutu için yapmanız gereken işlem.

mirc scriptinizin remote bölünmüne kodu ekleyip.

/write proxy.txt komutundan sonra
/run proxy.txt komutunu uygulamak.


açılan metin belgesine ip adreslerini liste seklinde atarak ekleyebilirsiniz
menü-bar özelligi sayesinde sağ tıklayarak açılan seçeneklerde toplu yada teker teker ekleyebilirsiniz.

[code]alias proxyadd {
var %i = 1
echo -a Tikky Ipler Adminserv AKILL
Author: Admin - Replies: 0 - Views: 5990
Sunucuya 2 saniye icerisinde aynı identten 5 giriş olursa IP adreslerini AKILL EKLER
Sunucuya 2 saniye icerisinde aynı identten 5 giriş olursa IP adreslerini AKILL EKLER 2020
[code]on *Confusednotice:*connecting*: {
  ;alt kısımda gelen veriyi ayristirma %ip ve %ident seklinde
  var %ip $left($token($10,2,64),-1), %ident $right($token($10,1,64),-1)
  ;Aşagi kısımda ident1 ident2 gibi yan yana muaf ident belirtebilirsiniz.
  if $istok(ident1 ident2,%ident,32)  || $istok(nick1 nick2,$9,32) { return }
  ;-mu2 yazan kısımda
Author: Admin - Replies: 0 - Views: 5342
Özelinize Yapılan Saldırıları Engellemek İçin
ÖZELİNİZE YAPILAN SALDIRILARI ENGELLEMEK İÇİN 
Kod:
on *:open:if $query(10) { mode $me +D }
[b][color=#FF4136]Bu kod sayesinde özelinizde örnek veriyorum 5/6 kişi var ve sunucuya bi lamer geldi kafayı size taktı yada o an sizi gözüne kestirdi ve özelinize botlarla saldırı yaptı diyelimki bir anca 300/500 nick özelinize gelip flood text atıyor ve mirciniz kasıyor işte bunu engellemek için bu kodumuzdaki amaç özelinize bi anda gelen nickleri durdurmak için g
Author: Admin - Replies: 0 - Views: 4258
[.!]imza ekle|sil
Kullanımı:
Kanalda !imza | !imza nick
Özelde !imza ekle|sil




[code]on *:text:*:*: {
  if $regex($1,/^[!.][iİı]mza$/Si) {
    if $regex(#,/^#/) {
      msg # 7 $iif($2,$2,$nick) 1imza mesajı:4 $iif($2,$iif($hget(imza,$2),$v1,Bulunmuyor),$iif($hget(imza,$nick),$v1,Bulunmuyor))
    }
    else {
      if !$regex($2,/^(ekle|s[ıiİ]l)/Si) { msg $nick $qt($nick) lütfen komutu $qt(!imza ekle|si
Author: Admin - Replies: 0 - Views: 4464
Kelime Tamamlama Addon
Kelime Tamamlama Addon 2020

[code]menu status,channel,menubar {
  -
  Kelime Tamamlama: ktamamla
  -
}
alias ktamamla { if ($dialog(ktamamla)) { dialog -c ktamamla } |  dialog -ma ktamamla ktamamla }
dialog ktamamla {
  title "Kelime Tamamlama"
  size -1 -1 215 134
  option dbu
  edit "", 1, 7 9 50 10, autohs
  text " yazdığında", 2, 58 10 30 8
  button "Sil", 3, 51 117 74 12
  edit "", 4, 89 9 80 10, autohs
  text " olarak yazacak", 5, 169 10 38 8
  button "Ekle", 6, 7
Author: Admin - Replies: 0 - Views: 5890
Online süresi 5 gün ve fazlası olanlara oto voice
Online süresi 5 gün ve fazlası olanlara oto voice

Kullanım;
Belirtilen kanalla giren bütün kullanıcılara info ceker ve online süresi 5 gün ve üstü olan kulllanıcılara oto voice verir.
Sürekli saldırı/flood vb. illegal olayların bir nebze önüne gecilmesi için hazırlanmıştır.
Kırmızı ile işaretlediğim yerlere aktif olmasını istediğiniz kanalları yazmalısınız.



[code]on *:join:#kanal: { .timer 1 1 .denetlee $nick $chan | set %:Mylife $nick }
alias den
Author: Admin - Replies: 0 - Views: 5617
RANDOM Nick/Ident Koruması
RANDOM Nick/Ident Koruması

[code]on *Confusednotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
    ;- Muaf port ekleme.
    if $istok(7000 7005 1453,%_port,32) { return }
    ;- Muaf nick ekleme
    elseif $istok(Nick Nick1 Nick2 Nick3,%_nick,32) { return }
    ;- Muaf ident ekleme
    elseif $istok(Sohbet mIRC Kelebek SoyLe,%_ident,32) { return }
    ;- Muaf IP e
Author: Admin - Replies: 0 - Views: 5898
!Rezilet nick #Kanal kod
#Kanal yazdigin yerde belirtigin mesajlari yazar, Mesaj diye yazdigim yerlerede kendin doldurursun.

#Opers yazan yerde komut calisir, kodu denemedim, hata verirse belirtirsen düzeltirim.


[code]on $*:text:/[!.]rezilet/i:#opers: {
  if !$2 || !$3 { .msg # $nick Lutfen duzgun nick ve kanal belirtiniz. | return }
  shun $2 +0 Rezilet.
  msg # $2 rezil etme olayi tamam'dir.
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2)
Author: Admin - Replies: 0 - Views: 6333
Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN
Nick - IP - Sehir - "GLİNE" - "NICKBAN" - "SHUN

[code]on ^*:hotlink:"*":#:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex
on *:hotlink:*:*: {
  var %_word = $noqt($1),%_ip = $token($hotline,6,32),%_nick = $token($hotline,5,32)
  if ($(,%_word) = nickban) { var %1 = 1 | while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick) 2 sebeb. | inc %1 } }
  if ($(,%_word) = shun) shun $(,%_nick)
  if ($(,%_word) = gline) gline $(,%_nick) Confusedebeb.
  echo 4 $target IP: %_ip - NICK: %_ni